Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.05.2020 11:47:11 |
Dan |
|
|
|
02.05.2020 12:23:10 |
Werner |
|
|
|
02.05.2020 12:40:39 |
Gast30527 |
|
|
|
02.05.2020 12:40:36 |
Mackie |
|
|
aktives Worksheet ohne sheet name ansprechbar? |
02.05.2020 13:29:57 |
Gast20851 |
|
|
|
02.05.2020 13:41:05 |
Mackie |
|
|
|
02.05.2020 13:44:24 |
Gast85478 |
|
|
|
02.05.2020 14:02:00 |
Mackie |
|
|
|
02.05.2020 14:08:05 |
Gast17685 |
|
|
|
02.05.2020 14:13:21 |
Mackie |
|
|
Von:
Gast20851 |
Datum:
02.05.2020 13:29:57 |
Views:
413 |
Rating:
|
Antwort:
|
Thema:
aktives Worksheet ohne sheet name ansprechbar? |
Danke für die Ansätze! Leider scheint dies aber mit msoChartFieldRange nicht zu klappen. Hier mal der Code:
Sub Kreisdiagramm2()
Dim intSpalte As Integer
Dim rngBereich As Range
Dim chrDia
If ActiveSheet.ChartObjects.Count = 1 Then
For Each chrDia In ActiveSheet.ChartObjects
If chrDia.Chart.ChartType = xlPie Then Exit For
Next chrDia
Else
Set chrDia = ActiveSheet.Shapes.AddChart2(251, xlPie)
End If
With chrDia.Chart
.SetSourceData Source:=Range("D3:J4")
.FullSeriesCollection(1).ApplyDataLabels
With .FullSeriesCollection(1).DataLabels
.Position = xlLabelPositionOutsideEnd
.ShowValue = False
.ShowRange = True
.Format.TextFrame2.TextRange. _
InsertChartField msoChartFieldRange, "Tabelle1!D6:J6"
End With
.HasLegend = False
End With
End Sub
Dieser Code funktioniert. Aber eben nur wen man das Makro im Sheet "Tabelle1" ausführt. Kann ich die msoChartFieldRange anders angeben? wenn ich nämlich Tabelle1 weglasse bekomme ich ein Diagramm ohne Beschrifftungen, da es den Bezug nicht findet.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.05.2020 11:47:11 |
Dan |
|
|
|
02.05.2020 12:23:10 |
Werner |
|
|
|
02.05.2020 12:40:39 |
Gast30527 |
|
|
|
02.05.2020 12:40:36 |
Mackie |
|
|
aktives Worksheet ohne sheet name ansprechbar? |
02.05.2020 13:29:57 |
Gast20851 |
|
|
|
02.05.2020 13:41:05 |
Mackie |
|
|
|
02.05.2020 13:44:24 |
Gast85478 |
|
|
|
02.05.2020 14:02:00 |
Mackie |
|
|
|
02.05.2020 14:08:05 |
Gast17685 |
|
|
|
02.05.2020 14:13:21 |
Mackie |
|
|