Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen nach rechts Markieren

Zellen nach rechts Markieren
Einzel
Hallo Excel Freunde,
Frohe Weinachten erst einmal.
Suche ein Code der mir von der Activen Zelle nach rechts hin alle ausgefüllten Zellen markiert.
Hat jemand dazu eine Idee?
Ich dachte so oder ähnlich
zeile = AktiveCells(Columns.Count).End(xlToRight).Column ' letzten Wert in Zeile finden
Range(AktiveCell), Cells(zeile)).Select
Nur leider funktioniert es so nicht.
MfG
Stephan
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellen nach rechts Markieren
25.12.2009 22:16:23
Peter
Hallo Stephan
versuch es so:
Option Explicit
Public Sub NachRechtsMarkieren()
With ActiveSheet
.Range(.Cells(ActiveCell.Row, ActiveCell.Column), .Cells(ActiveCell.Row, _
.Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column)).Select
End With
End Sub

Gruß Peter
Anzeige
AW: Zellen nach rechts Markieren
25.12.2009 22:26:44
Gerd
Hi,
ich weis nicht, ob dies deinen Bedingungen voll gerecht wird.
Sub b()
With ActiveCell
If Cells(.Row, Columns.Count).End(xlToLeft).Column > .Column Then Range(.Cells, Cells(.Row,  _
Columns.Count).End(xlToLeft)).Select
End With
End Sub
Gruß Gerd
Anzeige
AW: Zellen nach rechts Markieren
25.12.2009 22:34:30
Einzel
Absolut richtig so sollte es sein Danke.
MfG
Stephan
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zellen nach rechts markieren in Excel


Schritt-für-Schritt-Anleitung

Um in Excel alle Zellen nach rechts von der aktiven Zelle zu markieren, kannst du VBA (Visual Basic for Applications) verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Public Sub NachRechtsMarkieren()
       With ActiveSheet
           .Range(.Cells(ActiveCell.Row, ActiveCell.Column), _
           .Cells(ActiveCell.Row, Columns.Count).End(xlToLeft)).Select
       End With
    End Sub
  4. Schließe den VBA-Editor.

  5. Kehre zu Excel zurück und gehe zu Entwicklertools > Makros.

  6. Wähle NachRechtsMarkieren und klicke auf Ausführen.

Mit diesem Makro werden alle ausgefüllten Zellen nach rechts von der aktiven Zelle markiert.


Häufige Fehler und Lösungen

  • Fehler: "Compile error: Syntax error"

    • Überprüfe, ob der Code korrekt eingefügt wurde und keine Zeilen fehlen. Achte besonders auf die Verwendung von With und End With.
  • Fehler: Es werden nicht alle Zellen nach rechts markiert

    • Stelle sicher, dass die aktive Zelle tatsächlich Daten hat, und dass die Zellen rechts davon ebenfalls ausgefüllt sind. Der Code funktioniert nur, wenn es Zellen mit Inhalten gibt.

Alternative Methoden

Falls du keine VBA-Lösungen verwenden möchtest, gibt es auch andere Möglichkeiten, alle Spalten nach rechts zu markieren:

  1. Tastenkombination verwenden:

    • Wähle die aktive Zelle aus und drücke STRG + UMSCHALT + RECHTS, um alle Zellen nach rechts zu markieren, bis die nächste leere Zelle erreicht wird.
  2. Mit der Maus:

    • Klicke auf die aktive Zelle und halte die linke Maustaste gedrückt, während du nach rechts ziehst, um alle Zellen zu markieren.

Praktische Beispiele

  • Beispiel 1: Wenn du in der Zelle A1 bist und die Zellen B1 bis D1 ausgefüllt sind, wird das Makro die Zellen A1 bis D1 markieren.

  • Beispiel 2: Bei Verwendung der Tastenkombination STRG + UMSCHALT + RECHTS in Zelle B2, wenn nur B2 und C2 ausgefüllt sind, werden diese beiden Zellen markiert.


Tipps für Profis

  • Nutze die Möglichkeit, das VBA-Makro zu modifizieren, um es an deine spezifischen Bedürfnisse anzupassen. Du kannst zum Beispiel die Auswahl auf nur bestimmte Datenbereiche beschränken.

  • Erstelle eine Schaltfläche in Excel, um das Makro einfacher auszuführen. Gehe zu Entwicklertools > Einfügen, wähle eine Schaltfläche aus und weise das Makro NachRechtsMarkieren zu.


FAQ: Häufige Fragen

1. Wie kann ich alle Zellen nach unten markieren? Du kannst eine ähnliche VBA-Prozedur verwenden, um alle Zellen nach unten zu markieren. Ändere einfach die Richtung im Code entsprechend.

2. Funktioniert das Makro in allen Excel-Versionen? Ja, die meisten VBA-Codes funktionieren in Excel 2010 und höher. Achte darauf, dass die Entwicklertools aktiviert sind.

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