Fehlernummer 91
13.06.2005 13:30:25
Marc
ich bin ziemlicher Anfänger was VBA betrifft, habe aber jetzt leider folgendes Problem. Ich habe ein Makro zur Portfolioanzeige runtergeladen, bekomme jedoch dei der Ausführung des Makros folgende Fehlermeldung:
Objektvariable oder With-Blockvariable nicht festgelegt. Fehlernr.: 91.
Kann mir da jemand weiterhelfen?
Sub XY_Bezeichner()
On Error GoTo XY_Bezeichner_Fehler
'** Beschriftung von XY- und Blasendiagrammen mit eigenen Texten
'** Das Mako geht davon aus, daß bereits ein XY- oder Blasen-Diagramm existiert
'** Deklaration der Variablen
Dim intCt As Integer
Dim intCtPoints As Integer
Dim strZelle As String * 7
Dim strLabel As String
Dim strTabelle As String
Dim strDiagramm As String
Dim intSC As Integer
'** Tabellen-Namen festlegen, der Diagrammname wird über das
'** aktive Diagramm ermittelt
strTabelle = "Daten"
strDiagramm = ActiveChart.Name !!!!BEIM DEBUGGEN ZEIGT ER MIR DIESE ZEILE AN!!!
intCt = 1
'** Auswahl der gewünschten Datenreihe
intSC = InputBox("Geben Sie die Nummer der Datenreihe ein", "Auswahl der Datenreihe", 1)
'** Diagramm auswählen
Sheets(strDiagramm).Select
'** Datenreihe auswählen
ActiveChart.SeriesCollection(intSC).Select
'** Anzahl der Datenpunkte ermitteln
intCtPoints = ActiveChart.SeriesCollection(intSC).Points.Count
'** Datenbeschriftungen anzeigen
Selection.ApplyDataLabels Type:=xlShowLabel, LegendKey:=False
'** Bildschirm-Aktualisierung ausschalten
Application.ScreenUpdating = False