VBA Zeile_Einfügen
05.11.2016 11:06:54
Andreas
Hallo,
habe ein kleines Problem mit folgenden Code.
Sub Zeile_Einfügen_mit_Nummer_nach_unten_neu()
Dim lngLetzteB As Long
If Cells(ActiveCell.Row, 1).Value = "" Then Exit Sub
Cells(ActiveCell.Row, 2).Resize(1, 11).Insert Shift:=xlDown, CopyOrigin:= _
xlFormatFromLeftOrAbove
lngLetzteB = Cells(Rows.Count, "B").End(xlUp).Row
If Cells(lngLetzteB, "A") = "" Then Cells(lngLetzteB, "A") = Cells(lngLetzteB - 1, "A") + 1
End Sub
Dieser soll mir, wenn ich mich in Spalte C befinde, eine Zeile einfügen, meine Tabellenwerte darunter eine Zeile nach unten Verschieben, in Spalte A die letzte Nummer am Ende um +1 Erhöhen, die Formatierung der Zeile darüber für den Bereich B:Lübernehmen.
Habe eine Beispielmappe mit angehängt: https://www.herber.de/bbs/user/109220.xlsm
Der Code funktioniert noch nicht so recht. Fehler sind:
fortlaufende Nummerierung in A
gar nicht oder aber sie wird erst zu spät übernommen
das selbe passiert mit der Formatierung
Vielleicht findet jemand den Fehler.
LG Andreas