Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Laufzeitfehler

Betrifft: Laufzeitfehler von: Claudia
Geschrieben am: 13.08.2004 12:02:15

Was mache ich in der letzten Zeile falsch?

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!

  


Betrifft: AW: Laufzeitfehler von: Hans W. Hofmann
Geschrieben am: 13.08.2004 12:12:40

Besonders viel Sinnvolles tut Dein Makro aber nicht, oder ;-)?
Was soll den Deiner Meinung nach mit dem letzten Codezeilen passieren, was geht nicht?

Gruß HW


  


Betrifft: AW: Laufzeitfehler von: Dr.
Geschrieben am: 13.08.2004 12:13:42

Da funktionieren nicht nur die letzten nicht. ;-)

Sollte auch heissen: Workbook.Open Filename:=Meine_Datei


  


Betrifft: AW: Laufzeitfehler von: Fabienne
Geschrieben am: 13.08.2004 12:20:12

Da hast du recht, aber der wichtige Teil meines Makros kommt auch erst weiter unten!

In der bis jetzt noch nicht funktionierenden Zeile sollte die Datei Mein_Makro aktiviert oder geöffnet werden, denn da drin werden nachher Sachen aus der Datei Meine_Datei gespeichert.


  


Betrifft: AW: Laufzeitfehler von: Dr.
Geschrieben am: 13.08.2004 12:22:44

Da funktionieren nicht nur die letzten nicht. ;-)

Sollte auch heissen: Workbook.Open Filename:=Meine_Datei


  


Betrifft: Sorry, doppelt geclickt von: Dr.
Geschrieben am: 13.08.2004 12:51:06

.


 

Beiträge aus den Excel-Beispielen zum Thema "Laufzeitfehler"