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)).SelectFehler: 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.SelectBeispiel 2: Ab Zeile 1 bis zum Ende der Spalte B markieren
Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row).SelectEffiziente 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!