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

Forumthread: Nach Code in ursprüngliche Zelle zurück

Nach Code in ursprüngliche Zelle zurück
Harald
Hallo zusammen,
ich habe einen Code (Tabelle sortieren) der in Abhängigkeit von bestimmten Werten automatisch gestartet wird.
Zu diesem Zeitpunkt kann jede beliebige Zelle ausgewählt sein.
Diese Zelle soll auch jeweils nach Ablauf des Codes wieder selektiert werden.
Wie heißt der Code für:
Gehe nach Ablauf des Codes wieder in die Zelle, die bei Start des Codes ausgewählt war.
Einfacher ausgedrückt:
Wenn bei Start Zelle B20 ausgewählt war, dann am Ende wieder B20 auswählen,
Wenn bei Start Zelle R55 ausgewählt war, dann am Ende wieder R55 auswählen, ...usw.
Vielen Dank an die Spezialisten vorab!!!
Gruß, Harald G.
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Nach Code in ursprüngliche Zelle zurück
15.09.2009 16:19:01
Tino
Hallo.
merke dir die Zelle in einer Variablen und gehe am Ende wieder zu dieser.
Beispiel:
Sub test()
Dim actZelle As Range
Set actZelle = ActiveCell
'dein Code
Application.Goto actZelle
End Sub
Gruß Tino
AW: Nach Code in ursprüngliche Zelle zurück
15.09.2009 16:21:20
Bowl
Ich weiß nich, ob ich dich jetzt richtig verstanden hab, aber ich denke schon:
ganz am Anfang der entsprechenden Sub
die zeilen und spaltennummer 2 variablen zuweisen
x = activecell.row
y= activecell.column
dann deinen code
und ganz am schluß des codes
cells(x, y).activate 
So klappts auf jeden Fall, was einfacheres weiß ich grad nicht
Grüße
Anzeige
AW: Nach Code in ursprüngliche Zelle zurück
15.09.2009 20:58:05
Harald
Hallo zusammen,
vielen Dank an euch Drei.
Tino, dein Code ist genau das was ich benötige.
Bowl, danke, aber habe ich leider nicht verstanden.
Hajo_Zi, danke für den praktischen Tipp.
Gruß aus Köln an alle,
Harald
Anzeige
Erklärung:
16.09.2009 07:41:36
Bowl
Die Lösung von Tino ist wohl deutlich eleganter, trotzdem nochmal Erklärung zu meiner Lösung:
Noch bevor dein wirklich Code durchläuft weisst du mit
x = activecell.row
die Zeilennummer der aktiven Zelle einer Variablen x
und mit
y= activecell.column
die Spaltennummer der aktiven Zellen der Variablen y
zu.
Dann läuft dein Code durch um anschließend
die vorherige Zelle zu aktivieren:

cells(x, y).activate 
Die Zelle mit Zeilennummer X, Spaltennummer Y wird aktiviert.
In dem Fal wie gesagt vlt doch etwas umständlich, aber vlt. brauchst ja mal Zeilen und Spaltennummer getrennt
Grüße
Bowl
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Zelle nach VBA-Code in ursprüngliche Zelle zurück


Schritt-für-Schritt-Anleitung

Um nach der Ausführung eines bestimmten Zelle Codes in Excel zurückzukehren, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Variable für die aktive Zelle erstellen: Zuerst musst du die aktive Zelle in einer Variablen speichern. Das geht so:

    Dim actZelle As Range
    Set actZelle = ActiveCell
  2. Deinen Code ausführen: Führe nun deinen gewünschten Zelle Code aus. Hier kannst du alles einfügen, was dein Makro tun soll.

  3. Zur ursprünglichen Zelle zurückkehren: Am Ende des Codes nutzt du die folgende Zeile, um zur ursprünglichen Zelle zurückzukehren:

    Application.Goto actZelle

Häufige Fehler und Lösungen

Hier sind einige häufige Fehler, die beim Arbeiten mit Zelle Codes auftreten können, sowie deren Lösungen:

  • Fehler: Zelle nicht gefunden
    Lösung: Stelle sicher, dass die Variable actZelle korrekt gesetzt wurde und dass der Code nicht vorzeitig abgebrochen wird.

  • Fehler: Code springt nicht zurück
    Lösung: Überprüfe, ob du die Application.Goto-Anweisung am Ende deines Codes korrekt platziert hast.


Alternative Methoden

Falls du eine andere Methode bevorzugst, um zu einer Zelle zurückzukehren, kannst du die Zeilen- und Spaltennummern speichern:

  1. Speichere die Zeilen- und Spaltennummern:

    Dim x As Long
    Dim y As Long
    x = ActiveCell.Row
    y = ActiveCell.Column
  2. Führe deinen Code aus.

  3. Kehre zur ursprünglichen Zelle zurück:

    Cells(x, y).Activate

Diese Methode ist ebenfalls effektiv und gibt dir die Flexibilität, die Row- und Column-Nummer separat zu nutzen.


Praktische Beispiele

Hier ist ein einfaches Beispiel eines Makros, das nach der Ausführung zur ursprünglichen Zelle zurückkehrt:

Sub Beispiel()
    Dim actZelle As Range
    Set actZelle = ActiveCell

    ' Dein Zelle Code hier
    Range("A1").Value = "Hallo Welt"

    ' Zurück zur ursprünglichen Zelle
    Application.Goto actZelle
End Sub

Du kannst dieses Beispiel anpassen, um es für deine spezifischen Anforderungen zu verwenden.


Tipps für Profis

  • Verwende Fehlerbehandlung: Integriere Fehlerbehandlungsroutinen, um sicherzustellen, dass dein Code auch bei unerwarteten Situationen stabil bleibt.

  • Dokumentation: Kommentiere deinen Zelle Code gut, damit du später leicht nachvollziehen kannst, was jeder Abschnitt tut.

  • Testen: Teste deinen Code gründlich, um sicherzustellen, dass die Rückkehr zur ursprünglichen Zelle immer funktioniert.


FAQ: Häufige Fragen

1. Wie speichere ich mehrere Zellen?
Du kannst mehrere Variablen für verschiedene Zellen erstellen und sie in einem Array speichern, um einfach zwischen ihnen zu wechseln.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, die beschriebenen Methoden sind in den meisten Excel-Versionen, die VBA unterstützen, anwendbar. Achte darauf, dass du die syntaktischen Regeln der jeweiligen Excel-Version beachtest.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige