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

Forumthread: Markieren ab B1 bis Datenende

Markieren ab B1 bis Datenende
13.08.2013 20:24:59
Barbara
Guten Abend,
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

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Markieren ab B1 bis Datenende
13.08.2013 20:40:52
Balder
Hey Barbara,
hier eine Möglichkeit:
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ß
Balder

Anzeige
Prüf das mal ...
14.08.2013 17:32:59
Matthias
Hallo Balder
letzte_Zeile ergibt bei Dir immer 1
und hier hast Du die Zeile mit der Spalte vertauscht
Sheets(1).Range(Cells(1, 2), Cells(letzte_Spalte, letzte_Zeile)).Select

Bei Cells() steht die Spalte hinter dem Komma


Hallo Barbara
Also mal ausgehend davon das in B1 ein Wert vorhanden ist und Spalte(A) ist leer
könnte mann es auch so machen:
Sub Markieren()
Dim Bereich$
Bereich = ActiveSheet.UsedRange.Address
Range(Bereich).Select
End Sub
Gruß Matthias

Anzeige
AW: Markieren ab B1 bis Datenende
13.08.2013 20:42:41
Matthias
Hallo Barbara
Range(Cells(1, 2), Cells(1, 2).SpecialCells(xlLastCell)).Select
Gruß Matthias

man kann aber auch ...
13.08.2013 20:49:24
Matthias
Hallo
... B1 aktivieren und dann Strg+Shift+Enter drücken
Gruß Matthias

AW: Markieren ab B1 bis Datenende
14.08.2013 04:38:01
Rosa
ich arbeite mit:
range("b1").currentregion.
Ist dynamischer bedingt jedoch, dass die zellen ununterbrochen befüllt sind.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Excel Zellen bis zum Ende markieren


Schritt-für-Schritt-Anleitung

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.


Häufige Fehler und Lösungen

  • Fehler: letzte_Zeile gibt immer 1 zurück

    • Überprüfe, ob Du die Zeilen- und Spaltenparameter in der Cells()-Funktion korrekt gesetzt hast. Die richtige Syntax lautet:
      Sheets(1).Range(Cells(1, 2), Cells(letzte_Zeile, 2)).Select
  • Fehler: Markierung funktioniert nicht

    • Stelle sicher, dass die Zellen in der Spalte B tatsächlich Daten enthalten. Wenn die Zellen leer sind, wird die Markierung nicht wie gewünscht funktionieren.

Alternative Methoden

  1. Verwendung von CurrentRegion: Wenn die Zellen ununterbrochen befüllt sind, kannst Du den folgenden Befehl nutzen:

    Range("B1").CurrentRegion.Select
  2. 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.


Praktische Beispiele

  • Beispiel 1: Markieren der gesamten Tabelle

    • Wenn Du die gesamte Tabelle bis zum Ende markieren möchtest, kannst Du Folgendes verwenden:
      Range("A1").CurrentRegion.Select
  • Beispiel 2: Ab Zeile 1 bis zum Ende der Spalte B markieren

    • Hier ist ein einfacher Befehl:
      Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row).Select

Tipps für Profis

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


FAQ: Häufige Fragen

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!

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