Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA - leere Zeile einfügen
04.10.2016 13:13:46
Berndt
Hallo Freunde,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - leere Zeile einfügen
06.10.2016 22:07:37
fcs
Hallo Bernd,
ja, wenn man die letzte benutzte Zeile über die usedrange-Eigenschaft des Tabellenblatts ermittelt.
LG
Franz
Private Sub CommandButton2_Click()
' neue Zeile einfügen für Thema
Dim EZ As Long
Application.ScreenUpdating = False
With ActiveSheet
EZ = .UsedRange.Row + .UsedRange.Rows.Count
End With
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

Anzeige
AW: VBA - leere Zeile einfügen
07.10.2016 09:26:38
Berndt
Dankeschön. gefällt mir richtig gut.

326 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige