Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

AW: Reihenfolge aktive Zellen_ Danke super
Johannes
.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige