Zeilennummer in externen Dateien

Hallo liebes Forum,
ich lese hier schon seit einger Zeit fleissig mit und lerne von den vielen Beiträgen.
Meine 40 Jahren alten C64-Basic und Pascal (!) Kenntnisse reichen aus, um zu verstehen, was ihr da so macht und eure Zeiel so abzuändern, dass Excel das macht, was ich dann will.
Aber jetzt habe ich einen Hirndreher und drehe mich ständig im Kreis - ich komme nicht drauf, was ich falsch mache.
Mein Quellcode-Schnippsel (schreibe darunter, was ich vorhabe):


Do While strFile_Laender  ""
' erstmal das Bundesland nachschlagen und in die Zielmappe/Zielzeile eintragen
Cells(loZeileZielmappe, 1).Formula = _
"='" & strPath_Laender & "[" & strFile_Laender & "]" & "3.2 Engpass_Tab2" & "'!T4"
' Suche in der Quellmappe die Zeilennummer des Suchwortes und schlage dann den Wert in der  _
Zeile nach
With Worksheets("" & "'" & strPath_Laender & "[" & strFile_Laender & "]" & "3.2 Engpass_Tab2"  _
_
_
& "'" & "")
Set myTableArrayBerufsgruppen = .Range(.Cells(1, 2), .Cells(118, 2))
End With
' Suche in dem Array mit MATCh die Zeilennummer raus und dann den Wert in Spalte S
' Cells(loZeileZielmappe, 2).Formula = _
"='" & strPath_Laender & "[" & strFile_Laender & "]" & "3.2 Engpass_Tab2" & "'!S12"
loZeileZielmappe = loZeileZielmappe + 1
strFile_Laender = Dir()
Loop

Erst mal, was ich grundsätzlich vorhabe:
Ich öffne die externen XLSX.Dateien in meinem lokalen Verzeichnis und schlage Werte in den dortigen Mappen nach und trage sie in die Zieltabelle ein.
Das funktioniert auch bereits super, so trägt mein Script die Bundesländer aus den externen Daten in die Spalte A schön untereinander ein.
Jetzt aber zu meinem Problem:
In diesen externen Dateien soll das Script in dem Worksheet "3.2 Engpass_Tab2" die Spalte B:B nach dem in Variable Berufsgruppe gespeicherten Suchwort durchsuchen und mir die Zeilennummer ausspucken.
Diese Zeilennummer brauche ich, damit ich in Spalte S dann den entsprechenden Wert zum Bundesland in meine Zielmappe übertragen will.
Meine Idee war, die Spalte B in ein Array zu überführen, um dann mit MATCH die Zeilennummer herauszubekommen.
Und beides will mir nicht gelingen:
Ich bekomme weder das Array richtig hin
noch die Zeilennummer mit dem Match-Befehl (Syntax-Fehler nach Syntax-Fehler)
Könnte mir jemand bitte helfen?
Danke schon einmal im Vorab.
Und bitte macht fleissig weiter so in diesem Forum.. das ist eine super Quelle, um VBA zu lernen (bzw. sich selbst zu helfen).
LG
Patrick

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim rng_fund as Range dim str_suchwort as string str_suchwort = "test" set rng_fund = Worksheets("Tabelle1").Columns(2).Find(suchwort, LookAt:=xlwhole) if not rng_fund is Nothing Then Msgbox rng_fund.row end if

Dim obj_wkb_quelle as Workbook Dim rng_fund as Range Dim str_suchwort as string Set obj_wkb_quelle = Workbooks.Open ("C:\Ordner\test.xlsx") str_suchwort = "test" set rng_fund = obj_wkb_quelle.Worksheets("Tabelle1").Columns(2).Find(suchwort, LookAt:=xlwhole) if not rng_fund is Nothing Then Msgbox rng_fund.row end if

strPath_Laender = "E:\patrick\Unterlagen HDW\talea\Produktentwicklung\Recruitment Insights\ _ Fachkräfte-Engpass Länder\" strFile_Laender = Dir(strPath_Laender & "*.xlsx") Do While strFile_Laender "" With Worksheets("'" & strPath_Laender & "[" & strFile_Laender & "]" & "3.2 Engpass_Tab2" & "'") _

Hallo regina,
ich befürchte mein Problem ist noch viel trivialer. Komme gleich drauf zurück.
Ich habe ein lokales Verzeichnis, das ich in der Variablen strPath_Laender speichere
In diesem Verzeichnis lliegen etwa 16 xlsx-Dateien, die ich nacheinander durcheghen muss, jeweils in das Tabellenblatt "3.2 Engpass_Tab2", um dann dort in Spalte B die Zeile des Suchworts zu finden
Set obj_wkb_quelle = Workbooks.Open ("C:\Ordner\test.xlsx")
Mein Problem ist der Ausdruck "C:\Ordner\test.xlsx" - wohl eher die ", wenn ich mit Variablen diesen Pfad "nachstelle":
Set obj_wkb_quelle = Workbooks.Open (" & strPath_Laender & strFile_Laender & ")
Wenn ich diese Zeile jetzt wieder auflöse, dann fehlen mir doch eigentlich die ", oder?
also aus meiner Zeile wird doch
Set obj_wkb_quelle = Workbooks.Open (C:\Ordner\test.xlsx)
Aber dann fehlen doch die " um meinen Dateipfad.
Und genau da hänge ich gerade fest...

with Worksheets("" & "'" & strPath_Laender & "[" & strFile_Laender & "]" & "3.2 Engpass_Tab2" & _ "'" & "") Set Suchergebnis = .Range("B1:B" & .Cells(rows.count, "B").end(xlup).row).find(Cells( _ loZeileZielmappe, 1).Value, xllookin:=XlValues, Lookat:= xlWhole) if not Suchergebnis is nothing then Cells(loZeileZielmappe, 1).offset(,1).Value = Suchergebnis.offset(,-1).Value end if End With

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread