Supportnet / Forum / Tabellenkalkulation

Hallo, ich brauch Eure Hilfe!!! Ich hab einen VBA Code der eine Datei öffnet nachdem man den Dateinanmen in eine Inputbox eingibt öffnet (z.B. Dateiname 1234B2). Die Dateien liegen an einem bestimmten Speicherort. Jetzt meine Frage: Jede Datei soll in einen eigenen Ordner gespeichert werden. Der Ordner soll den gleichen Namen haben wie die Datei. Wie kann ich den Code erweitern das erst in dem Speicherort der Ordner gesucht wird (z.B. 1234B2), wenn der Ordner gefunden ist, die dort gespeicherte Datei dann öffnet (z.B. 1234B2). Ich danke Euch für Eure Mühe!!!! Gruß Elhamplo

Hi Elhamplo,

nachfolgend mal ein Beispielmakro, welches unter C:\ in dem Verzeichnis, welches genauso heißt wie die Datei die geöffnet werden soll, die Datei, deren Name in einer Inputbox eingegeben wurde, sucht. Wenn vorhanden, wird diese geöffnet, wenn nicht, erscheint eine Bildschirmmeldung.

Option Explicit

Sub Datei_Öffnen()
Dim Dateiname As String
Dateiname = InputBox("Bitte Namen der zu öffnenden Datei eingeben")
If Dateiname = "" Then Exit Sub
If Dir("C:\" & Dateiname & "\" & Dateiname & ".xls") <> "" Then
Workbooks.Open Filename:="C:\" & Dateiname & "\" & Dateiname & ".xls"
Else
MsgBox "Datei nicht vorhanden", vbInformation, "Fehler..."
End If
End Sub

Ich hoffe, Du hast das so gemeint. Wenn nicht, dann melde Dich nochmal bitte.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hey,

Einfach super!!! Funst!!!! Danke!!!!!

Sorry, kam erst jetzt dazu den Code auszuprobieren.

Kannst Du mir vielleicht mal Literaturhinweise bezüglich VBA Geben (Ich will auch so was könen)?

Ich Dank Dir!!!!

Gruß

Elhamplo

Hi Elhamplo,

danke Dir für Deine Rückmeldung.

Einen Literaturtipp kann ich Dir leider nicht geben, da ich selber keine Bücher darüber besitze. Ich bin mit Visaul Basic durch meinen Beruf vorbelastet, da ich unter anderem in dieser Spache dort programmiere. Alles weitere, also VBA (Visual Basic for Application) habe ich mir durch "learning by doing" angeeignet. SOrry, das ich Dir da nichts nennen kann.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo

Ich hab den Einstieg mit Christian Friedrich´s VBA mit Excel gemacht und kann es nur sehr emphehlen.

(715 Seiten) und natürlich
www.Excelbeispiele.de

Gruß

• Datei öffnen
• Abfrage auf ABBRUCH in InputBox
• VBA - Inputbox
• VBA - Import mit Pfadangabe (Inputbox)