sverweis

Question

Hallo Freunde,

ich möchte per vba die sverweiss in die zellen schreiben lassen, mit formeln bekomme aber Laufzeit fehler 1004 könnt Ihr mir helfen

'#######

sub test ()

Dim datei4, datei5 As String

datei4 = "daten mit testdaten"
datei5 = "daten realewerte"

ThisWorkbook.Sheets(datei5).Cells(i, 36).Formula = "=vlookup(A" & i & ",sheets(datei4),C:L,10,False)"

was ist hier falsch

Answer 1

Hallo Unbekannte(r),

ich würde vermuten so
ThisWorkbook.Sheets(datei5).Cells(i, 36).Formula = "=vlookup(A" & i & ",sheets(datei4)!C:L,10,False)"

Gruß Hajo

Answer 2

hi hajo,

danke für den Hinweis aber daran liedgt es nicht bekomme immer noch den laufzeitfehler 1004

warum aber ?

Answer 3

Hallo Unbekannte,

jetzt getestet.

Option Explicit

Sub test()
Dim I As Long
Dim Datei4 As String
Datei4 = "Tabelle1"
I = 12
ActiveCell.Formula = "=vlookup(A" & I & "," & Datei4 & "!C:L,10,False)"
End Sub

Gruß Hajo

Answer 4

Hi hajo,
danke für die info werde es sofort testen und mich melden

gruß

SARP

Answer 5

hi hajo

danke für deine hilfe
habe es gestest es funktioniert aber

meine datei4 habe ich als string deklariert

die datei besteht aus text und zahl

datenrealewerte 10 = datei4

in die zelleschreibt es aber so rein
=SVERWEIS(A2;Tabelle '10'!C:L;10;FALSCH)
somit bekomme ich fehlerwerte

melde mich später nochmal

Answer 6

Hallo Unbekannte(r)

davon war nicht die rede das der Tabellennamen Leerstelen enthält.

ActiveCell.Formula = "=vlookup(A" & I & ",'" & Datei4 & "'!C:L,10,False)"

Gruß Hajo

Answer 7

hi hajo

vielen dank für deine hilfe
hast mir sehr geholfen. Danke!