Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For-Next-Schleife + Sheetname

For-Next-Schleife + Sheetname
14.09.2004 10:43:16
Piotr
Hallo Zusammen,
ich habe ein Problem. Ich möchte gerne in einer Schleife den Sheetnamen übernehmen. Der Sheetname soll in der Schleife erkannt werden.
Bei maueller Eingabe des Sheetnamen (N10) gibt es keine Probleme. Die Zeile sieht dann so aus:
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "='N10'!R3C3:R4C3"
In einer Schleife, die so aussieht,
For i = 10 To sheets.count
ActiveChart.SeriesCollection(i).XValues = "='"N"&i&'"!R3C3:R4C3
Next i
bekomme ich andauern die Fehlermeldung: Objektvariable oder With-Blockvariable nicht festgelegt (Fehler 91)!
In meinem Makro sind vorher sind keine Variablen definiert. Liegt es daran und wenn ja was müsste ich vorher eingeben oder habe ich einen Syntaxfehler?
Kurz zur Vorgeschichte: Mit dem Diagramm-Assistenten habe ich ein XY-Diagramm erzeugt. Durch "Hinzuführen kann man diesem Diagramm weitere Geraden einfügen. Da ich sehr viele solche Diagramme erstellen muß, wollte ich es mit einem Makro vereinfachen. Leider wird in der Schleife der Sheetname nicht übernommen.

Das zuletzt formulierte Makro sieht so aus:

Sub Diagramme_erstellen()
' Makro2 Makro
' Makro am 10.09.2004 von Piotr aufgezeichnet
Sheets("N10").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("N80").Range("D21"), PlotBy:= _
xlRows
ActiveChart.SeriesCollection(1).XValues = "='N10'!R3C3:R4C3"
ActiveChart.SeriesCollection(1).Values = "='N10'!R3C4:R4C4"
ActiveChart.SeriesCollection(1).Name = "='N10'!R1C2:R1C4"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "='N11'!R3C3:R4C3"
ActiveChart.SeriesCollection(2).Values = "='N11'!R3C4:R4C4"
ActiveChart.SeriesCollection(2).Name = "='N11'!R1C2:R1C4"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).XValues = "='N12'!R3C3:R4C3"
ActiveChart.SeriesCollection(3).Values = "='N12'!R3C4:R4C4"
ActiveChart.SeriesCollection(3).Name = "='N12'!R1C2:R1C4" 'Bis hierhin gibt es keine Probleme. Es wird ein Diagramm erstellt
For i = 10 To 20
ActiveChart.SeriesCollection.NewSeries 'Ab hier wird eine Diagramm hinzugefügt (Reihe 4)
Sheets("tabelle1").Select     'Dies habe ich nur eingeführt, um zu schauen, ob der Sheetname erkannt wird.
Cells(i -9, 1) = Sheets("N" & i).Name
Cells(i -9, 2) = "N-Test " & i      'Das funktioniert soweit auch ganz gut
'Ab hier gibt es bereits Probleme, Objektvariable oder With-
Blockvariable nicht festgelegt (Fehler 91)!
ActiveChart.SeriesCollection(i - 79).XValues = "='N83'!R3C3:R4C3"
ActiveChart.SeriesCollection(i - 79).Values = "='N83'!R3C4:R4C4"
ActiveChart.SeriesCollection(i - 79).Name = "='N83'!R1C2:R1C4"
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "N 80"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x-achse"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y-achse"
End With
Next i
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: For-Next-Schleife + Sheetname
14.09.2004 12:36:10
Axel
Hallo Piotr,
die Daten für die einzelnen neu hinzuzufügenden Reihen stehen ja immer in den gleichen Zellbereichen der Tabellenblätter.
Du kannst somit folgende Schleife verwenden, wenn du statt der relativen Bezüge absolute angibst. (Hier beispielhaft nur für die Werte, der Zellbezug muß natürlich angepasst werden.)


Sub x()
   
   Dim ws As Worksheet
   
   For Each ws In Worksheets
      With ActiveChart.SeriesCollection.NewSeries
         .Values = ws.Range("A1:B1")
      End With
   Next
      
      
End Sub


