kann mir jemand sagen ob dieser Code richtig geschrieben ist?
Er funktioniert leider wenn ich ihn etwas abändere ohne Schleife
nur für eine Zeile.
In Schleife passiert überhaupt nichts. (nicht mal fehlermeldung)
Sub Einlesen()
For i = 2 To 200
If Sheets("Daten").Cells(i, 1).Value = "*" Then
Sheets("Jan").Cells(i, 1).Value = Sheets("Daten").Cells(i, 1).Value
End If
Next i
End Sub