Hallo Detlev,
danke für die Antwort.
ich habe deinen Vorschlag soweit ausgefürht aber es bringt mich nicht zur erhofften Lösung. Die durchgestrichenen Werte, werden dennoch kopiert.
Der Code ist eigentlich logisch aufgebaut, deswegen kann ich par tout meinen Fehler nicht entdecken.
Hier nochmal der Code plus deinem Vorschlag:
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 Then
If Zelle.Font.Strikethrough = False Then
Zelle.Value = Wert
End If
End If
Next Zelle
End With
End Sub
Ich Glaube fast der Fehler liegt bei " Zelle.Value = Wert "
Der wert ist " Wert = ActiveSheet.Range("J16") "
Gruß
Samira
|