Hi Leute,
Ich habe mehrer miteinander arbeitende Excelmakros die unter Excel 97 ohne Probleme laufen. Nun habe ich Excel 2003 auf meinen Firmenrechner und die Makros funktionieren nicht mehr.
Bei der Auswertung der Errordatei bekam ich den Laufzeitfehler 1004 der besagt das ein anderes Makro nicht gefunden werden konnte. Da die Ordnerstrucktur sich nicht verändert hat und und die Makros unter Excel 97 funktionierten nehme ich an das es irgendeine Inkompatibilität zuwischen Excel 97 und 2003 geben muss.
Ich hab außerdem die VB Code der Makros mehrfach debugt und mich über Makroaufrufe unter VB in mehreren Foren informiert. Konnte aber mit meinen beschränkten VB Kenntnissen keinen Fehler finden.
hier ist mal der VB Code:
Der Fehler tritt in Zeile 360 auf die mit eingefügten Variablen so aussieht:
Application.Run "ZUGPRF32.XLS" & "!" & "ZugVersuche", _
Ver_Datei
Ich bin dankbar für jede Hilfe
Ich habe mehrer miteinander arbeitende Excelmakros die unter Excel 97 ohne Probleme laufen. Nun habe ich Excel 2003 auf meinen Firmenrechner und die Makros funktionieren nicht mehr.
Bei der Auswertung der Errordatei bekam ich den Laufzeitfehler 1004 der besagt das ein anderes Makro nicht gefunden werden konnte. Da die Ordnerstrucktur sich nicht verändert hat und und die Makros unter Excel 97 funktionierten nehme ich an das es irgendeine Inkompatibilität zuwischen Excel 97 und 2003 geben muss.
Ich hab außerdem die VB Code der Makros mehrfach debugt und mich über Makroaufrufe unter VB in mehreren Foren informiert. Konnte aber mit meinen beschränkten VB Kenntnissen keinen Fehler finden.
hier ist mal der VB Code:
Code:
Sub GrafikErzeugen(ByVal DruckMappe As String, ByVal Kpf_Datei As String)
'============================================'
' Message drucken und anschliesslich löschen '
'============================================'
Static ModulName As String
Dim Ver_Datei As String, _
Ve2_Datei As String, Kp2_Datei As String, _
Alt_Datei As String, Neu_Datei As String, _
ProcesName As String, LogoName As String, _
AnwenderSub As String, i As Integer, Anzahl_Charts As Integer, _
Anzahl_Charts_Totall As Integer
Dim MeldungText2 As String
Dim AnwKurzMacroName2 As String, Kurz_Ver_Datei2 As String
ModulName = "GrafikErzeugen"
1 On Error GoTo FehlerBehandlung
AnwKurzMacroName2 = Empty
Kurz_Ver_Datei2 = Empty
20 Ver_Datei = Left(Kpf_Datei, Len(Kpf_Datei) - 3) & "VER"
'-------------------------------------------
' KurzeName Ver_datei (ohne Pfad) ermitteln
'-------------------------------------------
170 i = [WWSTD.XLS].InZnFr(Ver_Datei, "\")
180 Kurz_Ver_Datei = Right(Ver_Datei, Len(Ver_Datei) - i)
190 Kurz_Ver_Datei = UCase(Kurz_Ver_Datei)
'------------------------------------------
' Anwendung-Macro aus Kopf-Datei ermitteln
'------------------------------------------
200 AnwenderMacroName = [WWSTD.XLS] _
.GetIniDaten(Kpf_Datei, Empty, "ANWENDER-MACRO")
210 If WWSTD_Fehler <> 0 Then
220 Error WWSTD_Fehler
230 End If
'------------------------------------------------------------------
' Physikalische-Name des AnwenderMacros aus GRFDRU.PAR Datei lesen
'------------------------------------------------------------------
240 AnwenderMacroName = [WWSTD.XLS].GetIniDaten(MyParamDataei, _
"Anwender-Macros", AnwenderMacroName)
290 i = InStr(AnwenderMacroName, " ")
300 AnwenderSub = Right(AnwenderMacroName, _
Len(AnwenderMacroName) - i)
310 AnwenderMacroName = Left(AnwenderMacroName, i - 1)
320 i = [WWSTD.XLS].InZnFr(AnwenderMacroName, "\")
330 AnwKurzMacroName = Right(AnwenderMacroName, _
Len(AnwenderMacroName) - i)
340 AnwKurzMacroName = UCase(AnwKurzMacroName)
'------------------------------------------------------------------
' Anwender-Macro aufrufen
' ( Grafik/Tabelle auf dem Bildschirm erzeugen (um sie zu drucken))
'------------------------------------------------------------------
350 Workbooks.Open FileName:=AnwenderMacroName
AnwKurzMacroName2 = AnwKurzMacroName
360 Application.Run Macro:=AnwKurzMacroName & "!" & AnwenderSub, _
Arg1:=Ver_Datei
' Bei Fehler im AnwKurzMacroName Sprung zur Fehler-Routine
380 If WWSTD_Fehler <> 0 Then
390 Error USER_MACRO_FEHLER
400 End If
'-------------------------------------------------------------------
' Alle Charts suchen (, die im Anwender-Macro erzeugt wurden) lesen
' und DruckMappe verschieben.
'-------------------------------------------------------------------
405 LogoName = [WWSTD.XLS].GetIniDaten(MyParamDataei, "Parameter", "Logo")
410 Anzahl_Charts = Workbooks(Kurz_Ver_Datei).Charts.Count
415 Anzahl_Charts_Totall = Workbooks(DruckMappe).Charts.Count
420 For i = 1 To Anzahl_Charts
423 Workbooks(Kurz_Ver_Datei).Charts(Anzahl_Charts - i + 1).Activate
424 Workbooks(Kurz_Ver_Datei).Charts(Anzahl_Charts - i + 1).Deselect
425 Workbooks(Kurz_Ver_Datei).Charts(Anzahl_Charts - i + 1).Select
' V&M-Loge hinzufügen
426 ActiveChart.Pictures.Insert(LogoName).Select
427 Selection.ShapeRange.ScaleWidth 0.09, True
428 Selection.ShapeRange.ScaleHeight 0.09, True
' V&M-Beschrieftug setzen
429 ActiveChart.TextBoxes.Add(17, 7, 50, 40).Select ' Datum
430 With Selection
431 .Placement = xlMoveAndSize
432 .Interior.ColorIndex = xlNone
433 .Characters.Text = "Vallourec & Mannesmann Tubes"
'540 .Font.FontStyle = "Fett"
434 .Font.Size = 5
435 .Font.ColorIndex = 16
436 .HorizontalAlignment = xlCenter
437 .VerticalAlignment = xlCenter
438 .AutoSize = True
439 End With
460 Workbooks(Kurz_Ver_Datei).Charts(Anzahl_Charts - i + 1).Move _
after:=Workbooks(DruckMappe).Sheets(Anzahl_Charts_Totall + i)
470 Workbooks(DruckMappe).Sheets(Anzahl_Charts_Totall + i + 1).Name = _
"Diagr." & Trim(Str(Anzahl_Charts_Totall + i))
Next i
'----------------------------------------------------------------------
' Die Mappe vom Usermacro schliessen. Seine Grafikblätter wurden schon
' in DruckMappe verschoben.
'----------------------------------------------------------------------
' Falls man die Daten Schlißt (*.VER), dann unverständlicherweise
' wird die X-Achsenbeschriftung im Diagramm zersört. Deswegen schließt
' man hier die *.Ver Tabelle nicht, sondern nach dem Drucken, was nicht
' so schön ist.(Excel Bug ?)
'--> Workbooks(Kurz_Ver_Datei).Close savechanges:=False
' User-Macro hat schon alles getan und wird geschlossen
620 Application.Windows(AnwKurzMacroName).Close _
savechanges:=False
Exit Sub ' Ende der Routine
'=============================================
' Hier kommt man automatisch im Fehler-Fall
'=============================================
FehlerBehandlung:
810 Select Case Err
Case USER_MACRO_FEHLER
820 MeldungText = "Fehler " & "AnwenderMacro_Err = " & WWSTD_Fehler & _
" im User-Macro " & AnwKurzMacroName & _
". Diagramm wurde nicht gedruckt !"
830 End Select
930 Reply_Code = 0
940 SetTrace (ModulName)
950 Err.Raise Err.Number
'-----------------------------------------------------
' Nach dem Fehler wird die nächste Message verarbeitet
'-----------------------------------------------------
870 If AnwKurzMacroName2 <> Empty Then
880 Application.Windows(AnwKurzMacroName).Close savechanges:=False
885 Application.Windows(Kurz_Ver_Datei).Close savechanges:=False
890 End If
End SubDer Fehler tritt in Zeile 360 auf die mit eingefügten Variablen so aussieht:
Application.Run "ZUGPRF32.XLS" & "!" & "ZugVersuche", _
Ver_Datei
Ich bin dankbar für jede Hilfe
