VB-Skript - Range springt immer wieder nach oben

Computer: Software & Programmierung Visual Basic
#1

_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:

G Red_

#2

Hallo Red

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

Grüsse Niclaus

#3

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

Gruß
Reinhard

#4

Hallo Red

Ich muss mich selber ergänzen und korrigieren:

Das kommt ja wegen dem Range.

Das kommt nicht wegen dem Range sondern wegen dem Range().Select
und man lässt dann einfach das Select weg.

Niclaus

#5

Perfekt!

Ich kann nur sagen: PERFEKT:smile: VIELEN DANK!