Thema Datum  Von Nutzer Rating
Antwort
Rot Newb
11.07.2011 11:10:35 Samira
Solved
11.07.2011 11:40:00 Marc
**
NotSolved
11.07.2011 12:27:32 Dekor
*
NotSolved
11.07.2011 13:18:12 Gast74418
NotSolved
11.07.2011 13:19:55 Samira
NotSolved
11.07.2011 13:22:02 Samira
NotSolved
11.07.2011 17:54:45 Dekor
NotSolved
12.07.2011 10:29:22 Samira
NotSolved
12.07.2011 12:18:23 Dekor
NotSolved
12.07.2011 13:13:59 Samira
NotSolved
12.07.2011 19:13:38 Dekor
*****
Solved
13.07.2011 13:27:57 Samira
Solved

Ansicht des Beitrags:
Von:
Samira
Datum:
11.07.2011 11:10:35
Views:
1466
Rating: Antwort:
 Nein
Thema:
Newb

Hallo alle zusammen,

ich habe ein VBA Problem und habe keine Lösung dafür

folgendes Makro wurde erstellt :

Sub Kopieren()

Dim Zelle As Range
Dim Wert As Variant

Wert = ActiveSheet.Range("J16")
With Sheets("Tabelle2")

For Each Zelle In .Range("F6:G6").SpecialCells(xlCellTypeVisible)

If Zelle.EntireRow.Hidden = False _
Or Zelle.EntireColumn.Hidden = False _
Or Zelle.Font.Strikethrough = False Then

Zelle.Value = Wert

End If
Next Zelle
End With
End Sub


 Ich will das nicht durchgestrichene oder ausgeblendete Daten vom  "ACTIVE SHEET" in "TABELLE2" kopiert werden.  Beim ausführen des Makros, werden die Daten werden kopiert egal ob durchgestrichen sind oder nicht.

kann mir jemand weiterhelfen ? wo liegt mein Fehler?

Gruß

Samira


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Newb
11.07.2011 11:10:35 Samira
Solved
11.07.2011 11:40:00 Marc
**
NotSolved
11.07.2011 12:27:32 Dekor
*
NotSolved
11.07.2011 13:18:12 Gast74418
NotSolved
11.07.2011 13:19:55 Samira
NotSolved
11.07.2011 13:22:02 Samira
NotSolved
11.07.2011 17:54:45 Dekor
NotSolved
12.07.2011 10:29:22 Samira
NotSolved
12.07.2011 12:18:23 Dekor
NotSolved
12.07.2011 13:13:59 Samira
NotSolved
12.07.2011 19:13:38 Dekor
*****
Solved
13.07.2011 13:27:57 Samira
Solved