Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1540to1544
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
Inhaltsverzeichnis

Nächste Zelle anwählen VBA

Nächste Zelle anwählen VBA
23.02.2017 06:41:27
Defence
Hallo Leute
Hab da ein kleines Problem. Folgender Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("M7").Value > 0 Then
Range("o7").Select
End If
If Range("O7").Value > "" Then
Range("M9").Select
End If
If Range("M9").Value > 0 Then
Range("o9").Select
End If
End Sub

Eigentlich soweit ok. Wenn jetzt aber in O9 was drin steht, und in den anderen Zellen nichts steht, und ich dann in M7 etwas eintrage springt er mir nicht auf O7 sondern auf O9. Was mache ich falsch? Wenn alle Zellen leer sind, dann springt er genau dorthin wo ich will!!!
Danke für eure Hilfe.
Gruss
Defence

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

Betreff
Datum
Anwender
Anzeige
AW: Nächste Zelle anwählen VBA
23.02.2017 07:17:28
Bernd
Hi,
also mit exakt Deinen Angaben und dem Code, funktioniert bei mir, kann da keine Fehler finden.
https://www.herber.de/bbs/user/111680.xlsm
MfG Bernd
Target.Column/Row
23.02.2017 08:18:46
Max2
Hallo,
versuche es mal so:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 13 Then
If Range("M7").Value > 0 Then
Range("O7").Select
ElseIf Range("M9").Value > 0 Then
Range("O9").Select
End If
ElseIf Target.Column = 15 Then
If Range("O7").Value > 0 Then
Range("O9").Select
End If
End If
End Sub 

Anzeige
AW: Target.Column/Row
23.02.2017 14:07:51
Defence
Hallo Max2
Passt fast. Ich kriege es aber für diese Formatierung nicht hin.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("M7") Is Nothing Then Exit Sub
If Range("M7").Value > 0 Then
Range("o7").Select
End If
If Range("O7") Is Nothing Then Exit Sub
If Range("O7").Value > 0 Then
Range("M9").Select
End If
If Range("M9") Is Nothing Then Exit Sub
If Range("M9").Value > 0 Then
Range("O9").Select
End If
If Range("O9") Is Nothing Then Exit Sub
If Range("O9").Value > 0 Then
Range("M11").Select
End If
End Sub

Sobald nicht alle Zellen leer sind, funktioniert's nicht mehr.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige