Ein Veit, Antwort von Dir auf meinen Threat
15.06.2004 11:53:31
Dir
danke für Dein Makro.
Hier habe ich folgendenes Problem:
Die zu überprüfenden Dateien heißen z.B.:
Bestandsprotokoll_abc.xls, sind also nur am Anfang des Dateinames
gleich. Z.B. kann diese Datei auch Bestandsprotokoll_34d.xls heißen.
Wie kann ich hier bei der Dim-Anweisung einen Platzhalter wie:
Bestandsprotokoll_*.xls einbauen ? Ich weiß, bei der Dim-Anweisung dürfen
keine Sterne (*) stehen. Wie kann man das trotzdem realisieren ?
Gruss
Franz
Moin, Moin,
ich habe es jetzt zwar nicht getestet...
Sub Makro8()
Dim Test1 As Integer, Test2 As Integer, Test3 As Integer, Test4 As Integer, Test5 As Integer, Test6 As Integer, Test7 As Integer
Pfad = "C:\test\"
Dateiname = Dir$(Pfad)
If Dateiname = "" Then
MsgBox "garnix vorhanden"
Exit Sub
End If
Test1 = 0
Test2 = 0
Test3 = 0
Test4 = 0
Test5 = 0
Test6 = 0
Test7 = 0
Do While Dateiname <> ""
Select Case Dateiname
Case "Test1.xls"
Test1 = 1
Case "Test2.xls"
Test2 = 1
Case "Test3.xls"
Test3 = 1
Case "Test4.xls"
Test4 = 1
Case "Test5.xls"
Test5 = 1
Case "Test6.xls"
Test6 = 1
Case "Test7.xls"
Test7 = 1
Case Else
End Select
Dateiname = Dir$()
Loop
nicht_gefunden = ""
If Test1 <> 1 Then nicht_gefunden = nicht_gefunden & "Test1.xls" & Chr(13)
If Test2 <> 1 Then nicht_gefunden = nicht_gefunden & "Test2.xls" & Chr(13)
If Test3 <> 1 Then nicht_gefunden = nicht_gefunden & "Test3.xls" & Chr(13)
If Test4 <> 1 Then nicht_gefunden = nicht_gefunden & "Test4.xls" & Chr(13)
If Test5 <> 1 Then nicht_gefunden = nicht_gefunden & "Test5.xls" & Chr(13)
If Test6 <> 1 Then nicht_gefunden = nicht_gefunden & "Test6.xls" & Chr(13)
If Test7 <> 1 Then nicht_gefunden = nicht_gefunden & "Test7.xls" & Chr(13)
MsgBox "Folgende Dateien fehlen:" & Chr(13) & nicht_gefunden
If nicht_gefunden <> "" Then Exit Sub
'ansonsten gehts weiter
End Sub
Gruß
Ein Veit