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

Forumthread: aktive Zelle + 2 nach rechts

aktive Zelle + 2 nach rechts
08.04.2008 10:50:00
{mskro}
Hallo Excelfreunde,
ich sehe mal wieder den Wald vor lauter Bäumen nicht und bitte mal wieder um Hilfe.
Ich möchte die Zelle zwei weiter rechts der aktiven Zelle markieren. Auslesen tue ich die aktive Zelle ja, aber wie komme ich 2 weiter nach rechts?

Sub ZweiWeiterRechts()
az = ActiveCell.Address
'hier soll jetzt 2 Zellen weiter rechts markiert werden
End Sub


Gruß Manfred

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Activecell.offset(0,2) (owT)
08.04.2008 10:51:48
Renee

Danke (owT)
08.04.2008 10:55:00
{mskro}

kleine Ergänzung wg.vorletzter Spalte ...
08.04.2008 11:34:25
Matthias
Hallo
hier ein Beispiel, damit es keinen VBA Crash gibt (als Ergänzung)

Option Explicit
Sub ZweiWeiterRechts()
'damit es keinen Konflikt (ab einer Spalte vor der letzten Spalten) gibt !  (bei mir 255)
On Error GoTo Ende
ActiveCell.Offset(, 2).Activate: Exit Sub
Ende:
MsgBox "2 Zellen weiter rechts wäre über das Blatt hinaus!"
End Sub


Anzeige
Danke
08.04.2008 13:25:00
{mskro}
Hallo Matthias,
du hast recht, das könnte passieren.
Gruß Manfred
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Aktive Zelle + 2 nach rechts in Excel VBA


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und drücke Alt + F11, um den VBA-Editor zu starten.

  2. Füge ein neues Modul hinzu: Klicke im Projektfenster mit der rechten Maustaste auf deinen Workbook-Namen und wähle Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Option Explicit
    Sub ZweiWeiterRechts()
        On Error GoTo Ende
        ActiveCell.Offset(0, 2).Activate
        Exit Sub
    Ende:
        MsgBox "2 Zellen weiter rechts wäre über das Blatt hinaus!"
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Wähle eine Zelle aus und führe das Makro aus, um die Zelle zwei nach rechts zu aktivieren.


Häufige Fehler und Lösungen

  • Fehler: "2 Zellen weiter rechts wäre über das Blatt hinaus!"

    • Lösung: Stelle sicher, dass du nicht in der letzten Spalte des Arbeitsblatts bist. Das Makro überprüft, ob die aktive Zelle sich in der Nähe der letzten Spalte befindet.
  • Fehler: Das Makro wird nicht gefunden.

    • Lösung: Überprüfe, ob das Makro im richtigen Modul gespeichert wurde und ob du es korrekt ausführen kannst.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du auch die Excel-Funktionalität nutzen:

  1. Aktive Zelle anzeigen: Wähle eine Zelle aus und benutze die Tastenkombination Tab, um zur nächsten Zelle zu wechseln. Drücke Tab erneut, um zwei Zellen weiter nach rechts zu gelangen.
  2. Formel verwenden: Wenn du die Adresse der aktiven Zelle brauchst, kannst du in einer anderen Zelle =ADDRESS(ROW(ACTIVE()), COLUMN(ACTIVE()) + 2) verwenden, um die Adresse der Zelle zwei nach rechts anzuzeigen.

Praktische Beispiele

Hier ist ein Beispiel, wie du das VBA-Makro anpassen kannst:

Sub ZweiWeiterRechtsBeispiel()
    Dim az As String
    az = ActiveCell.Address
    On Error GoTo Ende
    ActiveCell.Offset(0, 2).Activate
    MsgBox "Die aktive Zelle war: " & az & " und die neue Zelle ist: " & ActiveCell.Address
    Exit Sub
Ende:
    MsgBox "2 Zellen weiter rechts wäre über das Blatt hinaus!"
End Sub

Dieses Makro zeigt dir nicht nur die neue Zelle, sondern auch die ursprüngliche Zelle an.


Tipps für Profis

  • Nutze die Excel VBA-Dokumentation, um mehr über die Offset-Methode zu erfahren und wie du sie für komplexere Aufgaben nutzen kannst.
  • Verwende Fehlerbehandlungsroutinen, um sicherzustellen, dass dein Code auch bei unerwarteten Eingaben stabil bleibt.
  • Experimentiere mit anderen Kombinationen von Offset, um verschiedene Zellen relativ zur aktiven Zelle zu erreichen.

FAQ: Häufige Fragen

1. Was ist die Offset-Methode in Excel VBA?
Die Offset-Methode ermöglicht es dir, eine Zelle relativ zu einer anderen Zelle zu referenzieren. Mit ActiveCell.Offset(0, 2) kannst du beispielsweise zwei Zellen nach rechts bewegen.

2. Kann ich das Makro anpassen, um mehr als zwei Zellen zu verschieben?
Ja, du kannst die Zahl in Offset(0, 2) ändern, um die Anzahl der Zellen, die du verschieben möchtest, anzupassen. Ein Wert von 3 würde dich drei Zellen nach rechts bewegen.

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