Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
452to456
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
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Vlookup

Vlookup
13.07.2004 14:20:34
Dominic
Hallo!
Kann mir jemand helfen? Ich habe ein Problem mit vlookup. Das Code ist wie folgt:
Dim a As Double
Dim arg1 As String
Dim arg2 As String
For a = 2 To Rows.Count
arg1 = Cells(a, 2).Value
If IsEmpty(Cells(a, 1)) = True Then
Exit For
ElseIf Cells(a, 6).Value "ROW" And Cells(a, 7) = "2001" Then
arg2 = "'[split.xls]%'!R141C2:R186C6"
Cells(a, 21).Value = Application.WorksheetFunction.VLookup(arg1, arg2, 2, False)
usw....
End If
Next a
End Sub
Irgendwie wird arg1 und arg2 nicht erkannt. Bin für jede Hilfe dankbar!
Vielen Dankt im Voraus!
Gruß,
Dominic

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

Betreff
Datum
Anwender
Anzeige
AW: Vlookup
Uduuh
Hallo,
mit einem Range als arg2 sollte es gehen:
Dim a As Double
Dim arg1 As String
Dim arg2 As Range
For a = 2 To Rows.Count
arg1 = Cells(a, 2).Value
If IsEmpty(Cells(a, 1)) = True Then
Exit For
ElseIf Cells(a, 6).Value "ROW" And Cells(a, 7) = "2001" Then
Set arg2 = Workbooks("split.xls").Sheets("%").Range("B141:F186")
Cells(a, 21).Value = Application.WorksheetFunction.VLookup(arg1, arg2, 2, 0)
usw....
End If
Next a
Gruß aus'm Pott
Udo
AW: Vlookup
GerdZ
Hallo Dominic,
versuchs mal mit:
Dim arg2 As Range
Set arg2 = Workbooks("split.xls").Sheets("%").Range("B141:F186")
Gruß
Gerd
Anzeige
Vielen Dank für die Hilfe!
14.07.2004 10:56:34
Dominic

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige