ich stehe mal wieder auf der Leitung.
Folgendes Problem:
Ich habe eine Spalte mit Einträgen. Um an den letzten Eintrag in der Spalte zu kommen
Drücke ich „ Strg + Cursor down „. Funktioniert.
Nun möchte ich ein Makro schreiben, dass die freie Zelle unterhalb der Spalteneinträge
anwählt. Die Spalteneinträge wachsen natürlich immer weiter. Das Makro soll immer die freie
Zelle unter dem letzten Spalteneintrag anwählen. Ich hab schon alles mögliche probiert, aber
wie gesagt stehe ich wohl auf der Leitung.
Bin für jede Form von Hilfe sehr dankbar.
Die VBA-Funktion activecell.CurrentRegion.Rows.Count liefert die Nummer der letzten Zeile, in der in der aktuellen Spalte etwas steht.
ACHTUNG: Falls dazwischen Leerzeilen sind, gilt die letzte Zeile vor der nächsten Leerzeile als letzte Zeile! (Auch „Strg + Cursor down“ funktioniert so.)
MfG
Roland
Ich habe eine Spalte mit Einträgen. Um an den letzten Eintrag
in der Spalte zu kommen
Drücke ich „ Strg + Cursor down „. Funktioniert.
Nun möchte ich ein Makro schreiben, dass die freie Zelle
unterhalb der Spalteneinträge
anwählt. Die Spalteneinträge wachsen natürlich immer weiter.
Das Makro soll immer die freie
Zelle unter dem letzten Spalteneintrag anwählen. Ich hab schon
alles mögliche probiert, aber
wie gesagt stehe ich wohl auf der Leitung.
ich stehe mal wieder auf der Leitung.
Folgendes Problem:
Ich habe eine Spalte mit Einträgen. Um an den letzten Eintrag
in der Spalte zu kommen
Drücke ich „ Strg + Cursor down „. Funktioniert.
Nun möchte ich ein Makro schreiben, dass die freie Zelle
unterhalb der Spalteneinträge
anwählt. Die Spalteneinträge wachsen natürlich immer weiter.
Das Makro soll immer die freie
Zelle unter dem letzten Spalteneintrag anwählen. Ich hab schon
alles mögliche probiert, aber
wie gesagt stehe ich wohl auf der Leitung.
Bin für jede Form von Hilfe sehr dankbar.
Hi Peter,
um die Problematik mit leeren Zellen in einem Spaltenbereich zu umgehen nimm nicht xldown sondern xlup. Z.B. für Spalte B:
letzteZeile=worksheets(„Tabelle1“).Range(„B65536“).End(xlup).row
Gruß
Reinhard
Sub Letzte_Zeile()
Dim intZeilenanzahl%
intZeilenanzahl = 0
'hier wird die letzte Zeile in der Spalte A gesucht
intZeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'und aktiviert
Cells(intZeilenanzahl + 1, 1).Activate
End Sub
Die „1“ (jeweils letzte Zahl in den Klammern) bezieht sich auf die Spalte. Wenn du das Ding irgendwann in Spalte „C“ brauchst, abändern in „3“.
Mit diesem Makro gelangst du zur leeren Zelle hinter dem letzten Eintrag, auch wenn du zwischendurch eine leere Zelle in der Spalte hast.
Funktioniert bei mir einwandfrei.
Will mich aber nicht mit fremden Lorbeeren schmücken: Dieses Makro hatte ich vom User Fritz (NaSowas) bekommen!
Gruß Lena
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
