wie lautet der VBA-Befehl, wenn ich die letzte Zeile von A bis zur letzten Spalte meiner Tabelle markieren möchte?
Vielen Dank im Voraus
Sabine
Rows(Rows.Count).Select
oder meinst Du dann doch eher die Zeile der letzte gefüllte Zelle aus Spalte(A)?
Option Explicit
Sub markieren()
Dim LoZeile As Long
Dim LoSpalte As Long
With Sheets(1)
LoZeile = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
LoSpalte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(LoZeile, _
Columns.Count).End(xlToLeft).Column, Columns.Count)
End With
Range(Range("A" & LoZeile), Cells(LoZeile, LoSpalte)).Select
End Sub
Um die letzte Zeile von A bis zur letzten Spalte in Excel mit VBA zu markieren, kannst du folgenden Code verwenden:
Option Explicit
Sub markieren()
Dim LoZeile As Long
Dim LoSpalte As Long
With Sheets(1)
LoZeile = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
LoSpalte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(LoZeile, Columns.Count).End(xlToLeft).Column, Columns.Count)
End With
Range(Range("A" & LoZeile), Cells(LoZeile, LoSpalte)).Select
End Sub
Fehler: "Laufzeitfehler 1004: Anwendung oder Objekt definiert Fehler"
Sheets(1)
.Fehler: Keine Zellen markiert
Anstelle des VBA-Codes kannst du auch die Excel-Tastenkombinationen verwenden, um bis zur letzten Zeile zu markieren:
Strg
+ Shift
+ Pfeil nach unten
, um bis zur letzten gefüllten Zelle in der Spalte zu markieren.Shift
-Taste gedrückt und drücke dann Pfeil nach rechts
, um bis zur letzten Spalte zu erweitern.Diese Methode ist schnell und erfordert kein Programmieren.
Markierung von A bis zur letzten gefüllten Zeile in Spalte B:
Range("A1:B" & Cells(Rows.Count, 2).End(xlUp).Row).Select
Färben der markierten Zellen:
Selection.Interior.Color = RGB(255, 255, 0) ' Gelb
Diese Beispiele zeigen, wie du spezifische Bereiche in Excel schnell markieren und formatieren kannst.
Vermeide die Verwendung von Select
: Du kannst direkten Zugriff auf den Bereich erhalten, ohne ihn vorher zu selektieren. Das macht deinen Code effizienter.
Verwende Konstanten für den Blattnamen: Anstatt Sheets(1)
zu verwenden, kannst du den Blattnamen direkt angeben, um den Code leichter verständlich zu machen.
Debugging: Nutze Debug.Print
zur Überprüfung von Variablenwerten während der Ausführung deines Makros.
1. Wie finde ich die letzte Zeile in einer spezifischen Spalte?
Du kannst Cells(Rows.Count, Spalte).End(xlUp).Row
verwenden, um die letzte gefüllte Zeile in einer bestimmten Spalte zu finden.
2. Was ist der Unterschied zwischen Select
und Activate
in VBA?
Select
markiert ein Objekt, während Activate
es fokussiert. Für die meisten Operationen ist es besser, direkt auf das Objekt zuzugreifen, ohne es auszuwählen oder zu aktivieren.
3. Kann ich diesen Code auch für andere Tabellenblätter verwenden?
Ja, du kannst den Code anpassen, indem du den Namen des entsprechenden Tabellenblatts in der With
-Anweisung angibst.
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