Hallo nochmals,
ich habe mit hilfe con einigen "gutefrage.net" usern einen code geschrieben und versuche jzt durch "Copy-Paste" es für jede Zelle anzuwenden.
Beim For-Befehl kommt immer folgende Meldung "For Steuervariabel wird bereits verwendet"
was bedeutet das ? heißt es, das man das "For" nur einmal in einem code gebrauchen kann ?
wäre vielleicht ein "GoTo" befehl angebrachter? ( sprich: go to next cell, wenn die bedingung erfüllt ist )
hier ist der code:
sub kopieren( )
Dim Zelle As Range
Dim Wert As Variant
Wert = ActiveSheet.Range("J16:j29")
With Sheets("Tabelle2")
For Each Zelle In .Range("F6:G6")
If ((Range("J16").EntireRow.Hidden = True)
Or (Range("J16").EntireColumn.Hidden = True))
Or (Range("J16").Font.Strikethrough = True) Then
Zelle.Value = ActiveSheet.Range("J17")
Else
Zelle.Value = ActiveSheet.Range("J16")
With Sheets("tabelle2")
For Each Zelle In .Range("H6:I6")
If ((Range("J17").EntireRow.Hidden = True)
Or (Range("J17").EntireColumn.Hidden = True))
Or (Range("J17").Font.Strikethrough = True) Then
Zelle.Value = ActiveSheet.Range("J18")
Else
Zelle.Value = ActiveSheet.Range("J17")
End If
End With
End If
Next Zelle
End With
End Sub
Danke schonmal für eure Tatkräftigen Hilfen :)))
Gruß
Newb