Supportnet / Forum / Tabellenkalkulation
Makro: Zeile kopieren
Frage
Hallo Zusammen,
Mein Problem:
In einer Tabelle soll durch eine Tastenkombination (wie bei einem aufgezeichnten Makro) eine vorher definierte Zeile (inkl. der Formeln und Formate) hinzugfügt werden können.
Dadurch kann der Anwender selbstständig die Tabelle erweitern, ohne die benötigten Formeln und Formate von Hand einzugeben bzw. zu kopieren.
Danke schon mal im voraus für die Hilfe.
Gruss
10Deluxe
Antwort 1 von nighty
hi all :)
kopiert vom aktiven sheet die letzte beschriebene zeile
und haengt diese ran
gruss nighty
Sub ZeileEinfuegen()
ActiveSheet.Rows(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row).Copy _
ActiveSheet.Rows(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
End Sub
kopiert vom aktiven sheet die letzte beschriebene zeile
und haengt diese ran
gruss nighty
Sub ZeileEinfuegen()
ActiveSheet.Rows(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row).Copy _
ActiveSheet.Rows(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
End Sub