Laufzeitfehler 1004
27.08.2004 11:43:27
Fabienne
Ich habe ein Makro Comp(), welches ein Makro Riinforced_pläi()in einem anderen Modul des selben Files aufruft. Jetzt krieg ich aber immer einen Laufzeitfehler 1004 in Zeile 1 des Subs Riinforced_pläi?
Kann mir jemand helfen den wegzubringen? Vielen Dank schon mal!
Sub Comp()
'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
'max = 1
'Makroname_ausgeben()'
Mein_Export = InputBox("Name der Exportdatei (ohne Endung) .", "Dateieingabe")
Mein_Export = Mein_Export & ".xls"
MsgBox Mein_Export, , "Exportiert wird in:"
'Excel Datei mit dem Namen Mein_Export und einem Sheet erstellen
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Mein_Export
ActiveWorkbook.Save
'For i = 1 To Worksheets.Count
For i = 2 To max
'Quell Tabellenblatt auswählen()'
Windows(Meine_Datei).Activate
Mein_Blatt = Worksheets(i).Name
'MsgBox Mein_Blatt, , "Name des Blatts:"
Worksheets(2).Activate
Range("A1").Select
Phys = ActiveCell.Value
Select Case Phys
Case Is = "REINFORCED PLY"
Call Riinforsd_pläi
Case Is = "HOMOGENEOUS PLY"
Call Homogeneous_Ply
Case Is = "ADHESIVE"
Call Adhesive
Case Art = "CORE PLY, HONEYCOMB"
Call CorePlyhoneycomb
Case Art = "CORE PLY, HOMOGENEOUS"
Call CorePlyHomogeneous
End Select
Windows(Mein_Export).Activate
Worksheets(1).Activate
Next i
End Sub
Sub Riinforsd_pläi()
Range("A" & (i - 1) * 140 + 1).Select
ActiveCell.FormulaR1C1 = "name="
Range("B" & (i - 1) * 140 + 1).Select
ActiveCell.FormulaR1C1 = "imported ply nr. " & i - 1
Range("A" & (i - 1) * 140 + 2).Select
ActiveCell.FormulaR1C1 = "phys="
Range("B" & (i - 1) * 140 + 2).Select
ActiveCell.FormulaR1C1 = "reinforced" '!!!!!!!!!!!!!!!!!!!!!!!
Range("A" & (i - 1) * 140 + 3).Select
ActiveCell.FormulaR1C1 = "mech="
'Range("B" & (i - 1) * 140 + 3).Select
'ActiveCell.FormulaR1C1 = "=VLOOKUP('[" & Meine_Datei & "]" & Mein_Blatt & "'!R33C4,'[" &
Meine_Datei & "]" & Mein_Blatt & "'!R33C11:R36C12,2)"
Windows(Meine_Datei).Activate
Range("D23").Select
Mechart = ActiveCell.Value
Select Case Mechart
Case Is = 1
Windows(Mein_Export).Activate
Range("B" & (i - 1) * 140 + 3).Select
ActiveCell.FormulaR1C1 = "orthotropic"
Case Is = 2
Windows(Mein_Export).Activate
Range("B" & (i - 1) * 140 + 3).Select
ActiveCell.FormulaR1C1 = "transv23"
Case Is = 3
Windows(Mein_Export).Activate
Range("B" & (i - 1) * 140 + 3).Select
ActiveCell.FormulaR1C1 = "transv12"
Case Is = 4
Windows(Mein_Export).Activate
Range("B" & (i - 1) * 140 + 3).Select
ActiveCell.FormulaR1C1 = "isotropic"
End Select
etc..........