Zeile nur einfügen Wenn ...
22.12.2005 11:05:28
köbi
habe dank eurer Hilfe schon einiges gelernt - habt Dank. Nun meine nächste Frage. Möchte den User dazu zwingen die eingefügte Zeile oberhalb vom Total je Sorte machen zu müssen.Die Total Zeile ist ausser 3 Werten leer und die nächste Zeile ist komplett leer. Wollte abfragen, wenn ich auf der aktuellen Zelle die leer ist stehe und die Zelle darunter auch leer ist, dann füge eine Zeile ein sonst msgbox.
Meine If-Abfrage funzt so nicht
'
Sub zeileEinfügen()
ActiveCell = Bereich
If Bereich = "" And Bereich.Offset(1, 0) = "" Then
Rows(ActiveCell.Row).Insert
Else: Exit Sub
MsgBox "Auf Zeile Total wechseln", vbInformation, "Einfügen"
End If
End Sub
'
Kann mir bitte jemand helfen
zum Voraus vielen Dank
mfg
köbi