Supportnet / Forum / Tabellenkalkulation
Makro automatisch aktualisieren
Frage
Hallo!
Ich habe ein Makro geschrieben, mit dem automatisch einige Zeilen, die vorher ausgeblendet waren, wieder eingeblendet werden sollen. Wenn ich nun eine weitere Zeile innerhalb dieser Zeilen einfüge, möchte ich, dass das Makro nun automatisch nicht mehr z.B. Zeile 5-10, sondern nun 5-11 einblendet. Ist das möglich? Und wenn ja, wie?
Vielen Dank, Julia
Antwort 1 von nighty
hi julia :-)
vielleicht hilfreich :-))
gruss nighty
Sub makro01()
Rem letzte zeile eines sheets
Cells(1, 1) = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Rem letze spalte eines sheets
Cells(2, 1) = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Rem letzte zeile einer spalte
Cells(3, 1) = ActiveSheet.Range("D" & Rows.Count).End(xlUp).Row
Rem letzte spalte einer zeile
Cells(4, 1) = ActiveSheet.Range("3:3").End(xlUp).Column
End Sub
vielleicht hilfreich :-))
gruss nighty
Sub makro01()
Rem letzte zeile eines sheets
Cells(1, 1) = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Rem letze spalte eines sheets
Cells(2, 1) = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Rem letzte zeile einer spalte
Cells(3, 1) = ActiveSheet.Range("D" & Rows.Count).End(xlUp).Row
Rem letzte spalte einer zeile
Cells(4, 1) = ActiveSheet.Range("3:3").End(xlUp).Column
End Sub