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 9

Betrifft: Laufzeitfehler 9 von: Ktie
Geschrieben am: 26.08.2004 11:02:20

Kann mir jemand sagen, was in Zeile 8 falsch ist???? Danke!!!!

Sub Riinforsd_pläi()
  'Dateiname_ausgeben()'
  Meine_Datei = InputBox("Bitte geben sie den Dateinamen (ohne Endung) der zu verarbeitenden Excel 

Datei an. Sie muss bereits geöffnet sein.", "Dateieingabe")
  Meine_Datei = Meine_Datei & ".xls"
  MsgBox Meine_Datei, , "zu verarbeitende Datei:"
 
  'Tabellenblaetter_zählen()'
  Windows(Meine_Datei).Activate
  Dim i As Integer
  Dim max As Integer
  max = Worksheets.Count
  
  MsgBox "Anzahl Tabellenblätter:" & max

End Sub

  


Betrifft: AW: Laufzeitfehler 9 von: Andreas Walter
Geschrieben am: 26.08.2004 11:10:48

Mit
Windows(Meine_Datei).Activate
versuchst Du die Datei anzusprechen. Die Datei aber hast Du noch nicht aufgenacht.

Schmeiss mal den Makrorecorder an, damit Du den Code für die Eröffnung hast und füge ein, vor dem Activate


  


Betrifft: AW: Laufzeitfehler 9 von: Ktie
Geschrieben am: 26.08.2004 11:34:44

Ich hab

Workbooks.Open Filename:="D:\ESAComp Things\Meine_Datei"

eingefügt, krieg jetz aber ein Laufzeitfehler 1004.

Weitere Ideen?


  


Betrifft: AW: Laufzeitfehler 9 von: Ulf
Geschrieben am: 26.08.2004 11:44:19

Workbooks.Open Filename:="D:\ESAComp Things\Meine_Datei.xls"

Ulf


  


Betrifft: AW: Laufzeitfehler 9 von: Andreas Walter
Geschrieben am: 26.08.2004 11:46:59

Ulf schlägt vor
Workbooks.Open Filename:="D:\ESAComp Things\Meine_Datei.xls"

Er hat aber nicht beachtet, dass Meine_Datei eine Variable ist. Daher
Workbooks.Open Filename:="D:\ESAComp Things\" & Meine_Datei & ".xls"


  


Betrifft: AW: Laufzeitfehler 9 von: Ulf
Geschrieben am: 26.08.2004 12:04:50

Ulf ist traurig.

Ulf


  


Betrifft: AW: Laufzeitfehler 9 von: Andreas Walter
Geschrieben am: 26.08.2004 12:17:34

Wenn mir eine witzige Antwort einfallen würde, dann würde ich sie hier schreiben. Aber mir fällt momentan nichts ein.

Daher:
Kopf hoch!
Wer arbeitet macht Fehler.
;-)


 

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