Office: Dateien aus Liste erstellen und nach diesen Datein suchen ??

Hallo Zusammen,

Ich bin ein absoluter VBA-Neuling und brauche eure Hilfe!! Hab schon was länger hier gesucht aber so absolut glücklich bin ich bisher leider nicht geworden... Hier mein "Problem":


Also, zur Gesamtsituation, ich habe ca. 150 Adressen, jeder ist eine 4stellige Objektnummer zugewiesen. Vorgestellt hab ich mir die ganze Sache so:

Als ersten Schritt hab ich hier meine Liste sortiert nach Objektnummer (Spalte A = Nummer, Spalte B = Ort, Spalte C = Adresse), jetzt wollte ich aus dieser Liste gerne zu jedem Objekt eine Datei erstellen die in etwa aussieht wie "0000_-_Ort_-_Adresse.xls" erstellen lassen. Am besten wäre es noch, wenn die neu erstellten Datein alle das Format einer von mir erstellten Vorlage hätten (die hier z.B. Technik heisst)

Den zweiten Schritt hatte ich mir so überlegt:
Ich hab jetzt ein Verzeichnis, in dem ein Ordner mit den eben erstellten Dateien ist (namentlich Objekte), sowie eine xls-Datei (genannt "Suche"). Diese Datei sollte jetzt folgendes machen (da hab ich schon ein bisschen mit Skrips von hier rumprobiert aber wirklich geklappt hats nicht):
- Ein Suchfenster öffen in dann man entweder die NUMMER, den ORT oder die ADRESSE eingeben kann
- Das wird dann in dem eben genannten Ordner "Objekte gesucht
- Bei einem Treffen wird die gefundene Datei geöffnet und die "Suche-Datei" geschlossen

Das wars auch schon ;-)
Naja, ich denke grundsätzlich sind das wahrscheinlich 2 nicht seht große Aufgaben aber ich bin trotzdem auf eure Hilfe angewiesen!! Hätte auch nichts gegen Vorschläge, wie man das ganze besser umsätzen könnte oder so..

Danke schonmal, Gruß Julian :-)

 

Hallo!

(alles ungetestet!)
Den ersten Schritt könntest du über eine For-Next-Schleife realisieren:

For i = 1 To 150
With ThisWorkbook.Sheets("Blattname")
Workbooks.Add "Technik.xlt"
ActiveWorkbook.SaveAs "C:\Excel\" & .Cells(i, 1) & "-" & .Cells(i, 2) & "-" & .Cells(i, 3) & ".xls"
ActiveWorkbook.Close
Next i

Für den zweiten Schritt solltest du in der VBA-Hilfe mal nach "FileSearch" suchen.

 

also soweit meine nicht so sehr ausgeprägten Programmierkentnisse das verstehen, siehts das gut aus.. :-)
Nur leider funktioniert das noch nicht so wirklich. ich hab mir die VBA hilfe angeschaut, das ganze auch mal als "For-Each" probiert, aber ich bekomme immer die Fehlermeldung
"Fehler beim Kompilieren: Next ohne For"

Was mache ich jetzt am besten, die Hilfe bringt mich gerade auch nicht wirklich weiter!

 

Sorry, das war mein Fehler...

For i = 1 To 150
With ThisWorkbook.Sheets("Blattname")
Workbooks.Add "Technik.xlt"
ActiveWorkbook.SaveAs "C:\Excel\" & .Cells(i, 1) & "-" & .Cells(i, 2) & "-" & .Cells(i, 3) & ".xls"
ActiveWorkbook.Close
End With
Next i

 

ah okay, super.. nur leider geht es weiter :-(
Jetzt gibt es den "Laufzeitfehler 9: Index außerhalb des gültigen Bereichs"

Ich denke mal das Problem ist das er die Daten nicht so richtig erkennt (soweit ich die Hilfe verstanden habe). Eigentlich brauch er ja nur die Zeilen durchzugehen, wie das auch schon in deinem Skript steht. Also Spalte1 ist halt die Nummer, 2 der Ort und 3 die Adresse..

Oder hab ich vielleicht was falsch gemacht? Bin echt ein total Neuling auf dem Gebiet, bei mir beschränkt sich das Programmieren auf ein bisschen html und JavaScript aus der Schule :lol:

 

HA, habs selbst gefunden!!

Ich hatte noch als "Blattname" drin stehen und nicht meinen Blatttitel!

Danke schon mal soweit!! :-D

Hast du vielleicht auch noch ne Idee wie ich jetzt weitermachen soll?

 

Dann müssten doch jetzt deine 150 Dateien erstellt worden sein, oder nicht?

 

ja genau, war so erfreut das es geklappt hat das ich glatt vergessen hab, dass ich ja erstmal ein bisschen suchen sollte ;-)
Ich meld mich dann nochmal falls ich Probleme damit habe.

Zuerst aber Danke nochmal!

 

Hier hab ich schon mal was recht Änliches gefunden, und ein bisschen verändert. Nur ich hab keine Ahnung wie ich das für meine "Suchbegriffe" umschreibe.. mit deinem Tipp in Richtung SearchFile bin ich leider nicht wirklich weiter gekommen.
Das Skript war grundsätzlich dafür gedacht Dateien anhand 3stelliger Zahlen zu finden und zu öffnen

Code:

Sub Workbook_open()

Dim strDatei As String
Dim blnFrage As Boolean

strDatei = Application.InputBox("Objektnummer oder Name eingeben", "Datei öffnen", "987")
If strDatei = blnFrage Then Exit Sub

If Dir("C:\Excel\" & strDatei & ".xls") "" Then Workbooks.Open ("C:\Excel\" & strDatei & ".xls")
Else
MsgBox "Datei nicht vorhanden!"
End If

End Sub

kann man damit was anfangen?

Mein Dateiname sieht jetzt auch aus wie oben gesagt, die Dateien sind in einem festen Ordner.
Und jetzt halt --> Suchen --> Öffnen --> Suchformular schließen

Danke schonmal

PS: Hier ist das Original http://www.office-loesung.de/ftopic99869_0_0_asc.php

 

Hallo!

Vielleicht kommst du hiermit weiter?

Code:

Sub test()
Dim Mappe As String, Such As String
'Den Suchbegriff aus den Zellen A1, B1 oder C1 einlesen:
If Range("A1") <> "" Then Such = Range("A1")
If Range("B1") <> "" Then Such = Range("B1")
If Range("C1") <> "" Then Such = Range("C1")
Const Pfad = "C:\Excel\" 'hier den Zielpfad anpassen!!!
Mappe = Dir(Pfad & "*.xls")
'Die Excel-Mappen des Verzeichnisses abklappern:
Do While Mappe <> ""
'Kommt der Suchbegriff im Dateinamen vor? Dann raus!
If InStr(Mappe, Such) > 0 Then Exit Do
Mappe = Dir
Loop
'Mappe gefunden? Dann öffnen!
If Mappe <> "" Then Workbooks.Open Pfad & Mappe
End Sub

 

Also erstmal danke für die Hilfe..
Hm, also dein Skript gehört quasi zur Excel-Datei mit der Liste oder? Was fehlt wäre halt ein Fenster, in das ich den Suchbegriff eingebe - in erster Linie die 4stellige Nummer (könnte auch was aus Spalte 2 oder 3 sein, das ich aber eher nicht so wichtig)..
Wie macht man sowas? Grundsätzlich hab ich mich jetzt auch ein klein wenig in "FileSearch" eingelesen, das sieht ziemlich nach dem aus was ich suche - und das verhältnismäßig einfach ;-) aber halt immernoch ein bisschen zu schwer für mich, mein Problem ist die Eingabe

Code:

Application.FileSearch
    .LookIn = "C:\Excel\"
    .FileType = msoFileTypeExcelWorkbooks
    .MatchTextExactly = False
    .Execute

das "False" denke ich gehört rein, weil wenn die Datei jetzt 0000_-_Ort_-_Adresse heisst, würde er ja sonst nicht die 0000 finden oder?
Mein Problem ist jetzt das ich das nicht weiter einschränken kann, also ich bekomms nicht hin, ein Fenster zu öffnen was vorher nach einem Suchbegriff fragt. Und noch öffnet mir das Skript die gefundene Datei auch nicht (genausowenig wie das sich Excel-Datei wieder schließt, in der das Such-Skript ist).

Hoffe ich drücke mich verständlich aus. Mir gehts halt darum, das ich als Liste und Suche 2 verschiedene Dateien habe, die Liste hatte ich nur zum Dateien erstellen. Deshalb dachte ich, dein erster Vorschlag mit FileSearch wäre vielleicht wirklich besser - womit wir wieder bei meinen Problemen von oben sind.
Ich komm auch nicht wirklich durch google weiter, find da meisstens halt nur in meinen Augen viel komplexere Aufgaben, und auf ein gutes Tutoruial bin ich auch noch nicht gestoßen.

Nochmal danke im voraus :-)