ich stehe mal wieder vor einem größerem Problem. Ich habe ca. 300 Excel Mappen wo automatisiert nach einem einheitlichen Begriff "Buchung XXX" in einer Spalte gesucht werden soll und dieser Wert daneben in einer neuen Excel Mappe ausgegeben werden soll, zusammen mit den Zellen "J3" und "J4".
Mit einer einzigen Excel Mappe, bekomme ich dies wie folgt hin:
Sub suchen()
Dim strString As String, rngCell As Range
strString = "Buchung XXX"
Set rngCell = Columns(6).Find(strString, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not rngCell Is Nothing Then
rngCell.Offset(0, 4).Resize(1, 1).Copy
Worksheets("NEU").Cells(1, 3).PasteSpecial xlValues
Range("J3").Copy
Worksheets("NEU").Cells(1, 1).PasteSpecial xlValues
Range("J4").Copy
Worksheets("NEU").Cells(1, 2).PasteSpecial xlValues
'MsgBox rngCell.Address 'Ausgabe als Textbox
Else
MsgBox "FEHLER"
End If
End Sub
Jetzt möchte ich dies jedoch automatisiert über die besagten 300 Tabellenblätter anwenden, welche sich alle in einem einzelnen Ordner befinden. Es soll sich daraus eine neue Excel Mappe generieren mit den zusammengetragenen o.g. Werten.Vielen Dank für eure Unterstützung.
LG Marcel