Zellzeiger & VBA
28.02.2006 12:30:53
maze
ich möchte in meiner Pivottabelle meinen Zellzeiger auf eine Auftragsnummer stellen und die entsprechende Exceldatei aus meinem Verzeichnis aufrufen.
Bisher habe ich die Auftragsnummer in Zeile A1 kopiert und dann die Datei auf den Schirm geholt. Das ganze ist aber nervig.
Dateiname = Auftragsnummer, ist klar.
Sub Datei_hochziehen()
Dim Filename As String
Filename = "K:\Kostentraeger\" & Sheets("Pivot").Range("a1") & ".xls"
If Dir(Filename) = "" Then
MsgBox "Gesuchte Datei wurde nicht gefunden."
Exit Sub
Else
Workbooks.Open Filename
End If
End Sub
Mit der Bitte um Hilfe
Matthias