Auf den Blattnamen kannst du übrigens mit der Eigenschaft "Name" zugreifen.
Gruß
Axel
Anzeige
AW: For-Next-Schleife + Sheetname
Piotr
Hallo Axel,
vorab vielen dank. Habe zu wenig Ahnung den Tip umzusetzen.
Wie müsste meine Schleife konkret verändert werden?
For i = 10 To 20
Ab hier gibt es bereits Probleme, Objektvariable oder With-
Blockvariable nicht festgelegt (Fehler 91)!
ActiveChart.SeriesCollection(i - 79).XValues = "='N83'!R3C3:R4C3"
ActiveChart.SeriesCollection(i - 79).Values = "='N83'!R3C4:R4C4"
ActiveChart.SeriesCollection(i - 79).Name = "='N83'!R1C2:R1C4"
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "N 80"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x-achse"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y-achse"
End With
Next i

Anzeige
AW: For-Next-Schleife + Sheetname
14.09.2004 16:46:46
Axel
Hallo,
dass es bei deinem Code Fehler gibt, sollte nicht wundern.
Die Schleife läuft von 10 bis 20 und du sprichst die Datenreihe (Schleifenvariable - 79), mithin also einen negativen Index an. Das kann nicht funktionieren.
Gruß
Axel
AW: For-Next-Schleife + Sheetname
Piotr
Hallo Axel,
das war nur ein Beispiel. Normalerweise steht dort N=83 to X. Da ich vorher im Makro bereits manuell 3 Datenreihen eingegeben habe müsste die Schleife mit Index 4 fortlaufen.
Trotzdem wie bekommt man den Sheetnamen in diese Zeilen:
(die sheetnamen heißen bei mir "N", fangen bei 83 an und laufen bis 112 also: N112)
For i = 83 To 85
Ab hier gibt es bereits Probleme, Objektvariable oder With-
Blockvariable nicht festgelegt (Fehler 91)!
ActiveChart.SeriesCollection(i - 79).XValues = "='HIER MÜSSTE DER SHEETNAME HIN'!R3C3:R4C3"
ActiveChart.SeriesCollection(i - 79).Values = "='N83'!R3C4:R4C4"
ActiveChart.SeriesCollection(i - 79).Name = "='N83'!R1C2:R1C4"
ActiveChart.Location Where:=xlLocationAsNewSheet
Wie könnte die Lösung aussehen?
Im voraus vielen Dank,
Piotr

Anzeige
AW: For-Next-Schleife + Sheetname
15.09.2004 12:21:18
Axel
Hallo,
ich dachte mein Code-Beispiel wäre hinreichend gewesen.
Schau dir den doch noch einmal an. Mit "For Each ws In Worksheets" werden alle Tabellenblätter durchlaufen. Mit ws.Name kannst du dann direkt auf den Blattnamen zugreifen.
Eine Zuweisung wäre dann einfach mit Values = "=" & ws.Name & "'!R3C3:R4C3" innerhalb der Schleife möglich.
Jetzt verständlich?
Gruß
Axel
AW: For-Next-Schleife + Sheetname
Piotr
Hallo Axel,
wie man merkt, bin ich ein blutiger VBA-Anfänger. Müsste das Makro jetzt so aussehen? Wenn ja, dann funktioniert es nicht. Kann weiter mit Ihrer Hilfe rechnen?
Im voraus vielen Dank,
Piotr

Sub Diagramme_erstellen()
' Makro2 Makro
' Makro am 10.09.2004 von Piotr aufgezeichnet
Sheets("Sname80").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("Sname80").Range("D21"), PlotBy:= _
xlRows
ActiveChart.SeriesCollection(1).XValues = "='Sname80'!R3C3:R4C3"
ActiveChart.SeriesCollection(1).Values = "='Sname80'!R3C4:R4C4"
ActiveChart.SeriesCollection(1).Name = "='Sname80'!R1C2:R1C4"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "='SName81'!R3C3:R4C3"
ActiveChart.SeriesCollection(2).Values = "='SName81'!R3C4:R4C4"
ActiveChart.SeriesCollection(2).Name = "='SName81'!R1C2:R1C4"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).XValues = "='SName82'!R3C3:R4C3"
ActiveChart.SeriesCollection(3).Values = "='SName82'!R3C4:R4C4"
ActiveChart.SeriesCollection(3).Name = "='SName82'!R1C2:R1C4" 'Bis hierhin gibt es keine Probleme. Es wird ein Diagramm erstellt
'ActiveChart.SeriesCollection.NewSeries 'Ab hier wird ein weiteres Diagramm hinzugefügt (Reihe 4)
Dim ws As Worksheet
For Each ws In Worksheets
With ActiveChart.SeriesCollection.NewSeries
i = i + 4
ActiveChart.SeriesCollection(i).XValues = "=" & ws.Name & "'!R3C3:R4C3"
ActiveChart.SeriesCollection(i).Values = "=" & ws.Name & "'!R3C4:R4C4"
ActiveChart.SeriesCollection(i).Name = "=" & ws.Name & "'!R1C2:R1C4"
End With
Next
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Sname80"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x-achse"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y-achse"
End With
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
Anzeige
For Next Schleife - Performance
Christoph

