Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon SARP vom 19.05.2022, 15:43 Options
sverweis
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
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
Antwort 1 von Hajo_Zi vom 19.05.2022, 15:52 Options
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
ich würde vermuten so
ThisWorkbook.Sheets(datei5).Cells(i, 36).Formula = "=vlookup(A" & i & ",sheets(datei4)!C:L,10,False)"
Gruß Hajo
Antwort 2 von SARP vom 19.05.2022, 16:08 Options
hi hajo,
danke für den Hinweis aber daran liedgt es nicht bekomme immer noch den laufzeitfehler 1004
warum aber ?
danke für den Hinweis aber daran liedgt es nicht bekomme immer noch den laufzeitfehler 1004
warum aber ?
Antwort 3 von Hajo_Zi vom 19.05.2022, 16:14 Options
Hallo Unbekannte,
jetzt getestet.
Gruß Hajo
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
Antwort 4 von SARP vom 19.05.2022, 16:15 Options
Hi hajo,
danke für die info werde es sofort testen und mich melden
gruß
SARP
danke für die info werde es sofort testen und mich melden
gruß
SARP
Antwort 5 von SARP vom 19.05.2022, 16:29 Options
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
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
Antwort 6 von Hajo_Zi vom 19.05.2022, 16:33 Options
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
davon war nicht die rede das der Tabellennamen Leerstelen enthält.
ActiveCell.Formula = "=vlookup(A" & I & ",'" & Datei4 & "'!C:L,10,False)"
Gruß Hajo
Antwort 7 von SARP vom 20.05.2022, 08:54 Options
hi hajo
vielen dank für deine hilfe
hast mir sehr geholfen. Danke!
vielen dank für deine hilfe
hast mir sehr geholfen. Danke!
Ähnliche Themen
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
