wie lautet der Befehl für die Markierung von B1 bis zur letzten Zelle (mit Daten gefüllt) (momentan: AB456, ändert sicher aber immer)
Barbara
Sub das_Letzte()
letzte_Spalte = Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
letzte_Zeile = Sheets(1).Cells(Cells.Rows.Count).End(xlUp).Row
Sheets(1).Range(Cells(1, 2), Cells(letzte_Spalte, letzte_Zeile)).Select
End Sub
Gruß
Sheets(1).Range(Cells(1, 2), Cells(letzte_Spalte, letzte_Zeile)).Select
Sub Markieren()
Dim Bereich$
Bereich = ActiveSheet.UsedRange.Address
Range(Bereich).Select
End Sub
Gruß Matthias
Range(Cells(1, 2), Cells(1, 2).SpecialCells(xlLastCell)).Select
Gruß Matthias
Um in Excel die Spalte B von B1 bis zur letzten gefüllten Zelle zu markieren, kannst Du die folgende VBA-Makro-Anweisung verwenden:
Sub das_Letzte()
letzte_Spalte = Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
letzte_Zeile = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
Sheets(1).Range(Cells(1, 2), Cells(letzte_Zeile, letzte_Spalte)).Select
End Sub
Mit diesem Code wird die Markierung ab B1 bis zur letzten Zelle in der Spalte B ausgeführt. Achte darauf, dass Du in Excel die Entwicklertools aktivierst, um VBA auszuführen.
Fehler: letzte_Zeile gibt immer 1 zurück
Cells()
-Funktion korrekt gesetzt hast. Die richtige Syntax lautet:
Sheets(1).Range(Cells(1, 2), Cells(letzte_Zeile, 2)).Select
Fehler: Markierung funktioniert nicht
Verwendung von CurrentRegion
:
Wenn die Zellen ununterbrochen befüllt sind, kannst Du den folgenden Befehl nutzen:
Range("B1").CurrentRegion.Select
Shortcut-Taste:
Du kannst auch die Kombination Strg + Shift + End
verwenden, um alle Zellen von B1 bis zum Ende der Daten in der Spalte zu markieren.
Beispiel 1: Markieren der gesamten Tabelle
Range("A1").CurrentRegion.Select
Beispiel 2: Ab Zeile 1 bis zum Ende der Spalte B markieren
Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row).Select
Effiziente Nutzung von Shortcuts:
Nutze die Kombination Strg + Leertaste
, um die gesamte Spalte auszuwählen, und anschließend Shift + Leertaste
, um die gesamte Zeile auszuwählen. Dies kann helfen, schneller zu navigieren.
Makros speichern: Speichere Deine häufig verwendeten Makros in einer persönlichen Arbeitsmappe, damit Du sie in jeder Excel-Datei nutzen kannst.
1. Wie kann ich die Markierung bis zum Tabellenende durchführen?
Du kannst die Funktion UsedRange
verwenden, um sicherzustellen, dass alle Zellen bis zum Ende der Tabelle markiert werden:
Range(ActiveSheet.UsedRange.Address).Select
2. Gibt es eine Möglichkeit, alle Zellen in einer Spalte zu markieren? Ja, Du kannst die gesamte Spalte mit folgendem Befehl markieren:
Columns(2).Select 'Markiert die gesamte Spalte B
3. Wie kann ich die letzte Zelle in einer Zeile finden? Verwende die folgende Anweisung:
letzte_Zelle = Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
Mit diesen Informationen bist Du gut gerüstet, um in Excel Zellen bis zum Ende zu markieren!
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen