Hallo,
ich öffne eine bestimmt Datei mittels Makro, nämlich:
Workbooks.OpenText FileName:=„F:\DRUCK\DATEI.001“,
Der Dateiname ändert sich immer wieder Datei.001 - Datei.012. Jetzt weiss ich,
dass es einen Parameter gibt, damit sich beim abarbeiten des Makros ein
Fenster öffnet, um die Datei-Endung abzufragen. Nur kenne ich den Parameter nicht.
Kann mir jemand helfen?
Vielen Dank im voraus.
MfG
Klaus
Ich weiß nicht recht, …
… was Du mit dem Parameter meinst. Also wenn Du vor dem Laden der Datei am Start des Makros die Endung vom Nutzer abfragen willst, dann geht das so:
Dim strEndung As String
strEndung = "." & InputBox("Endung eingeben:", "Abfrage", "001")
Ansonsten, wenn der Bereich vorgegeben ist, kannst Du auch das hier machen, obwohl das ein bissl „brutaler“ ist:
Dim strDatei As String
Dim i As Byte
Dim e As Long
For i = 1 To 12
If i 0 Then MsgBox "Habe gar nix gefunden (" & strDatei & ").", vbCritical
Ich habe das direkt hier reingetippt, denke aber, daß das gehen müßte.
Kristian