Suchfunktion in VBA
05.09.2005 15:22:45
Steve
hab ein VBA Programm geschrieben um in einer Zeile einen bestimmten Eintrag zu suchen. Wenn gefunden soll der Wert zwei Spalten weiter rechts übernommen werden. Sieht dann so aus:
gefunden = False
j = 5
Do Until gefunden = True
If Sheets("Tabelle1").Range("A38").Offset(0, j) = "Name" Then gefunden = True
If Sheets("Tabelle1").Range("A38").Offset(0, j) = "Name" Then _
Range("R3") = Sheets("Tabelle1").Range("A38").Offset(0, j + 2) _
Else: j = j + 1
Loop
Dass programm funktioniert eigentlich, nur manchmal bekomme ich werte zurück die nicht zwei spalten weiter rechts sind, sondern auch mal 3 oder nur 1!
Sieht jemand den Fehler? ich werd dadraus ned schlau!
Schon mal dankeschön
und Gruß an alle die bei dem Wetter auch im Büro hocken!
Steffen