Makro zum Zeile hinzufügen
24.01.2018 10:46:06
phia
Mein aktueller Code funktioniert aus mir unerklärlichen Gründen nicht
Option Explicit
Public Sub Schaltfläche1_Click()
Call Zeilehinzufügen
End Sub
Private Sub Zeilehinzufügen()
'=> Kopiert den Bereich und hängt ihn immer unten an
Dim rng As Range, lngLRow&, lngTRow&
'**Parameter festlegen
Set rng = Range("A33:AY37")
'**Parameter ermitteln
lngTRow = rng.Row + rng.Rows.Count
lngLRow = WorksheetFunction.Max(Range("A" & Rows.Count).End(xlUp).Row, rng.Row)
Do While lngTRow