Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Reihenfolge aktive Zellen

Forumthread: Reihenfolge aktive Zellen

Reihenfolge aktive Zellen
28.08.2004 21:51:23
Johannes
Hallo Spezialisten,
ich habe folgendes Problem:
Die aktive Zelle soll bei A2 starten, nach Eingabe und [Enter] soll B2 aktiv sein
nach Eingabe und [Enter] soll A3 aktiv sein usw.
also:
A2 -&gt B2 dann
A3 -&gt B3 dann
A4 .....
bis A200 - B 200
Kann mir jemand dabei helfen ?
Danke für Eure Mühe schon jetzt.
Gruß
Johannes
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Reihenfolge aktive Zellen
ransi
hallo
stell doch mal die scrollarea auf a2:b200.
die seiliche mausbewegung kriegst du mit:
optionen-bearbeiten-markierung nach... rechts
ransi
AW: Reihenfolge aktive Zellen
nighty
hi johannes :)
wie gewuenscht :)
gruss nighty
einzufuegen alt f11(vbeditor)/projektexplorer/DeineTabelle
das makro reagiert auf zellenwechsel

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rgBereich As Range
Dim zaehler1 As Range
Set rgBereich = Worksheets("Tabelle1").Range("A2:B200")
For Each zaehler1 In rgBereich
If zaehler1 = "" Then
zaehler1.Select
Exit For
End If
Next zaehler1
End Sub

Anzeige
AW: Reihenfolge aktive Zellen
nighty
hi johannes :)
korrigiert :)
gruss nighty

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim rgBereich As Range
Dim zaehler1 As Range
Set rgBereich = Worksheets("Tabelle1").Range("A2:B200")
For Each zaehler1 In rgBereich
If zaehler1 = "" Then
zaehler1.Select
Exit For
End If
Next zaehler1
Application.EnableEvents = True
End Sub

Anzeige
AW: Reihenfolge aktive Zellen_ Danke super
Johannes
.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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