Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA letzte Zeile von A bis letzte Spalte markieren

VBA letzte Zeile von A bis letzte Spalte markieren
27.12.2013 14:35:53
A
Hallo liebe Profis,
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

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
wirklich letzte Zeile ... ?
27.12.2013 14:53:36
Matthias
Hallo Sabine
Ich halt mich ganz konsequent an die Frage
... wenn ich die letzte Zeile von A bis zur letzten Spalte ...

Rows(Rows.Count).Select
oder meinst Du dann doch eher die Zeile der letzte gefüllte Zelle aus Spalte(A)?
Was möchstest Du denn erreichen?
Denn Select ist zu 99% nicht nötig.
Gruß Matthias

Anzeige
AW: wirklich letzte Zeile ... ?
27.12.2013 15:01:37
Sabine
Hallo Matthias,
mit "meiner Tabelle" dachte ich wäre klar dass es gefüllte bzw. wenn nicht gefüllt, dann formatierte Zellen sind.
Ich möchte mit diesem Bereich dann folgendes machen:
Selection.Font.ColorIndex = 55
Selection.Font.Bold = True
Selection.Interior.ColorIndex = 15
Ich weiß, dass Select meist unnötig ist, aber als Newbie bekomm ich es leider nicht immer ganz weg. Dann müsst ich ja noch mehr fragen ...

Anzeige
AW: wirklich letzte Zeile ... ?
27.12.2013 15:08:28
Hajo_Zi
nur wenige sehen Deine Tabelle.
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


Anzeige
wo er Recht hat .... :-) Vielen Dank! o. T.
27.12.2013 15:12:30
Sabine
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA zur Markierung der letzten Zeile von A bis zur letzten Spalte


Schritt-für-Schritt-Anleitung

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
  1. Öffne den Visual Basic for Applications (VBA) Editor in Excel (Alt + F11).
  2. Füge ein neues Modul ein (Rechtsklick auf "VBAProject" > Einfügen > Modul).
  3. Kopiere den obenstehenden Code in das Modul.
  4. Führe das Makro aus (F5), um die letzte Zeile bis zur letzten Spalte zu markieren.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004: Anwendung oder Objekt definiert Fehler"

    • Lösung: Stelle sicher, dass das Arbeitsblatt, das du ansprechen möchtest, korrekt referenziert ist. Überprüfe den Namen des Blattes in Sheets(1).
  • Fehler: Keine Zellen markiert

    • Lösung: Überprüfe, ob dein Datenbereich tatsächlich gefüllt ist. Leere Zeilen oder Spalten können zu unerwarteten Ergebnissen führen.

Alternative Methoden

Anstelle des VBA-Codes kannst du auch die Excel-Tastenkombinationen verwenden, um bis zur letzten Zeile zu markieren:

  1. Klicke auf die erste Zelle in deiner Spalte.
  2. Drücke Strg + Shift + Pfeil nach unten, um bis zur letzten gefüllten Zelle in der Spalte zu markieren.
  3. Halte die 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.


Praktische Beispiele

  1. Markierung von A bis zur letzten gefüllten Zeile in Spalte B:

    Range("A1:B" & Cells(Rows.Count, 2).End(xlUp).Row).Select
  2. 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.


Tipps für Profis

  • 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.


FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige