Supportnet / Forum / Tabellenkalkulation

Moin!!!!! Ich brauch mal wieder Eure Hilfe. Ich habe eine Tabelle erstellt die mit Hilfe eines Makros in Verzeichnis W:\Daten\ gespeichert wird. Der Dateiname wird aus der Zell D 8 geommen eine Auftragsnummer z.B. 3D4567. Nun meine Frage: Ich möchte gerne an einem anderen PC diese z.B. mit der obrigen Bezugsnummer Datei öffnen, indem ich die Auftragnummer in eine Inputbox schreibe. (Natürlich sind noch mehrere Dateien in diesem Ordner alle mit auftragsnummern als Dateinamen.) Ich danke für Eure Hilfe!!!!! Gruß Elhamplo

Moin Elhmplo,

versuch es mal so:

Sub datei_öffnen()
Dim datei As String
datei = InputBox("Geben sie den Dateinamen ein!")
If datei = "" Then
Exit Sub
End If
Workbooks.Open Filename:="W:\Daten\" & datei
End Sub

Wobei es allerdings Schwierigkeiten geben könnte, wäre der Pfad "W:\Daten\" der auf einm anderen PC eventuell angepast werden müsste.

MfG

JöKe

Hallo

Option Explicit

Private Sub CommandButton1_Click()
Dim fname$, testn$
fname = InputBox("ArtikelNummer eingeben!" & vbCr & "Die Excel-Datei wird dann geladen.")
fname = "W:\Daten\" & fname & ".xls"
testn = Dir(fname)
 If Right(fname, Len(testn)) = testn And Len(testn) > 0 Then
  Application.Workbooks.Open fname
   Else
    MsgBox fname & " nicht gefunden"
End If
End Sub

Nach klick auf den CommandButton1 kommt die Inputbox, wird die eingegebene Datei mit der Endung .xls im Verzeichnis W:\Daten gesucht und wenn gefunden, geöffnet.
Ich hoffe es ist das was Du suchst.

Gruß

Hallo,

vielen vielen Dank für die schnelle Lösung!!!!!

Super!!!! So was brauchte ich!!!!!!

DANKE, DANKE, DANKE!!!!

Gruß

Elhamplo

• Abfrage auf ABBRUCH in InputBox
• VBA InputBox Problem
• VBA - Inputbox
• VBA - Import mit Pfadangabe (Inputbox)