Hallo VBA-Experten!
Bin im VBA-Sektor erst seit 3 Tagen aktiv (Selbsteinschulung :-) ). Habe jetzt aber leider ein rießiges Problem und bitte ganz dringend um Eure Hilfe:
In meinem Bericht (siehe Anhang - https://www.herber.de/bbs/user/62579.zip)
soll folgendes passieren:
Der Be...
19.06.2009 17:54:19
Thread-ID: 1082980
6 Beiträge
Array füllen ohne For...Next-Schleife
Micha

Hallo,
ich möchte einen Array-füllen, ohne eine Schleife benutzen zu müssen, um Zeit zu sparen, d.h. anstatt
For CalcArraycnt = 1 To 30
CalcArray(cnt, CalcArraycnt) = "=PRODUCT(R[-2]C,R[-1]C)"
Next
irgendwas wie
Range(CalcArray(cnt, 1),CalcArray(cnt, 30) = "=PRODUCT(R[...
13.10.2009 12:21:38
Thread-ID: 1109304
6 Beiträge
Anzeige
Sytanx zur ForNext-Schleife
Jörg-HH

Guten Abend zusammen,
habe einen Knoten mit der richtigen Schreibweise...
In einem Blattcode steht:
If Target.Address = Range("Hilfszelle2").Address Then Call machwas2 End If If Target.Address = Range("Hilfszelle3").Address Then Call machwas3 End If usw... bis 5
in einem Modul...
08.12.2009 20:44:25
Thread-ID: 1122490
11 Beiträge
Verschachtelte For Next Schleife zusammenfassen
Illusion

Hi
Ich habe ein Makro, das nach folgendem Schema aufgebaut ist:
Dim i%, j%, k%, Summe% Dim ws As Worksheet Set ws = Worksheets("Liste") For i = 1 to 3 For j = 4 to 6 For k = 7 to 9 Summe= ws.cells(i, 2).value + ws.cells(j, 2).value + ws.cells(k, 2).value Next k Next j Next i
Mein P...
17.12.2009 12:55:13
Thread-ID: 1124631
14 Beiträge
For...Next Schleife anstelle Do until...Loop | Herbers Excel-Forum
Stefan
Hallo zusammen,
ich habe eine Do...Loop Schleife und würde diese gerne durch eine For...Next Schleife ersetzten.
Geht das in diesem Fall überhaupt? Sub loop() Dim iRow As Integer iRow = 5 Do Until Cells(iRow - 1, 1).Value = "x" If IsEmpty(Cells(iRow, 1)) Then End If iRow = iRow + 1 Loop End...
14.01.2010 15:23:09
Thread-ID: 1129973
11 Beiträge
For Next Schleife ?
Leitz

Hallo!
Wie kann ich eine For Next Schleife so ändern, daß sie aufhört sobald die erste Übereinstimmung gefunden wurde?
Oder muß ich da was anders vewenden?
Sub DatumSuche() Dim Datum As Date Datum = Cells(3, 5) 'Testdatum Dim a As Integer For a = 100 To 3 Step -1 If Cells(a, 1).Text...
09.02.2010 18:48:49
Thread-ID: 1137145
13 Beiträge
dynamische For Next Schleife
Steffen

Hallo zusammen,
ich habe eine For next Schleife, der obere Bereich soll hier bei dynamisch sein, da während der Prozedur Zeilen eingefügt werden. Ich habe es mit folgendem Code probiert wobei der obere Bereich auch hochgezählt wird aber die Schleife bei dem Ursprungswert beendet wird.
D...
19.02.2010 12:24:57
Thread-ID: 1139740
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
5
5
6
10
13
10
12
5
8
4
6
6
19
6
9
8
16
10
3
7
1
4
7