vlookup klappt nicht

Hallo Wissende,
seit Tagen hänge ich an einer Codezeile fest und komme nicht weiter, ich muss da wohl immer den gleichen Denkfehler machen :-(
erg bleibt immer leer weil vlookup nichts findet, egal ob ich nach 39 oder "39" suche.
Sub tt() blatt = Array("Tabelle 1", "Tabelle2", "Tabelle3") On Error Resume Next For b = 1 To 3 For n = 1 To 3 Step 2 'Spalten 1 und 3=A und C erg = WorksheetFunction.VLookup("39", Worksheets(blatt(b)).Range("A1:B5"), 2, 0) If erg <> "" Then gef = True Exit For End If Next n If erg <> "" Then Exit For Next b If erg = "" Then MsgBox "nix da" Exit Sub End If End Sub
Gedacht war der Code mal als Hilfe zu https://www.herber.de/forum/messages/634421.html
aber dieses vlookup macht mir Schwierigkeiten derzeit, hier die datei damit ihr es einfacher nachbauen könnt bzw dies nicht tun müsst:
https://www.herber.de/bbs/user/24622.xls
Gruß
Reinhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub tt() blatt = Array("Tabelle1", "Tabelle2", "Tabelle3") On Error Resume Next For b = 0 To 2 For n = 1 To 3 'Spalten 1 und 3=A und C erg = WorksheetFunction.VLookup(39, Worksheets(blatt(b)).Range("A1:b6"), 2, 0) If erg <> "" Then gef = True Sheets(blatt(b)).Cells(7, 1).Value = erg Exit For End If Next n If erg <> "" Then Exit For Next b If erg = "" Then MsgBox "nix da" Exit Sub End If End Sub

Hallo Udo,
habs korrigiert/geändert zu:


Option Base 1
Sub tt()
blatt = Array("Tabelle1", "Tabelle2", "Tabelle3")
On Error Resume Next
For b = 1 To 3
For n = 1 To 3 Step 2 'Spalten 1 und 3=A und C
erg = WorksheetFunction.VLookup("39", Worksheets(blatt(b)).Range("C1:D5"), 2, 0)
If erg <> "" Then
gef = True
Exit For
End If
Next n
If erg <> "" Then Exit For
Next b
If erg = "" Then
MsgBox "nix da"
Exit Sub
End If
End Sub

was aber keine Rolle spielt weil immer noch "nix da" angezeigt wird :-(
Bezogen auf die Tabelle1:

Und da habe ich die bisher nicht erfüllte Erwartungshaltung dass er die 39 in Spalte C findet.
Diese For-Schleife stammt quasi noch von Chris Bs Anfrage weil er da warum auch immer innerhalb eines Blattes mehre Tabellen hat wobei die erste Spalte dieser Tabellen in B, I und P zu finden sind.
Ich baute dies mit A1:B5 und C1:D5 nach aber kriege es nicht hin. Wobei das nicht das problem ist, das bastle ich mir schon, dieses vlookup macht mir üble Kopfschmerzen.
Gruß
Reinhard

Sub tt() blatt = Array("Tabelle1", "Tabelle2", "Tabelle3") On Error Resume Next For b = 0 To 2 For n = 1 To 3 Step 2 'Spalten 1 und 3=A und C erg = WorksheetFunction.VLookup(39, Worksheets(blatt(b)).Range("c1:d5"), 2, 0) If erg <> "" Then gef = True Exit For End If Next n Next b If Not gef Then MsgBox "nix da" Else MsgBox erg End If End Sub

Option Explicit Sub testVLookup() Dim b%, n%, erg, gef As Boolean For b = 1 To 3 ' 1. bis 3. Worksheet With Worksheets(b) For n = 1 To 3 Step 2 ' Spalten 1 und 3 (A und C) On Error Resume Next erg = WorksheetFunction.VLookup( _ 39, Range(.Cells(1, n), .Cells(5, n + 1)), 2, 0) On Error GoTo 0 If erg <> "" Then gef = True: Exit For Next n If gef Then Exit For End With Next b If Not gef Then MsgBox "nix da" Else MsgBox erg End Sub

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

vlookup klappt nicht

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread