Hi Detlev,
Der Code sieht nun wie folgt aus :
Sub Kopieren()
Dim Zelle As Range
Dim Wert As Variant
Wert = ActiveSheet.Range("J16")
With Sheets("Tabelle2")
For Each Zelle In .Range("F6:G6")
If ((Zelle.EntireRow.Hidden = False) Or (Zelle.EntireColumn.Hidden = False)) And (Zelle.Font.Strikethrough = False) Then
Zelle.Value = Wert
End If
Next Zelle
End With
End Sub
Das Problem beim ausführen ist das, der Wert in "J16" immer eingefügt wird- was ja nicht mein Ziel ist.
ich glaube das mein Fehler hier liegt --> Wert = ActiveSheet.Range("J16").
ICh find das immer schwer zu erklären :( aber verstehst du wie ich das meine ?
Wenn J16 ausgeblendet oder durchgestrichen ist soll er zur nächsten zelle gehen, falls diese Zelle nicht ausgeblendet und durhgestrichen soll er diese einfügen, und dann wieder zur nächsten Zelle und so weiter....
Puh! hört sich wahrscheinlich komplizierter an als es ist ...
Gruß
Samira!
|