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
|