_Sub TEST()
Dim Zelle As Range
Dim Nachbar Range(„C15:C60“).Select
For Each Zelle In Selection
If Zelle.Value = „Entry“ Or Zelle.Value = „Eingabe“ Then Nachbar = Zelle.Offset(0, 1)
MsgBox Nachbar
End If
Next
End Sub
Servus WWW Nutzer,
ich habe vor kurzem dieses klasse Coding auch von der guten WER WEISS WAS erhalten.
Das Coding funktioniert einwandfrei.
Nur leider habe ich nun ein kleines Problem.
Wenn ich das Coding ausführe und ich mich auf Zelle K1018 befinde, springe ich automatisch wieder auf C.
Das kommt ja wegen dem Range.
Kann mir jemand helfen, das er dies nicht tut. Excel soll dort bleiben wó ich bin, sonst muss man ja immer wieder so viel scrollen:smile:
Nur leider habe ich nun ein kleines Problem.
Wenn ich das Coding ausführe und ich mich auf Zelle K1018
befinde, springe ich automatisch wieder auf C.
Das kommt ja wegen dem Range.
Dann lässt man das Range ganz einfach weg:
Sub test\_neu()
Dim Zelle As Range
Dim Nachbar
For Each Zelle In Range("C15:C60")
If Zelle.Value = "Entry" Or Zelle.Value = "Eingabe" Then
Nachbar = Zelle.Offset(0, 1)
MsgBox Nachbar
End If
Next
End Sub
Wenn ich das Coding ausführe und ich mich auf Zelle K1018
befinde, springe ich automatisch wieder auf C.
Hallo Red,
Option Explicit
Sub TEST()
Dim Zelle As Range
For Each Zelle In Range("C15:C60")
If Zelle.Value = "Entry" Or Zelle.Value = "Eingabe" Then MsgBox Zelle.Offset(0, 1).Value
Next Zelle
End Sub