Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
01.12.2018 20:39:10 |
Alex |
|
|
VBA Variable als Tabellennamen |
01.12.2018 20:42:52 |
Alex |
|
|
|
02.12.2018 00:25:36 |
ugor |
|
|
|
02.12.2018 01:59:17 |
Alex |
|
|
|
03.12.2018 12:07:53 |
ugor |
|
|
Von:
Alex |
Datum:
01.12.2018 20:42:52 |
Views:
540 |
Rating:
|
Antwort:
|
Thema:
VBA Variable als Tabellennamen |
Gerade noch gesehen, dass ich im oberen Skript noch zwei Zeilen auskommentiert habe.
Sub GraphErstellen()
Dim b As String, c As String, a As String
a = InputBox("Bitte geben Sie den Datenreihennamen an")
b = InputBox("Bitte geben Sie den Diagrammnamen an")
c = InputBox("Bitte Geben Sie den Tabellennamen an")
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "= 'c'!A1:A11"
ActiveChart.SeriesCollection(1).Values = "= 'c'!B1:B11"
ActiveChart.SeriesCollection(1).Name = a
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = b
End With
End Sub
Meine Tabelle heißt im Beispiel Tab1.
Das Makro funktioniert bei der Eingabe dieser Veränderung problemlos. Allerdings nicht mit variablen Tabellenbezügen.
Sub GraphErstellen()
Dim b As String, c As String, a As String
'a = InputBox("Bitte geben Sie den Datenreihennamen an")
'b = InputBox("Bitte geben Sie den Diagrammnamen an")
'c = InputBox("Bitte Geben Sie den Tabellennamen an")
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "= 'Tab1'!A1:A11"
ActiveChart.SeriesCollection(1).Values = "= 'Tab1'!B1:B11"
ActiveChart.SeriesCollection(1).Name = a
'With ActiveChart
' .HasTitle = True
' .ChartTitle.Characters.Text = b
'End With
End Sub
|
- 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
|
|
01.12.2018 20:39:10 |
Alex |
|
|
VBA Variable als Tabellennamen |
01.12.2018 20:42:52 |
Alex |
|
|
|
02.12.2018 00:25:36 |
ugor |
|
|
|
02.12.2018 01:59:17 |
Alex |
|
|
|
03.12.2018 12:07:53 |
ugor |
|
|