Office: VLOOKUP-Wert in Zelle

nögg · 13. September 2008

Hallo miteinander

Ich benutze diese Formel um meine Tabelle zu aktualisieren:
Code:

Sub SVerweis()
Dim lngZ As Long
For lngZ = 30 To Cells(Rows.Count, "C").End(xlUp).Row

Range("B" & lngZ).Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],[Parameter.xls]Tabelle1!R2C1:R785C11,2,0)"
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun wird direkt die SVerweis-Formel in die Zelle geschrieben. Eigentliche benötige ich nur den Wert. Eine Verknüpfung zur Tabelle benötige ich nicht.
Besteht die Möglichkeit nur den Wert der Formel in die Zelle zu schreiben.

Vielen Dank für die Antwort.

Grüsse
Bruno

:)

jinx · 15. September 2008

Moin, Bruno,

WorksheetFunctiuon.VLookUp nutzen:

Code:

ActiveCell.Value = WorksheetFunction.VLookup(Range("A1"), Workbooks("Parameter.xls").Worksheets("Tabelle1").Range("A$2:$K$785"), 2, 0)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

P.S.: Es ist nicht nötig, die Zellen vor dem Beschreiben zu aktivieren... *wink.gif*

IngGi · 15. September 2008

Hallo Bruno,

die schnellste Möglichkeit ist:

Formel in die erste Zelle reinschreiben
Formel runterkopieren
Formeln durch Werte ersetzen

Code:

Backowe · 15. September 2008

Hi,

Code:

IngGi · 15. September 2008

Hallo zusammen,

ok, das mit der schnellsten Möglichkeit nehm ich wieder zurück. jinx' Variante ist noch direkter (und nebenbei gesagt Jürgens Variante mit dem .Value = .Value schlanker und eleganter).

Gruß Ingolf

NoNet · 15. September 2008

Moin Backowe,

Du hast die perfekte Lösung gepostet und nicht die "bekannten" Fehler gemacht wie man sie oftmals liest :

- Funktion ohne FILLDOWN direkt in relevanten Bereich geschrieben
- Code komplett ohne Variablen (diese sind hier überflüssig)
- Rows.Count anstatt fester Zeilennnummer
- engl. Funktionsnamen (.FormulaR1C1) anstatt lokalisierte deutsche Version (.FormulaR1C1Local)

Allenfalls auf ein potentielles Risiko möchte ich noch hinweisen :
Ich verwende die Schreibweise "C" zur Angabe der Spalte in Cells(...) auch recht gerne, hatte in einigen Projekten/AddIns aber unerklärlicherweise schon Probleme damit. Nachdem ich den Spaltenbuchstabe ("C") in den Spaltenindex (hier: 3) ausgetauscht hatte, waren die Probleme verschwunden *entsetzt

Wünsche Dir noch eine schöne Woche....

Backowe · 15. September 2008

Hi NoNet,

ich bin ja noch lernfähig, Du hast mir ja schon des öfteren den Kopf deswegen gewaschen. Irgendwann habe sogar ich es kapiert! *grins

Dir auch ein schöne Woche, ich werde erst am 06.10. wieder arbeiten! *grins

nögg · 15. September 2008

Vielen Dank euch allen.

Funktioniert einwandfrei.

Grüsse
Bruno

Fösi · 15. Oktober 2008

Hallo zusammen

Habe das gleiche Problem wie Nögg.
Nur sieht mein Vlookup so aus.
Was muss hier gemacht werden, damit nur die Werte in die Tabelle geschrieben werden?

Gruss
Fösi

For intZähler = 2 To intLastRow
Cells(intZähler, Spalte) = "=VLOOKUP(" & Suchkriterium & "," & quelle & "," & Spaltenindex & ",0)"
Next intZähler

jinx · 15. Oktober 2008

Moin, Fösi,

#2 angucken... *wink.gif* (ungetestet)

Code:

Cells(intZähler, Spalte) = WorksheetFunction.VLookup(Suchkriterium, quelle, Spaltenindex, 0)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Fösi · 15. Oktober 2008

Morgen Jinx

Leider funktioniert es so nicht. Die Meldung erscheint:
Laufzeitfehler '1004':
Die VLookup-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet
werden.

Vielleicht hilft dir mein Code weiter.
Tschüss
Fösi

Code:

Sub SverweisMitExternerDatei()

'Definition der Variablen
Dim quelldateipfad As String
Dim quelldateiname As String
Dim quelledatei As String
Dim quelltabellenblattname As String
Dim quelle As String
'-------------------------------------
Dim Suchkriterium As String
Dim Matrix As String
Dim Spaltenindex As Integer
'-------------------------------------
Dim intLastRow As Integer
Dim intZähler As Integer
'-------------------------------------
Dim Spalte As String

'Zuordnung für Sverweis (Suchkriterium-Matrix-Spaltenindex)
Suchkriterium = "A:A"
Matrix = "$B:$V"
Spaltenindex = "4"

'Zuordnung für die externe Tabelle
'quelldateipfad = "P:\Bereiche\Fabrikation\Zahnbürstenbudget\"
quelldateipfad = "C:\Temp\"
quelldateiname = "Budget Aktuell.xls"
quelledatei = quelldateipfad & quelldateiname
quelltabellenblattname = "Budget"

quelle = "'" & quelldateipfad & "[" & quelldateiname & "]" & quelltabellenblattname & "'" & "!" & Matrix

'In welche Spalte sollen die Werte auf der Hauttabelle eingelesen werden?
Spalte = "C"

'letzte Zeile auf Hauttabelle ermitteln
intLastRow = Cells(Rows.Count, 1).End(xlUp).Row
'MsgBox "Es werden " & intLastRow & " Zeilen verwendet!"

'Überprüft ob Datei vorhanden ist
If Dir(quelledatei) = "" Then
MsgBox "Die Datei " & quelledatei & " existiert nicht"
Else
'Schleife für Sverweis
For intZähler = 2 To intLastRow
'Cells(intZähler, Spalte) = "=VLOOKUP(" & Suchkriterium & "," & quelle & "," & Spaltenindex & ",0)"
Cells(intZähler, Spalte) = WorksheetFunction.VLookup(Suchkriterium, quelle, Spaltenindex, 0)
Next intZähler
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: VLOOKUP-Wert in Zelle

VLOOKUP-Wert in Zelle

VLOOKUP-Wert in Zelle

VLOOKUP-Wert in Zelle

VLOOKUP-Wert in Zelle

VLOOKUP-Wert in Zelle - Similar Threads - VLOOKUP Wert Zelle

VLOOKUP-Funktionalität in Power Pivot

vlookup macht probleme

Die VLookup-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden.

VLookup/Sverweis mit Variablen/Range

Fehler in vlookup wenn kein Wert gefunden, wie prüfen?

Problem bei Excel - VBA Makro SVERWEIS funktioniert nicht!

werte von einem vlookup ändern