AW: Range mit Variable für End(xlUp)
29.09.2014 14:43:24
Christian
Hallo Gerold,
dein Code ist sehr verständlich, danke dafür.
Jedoch muss ich eine Anmerkung hineinsetzen, um mein Problem nochmals zu erläutern.
Ich möchte, dass die Range variabel ist.
Sub TabellenErweitern()
Dim a As Long, b As Long
'zb 5 mal Kopieren
For b = 1 To 5
'Letzte zeilenummer ermitteln => die letzte Zeile verändert sich mit jedem Schleifendurchlauf
'for b=1 => a = ActiveSheet.Range("A14").End(xlUp).Row
'for b=2 => a = ActiveSheet.Range("A15").End(xlUp).Row
'for b=3 => a = ActiveSheet.Range("A16").End(xlUp).Row
'for b=x => a = ActiveSheet.Range("Ax").End(xlUp).Row
a = ActiveSheet.Range("A14").End(xlUp).Row
'Zeile Einfügen/Anhängen - wenn nicht gewünscht die Zeile löschen
ActiveSheet.Cells(a + 1, 1).EntireRow.Insert
'Zeile Kopieren
ActiveSheet.Cells(a - 1, 1).EntireRow.Copy
'Kopiertes Einfügen
ActiveSheet.Cells(a + 1, 1).Select
ActiveSheet.Paste
Next
End Sub
Meine Idee wäre deshalb anstelle der Range mit Cells direkt zu arbeiten
'for b=1 => a = ActiveSheet.Cells(1,14+b)End(xlUp).Row
Jedoch wird bei jedem Start des Makros die Schleife neu gestartet, somit fängt die Varible b immer bei 1 an. Sie soll aber bei der letzten gemerkten freien Zelle anfagen...
Hast du noch eine Idee oder ist mein Problem deutlicher geworden?