folgender Code fügt mir unter der letzten beschriebenen Zeile in Spalte B eine leere Zeile ein und formatiert diese.
Private Sub CommandButton2_Click()
' neue Zeile einfügen für Thema
Dim EZ As Long
Application.ScreenUpdating = False
EZ = Range("B" & Rows.Count).End(xlUp).Row + 1
Rows(EZ).Insert shift:=xlDown
Rows(EZ - 1).Copy
Rows(EZ).PasteSpecial Paste:=xlPasteFormats
Cells(1, 2).Resize(EZ, 4).Borders(xlInsideHorizontal).LineStyle = xlNone
Cells(1, 2).Resize(EZ, 4).Borders(xlEdgeBottom).LineStyle = 1
Cells(1, 2).Resize(5, 4).Borders(xlEdgeBottom).LineStyle = 1
Cells(1, 3).Resize(4, 3).Borders(xlEdgeBottom).LineStyle = 1
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Kann der Code dahingehend umgeschrieben werden, das die neue Zeile unter den letzten formatierten Zellbereich in Spalte B eingefügt wird. Es soll also nich nach letzten Text + 1 eingefügt werden, sondern nach letzter foramtierter Zelle +1.VG Berndt und Danke im voraus