Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schaubild variabel

Forumthread: Schaubild variabel

Schaubild variabel
21.07.2005 12:30:08
wengc
Hallo,
ich hab da noch n kleines Problem,
ich hab ne Tabelle und will dass des Schaubild immer genauso groß ist wie die Werte Tabelle, also ein Variables Schaubild.
Ich hab mir da mal was ausgedacht und hab n Macro einfach neben herlaufengelassen(siehe unten). Der Wert "i" ist die länge der variablen Werte.
Aber des funktioniert nicht.
Weis einer von euch wie ich des schreiben muss?
Gruß Chris

Sub Makro2()
' Makro2 Makro
' Makro am 21.07.2005 von ZOCHWE aufgezeichnet
range("A1":"B" & i).Select
Application.CutCopyMode = False
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Mess"). range("A1":"B" & i, PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Sheets("Mess").Select
Range("A19").Select
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schaubild variabel
21.07.2005 12:46:27
Herbert
hallo Chris,
in etwa so:

Sub Makro2()
Dim i%
i = Cells(Rows.Count, 1).End(xlUp).Row
Charts.Add
With ActiveChart
.ChartType = xlColumnClustered
.SetSourceData Source:=Sheets("Mess").Range("A1:B" & i), PlotBy:= _
xlColumns
.Location Where:=xlLocationAsNewSheet
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub

gruß Herbert
Anzeige
AW: Schaubild variabel
21.07.2005 13:42:54
wengc
Vielen Dank,
Hat super geklappt.
Danke, Christoph
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige