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