Laufzeitfehler
13.08.2004 12:02:15
Claudia
Sub Riinforsd_pläi()
'Dateiname_ausgeben()'
Meine_Datei = InputBox("Bitte geben sie den Dateinamen (ohne Endung) der zu verarbeitenden Excel Datei im selben Verzeichnis an.", "Dateieingabe")
Meine_Datei = Meine_Datei & ".xls"
MsgBox Meine_Datei, , "zu verarbeitende Datei:"
'Tabellenblaetter_zählen()'
Windows(Meine_Datei).Activate
Dim i As Integer
For i = 1 To Worksheets.Count
MsgBox "Anzahl Tabellenblätter:" & Worksheets.Count
'Tabellenblätter auswählen()'
Windows(Meine_Datei).Activate
Mein_Blatt = Worksheets(i).Name
MsgBox Mein_Blatt, , "Name des Blatts:"
'Makroname_ausgeben()'
Mein_Makro = InputBox("Name des Makros (ohne Endung) .", "Dateieingabe")
Mein_Makro = Mein_Makro & ".xls"
MsgBox Mein_Makro, , "zu verarbeitende Datei:"
'Jetzt geht's los!'
Windows(Mein_Makro).Activate
Auch Workbooks(Mein_Makro).Open geht nicht!
Bin langsam am verzweifeln!