Kleine Makrohelfer im Schnellzugriff
01.05.2015 17:23:59
erichm
ich bin immer wieder in größeren Tabellen unterwegs und habe mir ein paar kleine Makros gebastelt, mit Bildern gekennzeichnet und diese in den Schnellzugriff integriert:
Anhand der Bilder weiß ich sofort was vom Makro ausgelöst wird.
Für folgendes Makro
'aktiviere die Zelle nach der letzten Belegung in der aktuellen Spalte:
Sub letztezelleaktspr()
Cells(Rows.Count, ActiveCell.Column).End(xlUp).offset(1, 0).Select
End Sub
....suche ich:
'aktiviere die Zelle nach der letzten Spaltenbelegung in der aktiven Zeile
?
und für folgendes Makro
Sub letztezelle()
MsgBox ("Die letzte belegte Zeile der Spalte A ist: ") & Range("A65536").End(xlUp).Row
End Sub
...suche ich
1. "Die letzte belegte Zeile im Tabellenblatt ist:"
2. "Die letzte belegte Spalte der Zeile 1 ist:" (als Ergebnis Buchstaben)
3. "Die letzte belegte Spalte im Tabellenblatt ist:" (als Ergebnis Buchstaben)
Als "belegt" ist definiert wenn entweder eine Formel oder ein Inhalt in der Zelle ist; (bedingte) Formatierungen sollen unberücksichtigt bleiben.
Besten Dank für eine Hilfe!
mfg