ich bekomm folgendes Makro nicht hin:
wenn eine zelle in spalte "F" NICHT leer ist, dann den Inhalt mit einer "1" überschreiben (ersetzten)
Ist eine Zelle in F leer dann soll sie weiterhin leer bleiben
Sub Ersetzen()
Dim x As Long
For x = 1 To 10 '"F1:F10" Bereich anpassen
If Not IsEmpty(Cells(x, 6)) Then Cells(x, 6) = "1"
Next
End Sub
Gruß MatthiasDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen