Dateien aus Liste erstellen und nach diesen Datein suchen ?? :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Dateien aus Liste erstellen und nach diesen Datein suchen ??

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

snowy18
Newbie
Newbie

Anmeldedatum: 22.09.2008
Beiträge: 8

Verfasst am: 22.09.2008, 10:41

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 Wink

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 Smile

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 22.09.2008, 11:36

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.

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

snowy18
Newbie
Newbie

Anmeldedatum: 22.09.2008
Beiträge: 8

Verfasst am: 22.09.2008, 12:17

also soweit meine nicht so sehr ausgeprägten Programmierkentnisse das verstehen, siehts das gut aus.. Smile

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!

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 22.09.2008, 12:22

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

snowy18
Newbie
Newbie

Anmeldedatum: 22.09.2008
Beiträge: 8

Verfasst am: 22.09.2008, 12:30

ah okay, super.. nur leider geht es weiter Sad

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 Laughing

snowy18
Newbie
Newbie

Anmeldedatum: 22.09.2008
Beiträge: 8

Verfasst am: 22.09.2008, 12:33

HA, habs selbst gefunden!!

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

Danke schon mal soweit!! Very Happy

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 22.09.2008, 12:40

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

snowy18
Newbie
Newbie

Anmeldedatum: 22.09.2008
Beiträge: 8

Verfasst am: 22.09.2008, 12:48

ja genau, war so erfreut das es geklappt hat das ich glatt vergessen hab, dass ich ja erstmal ein bisschen suchen sollte Wink

Ich meld mich dann nochmal falls ich Probleme damit habe.

Zuerst aber Danke nochmal!

snowy18
Newbie
Newbie

Anmeldedatum: 22.09.2008
Beiträge: 8

Verfasst am: 22.09.2008, 14:04

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 22.09.2008, 14:27

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

snowy18
Newbie
Newbie

Anmeldedatum: 22.09.2008
Beiträge: 8

Verfasst am: 23.09.2008, 09:55

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 Wink

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 Smile

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Eine Auswahlliste mit Verknüpfung zu ...	anscfz06	Microsoft Excel Hilfe	3	19.11.2008, 22:36
	Zelleninhalte abgleichen nach Doppelten	Knuddl	Microsoft Excel Hilfe	7	19.11.2008, 10:42
	Tabelle nach Seitenumbruch in 2. Zeile	OmaWetterwachs	Microsoft Word Hilfe	0	19.11.2008, 09:43
	Diagramm erstellen Siebversuch	plotti	Microsoft Excel Hilfe	10	14.11.2008, 14:20
	Nach start sofort absturz	hadieb	Microsoft Outlook Hilfe	6	13.11.2008, 14:18

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de