Mein Code hier funktioniert schon recht gut.
Option Explicit
Sub Makro010_()
Dim z As Long
Dim k As Long
Call Links_ist_da
With UserForm1
If Cells(ActiveCell.Row, 3) "" And Cells(ActiveCell.Row, 12) "" Then 'sind auch _
alle Zellen gefüllt?
ActiveCell.Offset(1).Select
k = ActiveCell.Row
If Range("A" & k) = "" Then
Range("A" & k).Value = Range("A" & k - 1).Value + 1
Range("A" & k - 1 & ":L" & k - 1).Copy
Range("A" & k).PasteSpecial xlPasteFormats
End If
Unload UserForm1
UserForm1.Hide
If Cells(ActiveCell.Row + 1, 1).Value = "" Then ' erhöhe in A die _
Zahl um +1
Cells(ActiveCell.Row + 1, 1).Value = Cells(ActiveCell.Row, 1).Value + 1
End If
UserForm1.Show vbModeless
Else
MsgBox "Machs jetzt nicht, weil ....na es fehlt doch was!"
End If
End With
End Sub
Nach einfügen der Daten wird in der nächsten Zeile in A die Zahl um eins erhöht
Nun würde ich gern noch, 'wenn die Zahl um+1 in A erhöht wird, das auch die Formatierung der aktiven Zeile im Bereich A-L mit in die nächste Zeile übertragen wird.
Was müsste nun noch in den Code mit rein? Ich würde sagen- der Formatpinsel :-)
Grüße Leon