Office: Makro arbeitet auf anderem PC nicht ordnungsgemäß

Ich habe einen Makro geschrieben, der 2 Diagramme aus einem Datensatz erstellen soll.
Der Datensatz sieht folgendermaßen aus:

Untenstehender Code erzeugt Diagramm 1.
Diagramm 2 wird analog aus Zeile 1 und 4 erstellt.
Das Problem:
Auf meinem PC werden die Diagramme ordnungsgemäß erzeugt.
Auf dem PC meines Kollegen wird das Diagramm zwar erzeugt, die Daten aber nicht übernommen.
Auch die nachträgliche Formatierung des 2. Diagramms wird nur zum Teil durchgeführt.

Den Makro habe ich von meinem PC exportiert und auf dem PC meines Kollegen wieder importiert.
Was könnte die Ursache sein, dass die Diagramme auf dem PC meines Kollegen nicht ordnungsgemäß erzeugt werden?
Gruß Werner.

:)

 

Hallo WePro,

vielleicht fehlen bei Deinem Kollegen einige Verweise.

Wird eine Fehlermeldung ausgegeben, bzw. hast du schon mal versucht den VBA-Code auf dem anderen PC zu kompilieren (Debuggen)?

 

HAllo

Ich gehe jede Wette ein das es an Select und Activate liegt.
Dein Kollege startet das MAkro wenn ein falsches Blatt aktiv ist.
Du musst sauber referenzieren.
Dann brauchst du keine select und activate.

Teste mal dies:
Option Explicit

Public Sub machs()
Dim rngLastCell As Range
Dim myChart As Chart
Dim myDatas As Range
With Sheets("Zeiten")
Set rngLastCell = .Cells(.Rows.Count, 1).End(xlUp) 'Letzte nichtleere Zelle in A:A
Set myDatas = .Range(.Range("A1"), rngLastCell)
' --- Diagramm einfügen ---------------------------------------------------
Set myChart = Charts.Add ' neues Diagramm erstellen
With myChart
.ChartType = xlLineMarkers ' Diagrammtyp "Linien" einstellen
' --- erstelle Diagramm ------------------------------
.SetSourceData Source:=myDatas, PlotBy:=xlRows
End With
End With
End Sub


ransi

 

Hallo kgaston

- welche Verweise meinst Du? Auf weitere Makros?
- Fehlermeldung kommt keine.
- beim Debuggen sehe ich, dass die Diagramme generiert werden, aber alle Werte auf Null sind.

Gruß Werner.

 

Hallo ransi,

Danke erstmal für Deinen Tipp. Ich werden ihn mir später in Ruhe ansehen.

Gruß Werner.

 

Hallo WePro,

ich meine im VBA-Fenster (Alt+F11) den Menüpunkt: 'Extras>Verweise...'

Und unter dem Menüpunkt: 'Debuggen/Kompilieren von ' den VBA-Code kompilieren,
dies dient dazu schon vor der Laufzeit des Programmcodes eine Syntaxprüfung durchzuführen.

 

Hallo WePro,

ich meine im VBA-Fenster (Alt+F11) den Menüpunkt: 'Extras>Verweise...'

Und unter dem Menüpunkt: 'Debuggen/Kompilieren von ...' den VBA-Code kompilieren,
dies dient dazu schon vor der Laufzeit des Programmcodes eine Syntaxprüfung durchzuführen.

 

Hallo kgaston,

Dein Coding funktioniert nur teilweise (siehe unten). Dein Lösungsvorschlag dürfte aber nicht mein Problem lösen, sondern ein Hinweis auf fehlende Verweise. Da bin ich jetzt dran.

Danke für die Tipps, Gruß Werner.