eintrag in 1. leere zelle, wenn zeile nicht leer
th.heinrich
Ihr habt mir schon sehr weitergeholfen (spez. PeterW)
Sub WertEintragen()
Dim Wert As String
Dim lgRow As Long
Wert = "kein kunde"
lgRow = 1
Do Until IsEmpty(Cells(lgRow, 1))
lgRow = lgRow + 1
Loop
Cells(lgRow, 1) = Wert
End Sub
hiermit wird in die 1. leere zelle der spalte a der text "kein kunde" eingetragen.
dies soll aber nur dann geschehen, wenn in der ZEILE (1. leere zelle spalte a) irgendwo eine ZELLE mit INHALT steht.
ist die ZEILE komplett LEER soll der eintrag "kein kunde" nicht stattfinden.
sorry fuer die hoelzerne beschreibung.
besten dank fuer Euere hilfe
thomas
Anzeige