Hänge mal wieder fest.
Im Bereich AB6 bis AB130 sollen alle leeren
Zellen mit "Frei" beschrieben werden.
Diese Formel klappt so weit einwandfrei.
-------------------------------------
Private Sub CommandButton7_Click()
Range("AB6:AB130").Select
Application.CutCopyMode = False
pruefen
End Sub
Sub pruefen()
Dim rng As Range
For Each rng In Selection
If rng.Value = "" Then
With rng
.Value = "Frei"
End With
End If
Next rng
End Sub
--------------------------------------
Mein Problem ist, das ich eine weitere Komponente habe.
Die dazu gehörigen Zellen A6 bis A130 enthalten die Namen.
Wenn kein Name vorhanden (sprich Zelle Leer),
soll der Rest nicht mehr ausgefüllt werden.
z.B. Namen nur bis A15, dann Makro beenden.
Mein Versuch ist fehlgeschlagen.
Die Anzahl der Namen habe ich in Zelle B43 ermittelt.
--------------------------------------
Private Sub CommandButton7_Click()
Dim i
i = cells(43, 2)
Range("AB6:AB(i)").Select
Application.CutCopyMode = False
pruefen
End Sub
--------------------------------------
Wo liegt der Fehler?
Cu Jonny