Office: (Office 2010) Dynamischer Bereich

Hallo,

ich mal wieder :D

Diesmal mit einem ganz kleinen VBA Problem.

ich will ein Diagramm per VBA erstellen. er soll dabei aber nur die letzten 10 Werte für das Diagramm nehmen.

Die letzte Zeile speichere ich mir so in eine Long Variabel und ermittele mit - 10 dann die erste Zeile für das Diagramm.
Dann speicher ich mir den Bereich für das Diagramm in b1 und da kommt dann der Fehler:

91 - objektvariabel oder with block nicht festgelegt.

Was mach ich falsch?

Code:

Dim erstezeile As Long
Dim lngZeile As Long
Dim b1 as Range

 lngZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
 erstezeile = lngZeile - 10

b1 = Range(Cells(erstezeile, 14), Cells(lngZeile, 14))

Das ganze habe ich am anfang so probiert:

Code:

Dim s As String
Dim erstezeile As Long
Dim letzteZeile As Long
Dim b1 As Range
Dim b2 As Range


 letzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
 erstezeile = letzteZeile - 10
 

 

 

    s = ActiveSheet.Name
    Charts.Add
    With ActiveChart
    .ChartType = xlLineMarkers
    .SeriesCollection.NewSeries
    .SeriesCollection(1).Name = "=Datenhaltung!$N$1"
    '.SeriesCollection(1).Values = "=Datenhaltung!$N$2:$N$14"
    .SeriesCollection(1).Values = Worksheets("Datenhaltung").Range("N" & erstezeile & ":0" & letzteZeile)
    .SeriesCollection.NewSeries
    .SeriesCollection(2).Name = "=Datenhaltung!$O$1"
    .SeriesCollection(2).Values = Worksheets("Datenhaltung").Range("0:" & erstezeile & ":0" & letzteZeile)
    .SeriesCollection(2).XValues = Worksheets("Datenhaltung").Range("A:" & erstezeile & ":A" & letzteZeile)
    .ChartTitle = s
    
    End With

Da kam dann immer:

vba laufzeitfehler 1004 anwendungs- oder objektdefinierter fehler
hoffe hier kann jemand schnell helfen ;)


Hoffe hier kann jemand schnell weiterhelfen. So schwer dürfte das eigentlich ja nicht sein, aber ich habe anscheinend mal wieder einen Knoten im Gehirn.

Mfg

Manta

 

Hi,

den Bereich kannst du nicht speichern, nur die Adresse - also noch .Address ans Ende anhängen.


Bis später,
Karin

 

Hallo Beverly,

ich habe versucht .adress anzuhängen:


b1 = Range(Cells(erstezeile, 14), Cells(letzteZeile, 14)).Address


und es kommt immer noch der Laufzeitfehler 91 - objektvariabel oder with block nicht festgelegt.

Mfg
Manta

 

Hi,

hast du mal die Variablen überprüft - ist erstezeile vielleicht kleiner 1?

Bis später,
Karin

 

Nein die erste Zeile wäre 4 und die letzte Zeile 14.

MfG

Manta

 

Du schreibst leider nicht, in welcher Zeile deines Ausgangscodes der Fehler auftritt, aber was mit gerade aufgefallen ist - in diesem Teil

Code:

.Range("0[B][COLOR=#ff0000]:[/COLOR][/B]" & erstezeile & ":0" & letzteZeile)

und diesem

Code:

.Range("A[COLOR=#ff0000][B]:[/B][/COLOR]" & erstezeile & ":A" & letzteZeile)

muss auf jeden Fall der rot markierte : weg.

Falls das nicht die Lösung für dein Problem ist, dann lade besser mal deine Mappe hoch, damit man sich das am Original anschauen und testen kann.

Bis später
Karin

 

Ist leider nicht die Lösung.

Hier mal die Mappe:

Den Anhang dyn dia.xls betrachten

Mfg
Manta

 

In deinen Zellbezügen ist eine 0 (Null) und kein O. Außerdem kann ein Zellbezug für die Werte einer Datenreihe keine 2 Spalten umfassen - also N und O gleichzeitig.

Code:

Sub Diagramm10()
    Dim s As String
    Dim erstezeile As Long
    Dim letzteZeile As Long
    letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
    erstezeile = letzteZeile - 10
    s = ActiveSheet.Name
    With Charts.Add
        .ChartType = xlLineMarkers
        .SetSourceData Source:=Worksheets("Datenhaltung").Range("A1")
        If .SeriesCollection.Count > 0 Then .SeriesCollection(1).Delete
        With .SeriesCollection.NewSeries
            .Name = "=Datenhaltung!$N$1"
            .Values = Worksheets("Datenhaltung").Range("N" & erstezeile & ":N" & letzteZeile)
        End With
        With .SeriesCollection.NewSeries
            .Name = "=Datenhaltung!$O$1"
            .Values = Worksheets("Datenhaltung").Range("O" & erstezeile & ":O" & letzteZeile)
            .XValues = Worksheets("Datenhaltung").Range("A" & erstezeile & ":A" & letzteZeile)
        End With
        .HasTitle = True
        .ChartTitle.Caption = s
    End With
End Sub

Bis später,
Karin

 

Vielen Dank, das funktioniert natürlich!

Solche blöden Fehler wie z. b. mit 0 und O passieren mir öfters und selber sieht man so was ja dann nie.

MfG
Manta

 

Naja, wenn ein Code einen Fehler auslöst, dann muss man der Ursache halt auf den Grund gehen und systematisch eine Möglichkeit nach der anderen ausschließen und u.a. gehört zu den Fehlerursachen eben auch eine falsche Schreibweise. Und wenn man dazu noch weiß, dass einem so etwas öfter passiert, dann sollte man halt genau dort zuerst suchen... :D

Bis später,
Karin