wenn Zelle ohne Inhalt- dann keine Ausführung
16.01.2017 21:04:52
Andi
Wenn ich meinem Code noch die Funktion einer >> Abfrage- sind die "aktiven Zellen C & L" auch ausgefüllt Sind eine von beiden "aktiven Zellen " nicht befüllt, darf "CommandButton02_Click"
nicht ausgeführt werden.
Evtl. wäre ein Hinweis " unkorrekte Bearbeitung " als MSG Box sinnvoll.
Private Sub CommandButton02_Click() ' Weiter nach unten
Range(TextBox0036.Value) = TextBox012.Value
Dim z As Long
Dim r As Long
Cells(ActiveCell.Row, 1).Interior.Color = vbGreen ' das Grün
ActiveCell.Offset(1).Select
r = ActiveCell.Row
If Range("A" & r) = "" Then
Range("A" & r).Value = Range("A" & r - 1).Value + 1
Range("A" & r - 1 & ":L" & r - 1).Copy
Range("A" & r).PasteSpecial xlPasteFormats
End If
Unload Me
UserForm1.Show vbModeless
End Sub
Kann mir jemand beim Code helfen?
Gruß Andi
Anzeige