bitte wie geht dieses Makro, das folgendes kann:
Schreibe in die erste freie Zelle der Zeile 1 "Name", falls es nicht schon wo da steht.
Irgend wie krieg ich das nicht auf die Reihe.
Danke, Barbara.
Sub t()
Dim zelle As Range
If WorksheetFunction.CountIf(Range("1:1"), "Name") > 0 Then Exit Sub
For Each zelle In Range("1:1")
If zelle.Value = "" Then
zelle.Value = "Name"
Exit For
End If
Next
End Sub
Die 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