Bereich verschieben

Hallo Gemeinde,
Ich möchte zwei Diagramme dynamisieren.
Ausgangssituation: In Tabellenblatt 'Diagramm Bögen'! befindet sich ein Datenbereich von $A$1:$ED$21
Der gesamte Bereich ist mit Formeln gefüllt, allerdings wird eine Zeile ohne Werte ("") angezeigt, wenn in der entsprechenden Spalte A keine Angabe ist. In Spalte A2 steht folgende Formel:
=WENN(Übersicht!A3="";"";Übersicht!A3)
Nun habe ich nach Forschen gelesen, ich solle einen Namen definieren. Der Name 'TNBogen' besteht aus folgender Formel:
=BEREICH.VERSCHIEBEN(Tabelle22!$A$1;0;0;20-ANZAHLLEEREZELLEN(A2:A21)+1;1)
Was allerdings die +1 bedeutet weiß ich nicht. An anderer Stelle im Internet wurde eine ähnliche Formel verwendet:
=BEREICH.VERSCHIEBEN(Tabelle22!$A$1;0;0;20-ANZAHLLEEREZELLEN(A2:A21);1)
Es gibt auch noch folgende Formel, die mir hier im Forum gezeigt wurde:
=INDEX(INDEX('Diagramm Bögen Wh.'!A:A;1):INDEX('Diagramm Bögen Wh.'!A:A;VERWEIS(2; 1/('Diagramm Bögen Wh.'!A$1:A$1000""); ZEILE('Diagramm Bögen Wh.'!A$1:A$1000)));;)
Ich habe alle drei Formeln nach einander ausprobiert (jeweils Name 'TNBogen')
Wenn ich nun im Diagramm als Datenquelle
='Diagramm Bögen'!TNBogen
oder
='Anwesenheit.xls'!TNBogen
eingebe kommt die Fehlermeldung, dass der Bezug ungültig ist
Könnt Ihr mir helfen?
Danke und Grüße
Martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Martin,
"Nun habe ich nach Forschen gelesen, ich solle einen Namen definieren. Der Name 'TNBogen' besteht aus
folgender Formel:
=BEREICH.VERSCHIEBEN(Tabelle22!$A$1;0;0;20-ANZAHLLEEREZELLEN(A2:A21)+1;1)
Was allerdings die +1 bedeutet weiß ich nicht.
Die formel sagt, du stehst in A1, verschiebst die Positiion um 0;0, bleibst also in A1.
Wenn in A2:21 5 leere Zellen sind ergibt
20-ANZAHLLEEREZELLEN(A2:A21)
15 dazu jetzt die +1 = 16
Der neue Bereich ist dann also 16,1 groß, also A1:A16
bei Datenquelle gib ein
=TNBogen
Nimm anstatt leerer zellen Zellen mit #NV, die werden im Diagramm nicht angezeigt.
Äh, dann klappt aber die Formel nicht mehr, müßtest du zählenwenn nehmen o.ä.
Tip: schau mal hier nach Beiträgen von Beverly, dort ist immer ein Link zu ihrer HP, da findest du viel zu Diagrammen...
Gruß
Reinhard

Sub DiagrammAktualisieren() Dim i As Integer Tabelle1.Range("A1").Select Do i = i + 1 Loop Until Cells(i, 1) = "" ActiveSheet.ChartObjects("Diagramm 1").Activate ActiveChart.SetSourceData Source:=Tabelle1.Range("A1:AX" & i - 1), PlotBy:=xlRows End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread