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
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String in Variablen-/Konstantenbezeichner umwandln

Forumthread: String in Variablen-/Konstantenbezeichner umwandln

String in Variablen-/Konstantenbezeichner umwandln
24.01.2005 14:43:28
Tom
Hallo nochmal,
wie kann ich einen String in einen Konstantenbezeichner umwandeln?
Bsp.:

Dim ct = "xlColumnStacked"
objChart.chartType = ct

hier schimpft er natürlich weil ct keine zahl ist.
bei php ging das glaube ich mit "eval()"...
das ziel meines makros ist trölfzig diagramme zu erzeugen, wobei die jeweiligen diagramme in configdateien definiert sind. und darin speichere ich mir halt z.b. auch den charttypen. ihn als zahl zu speichern würde zu unleserlichen configdateien führen, die strings mit ner select-anweisung abzufangen wäre wieder zu undynamisch, dann könnte ich mir gleich eigene konstanten definieren, und ich weiß ja jetz auch nich, was für diagrammtypen später alles noch hinzukommen sollen.
da muss es doch irgendwas geben??
besten dank im vorraus
Tom
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String in Variablen-/Konstantenbezeichner umwa
24.01.2005 16:30:23
Tom
war ja nich anders zu erwarten...
also meine erkenntnisse der letzten 4 stunden: "evaluate" funktioniert nich für konstanten und bis auf einen anderen hier, der auch keine antwort bekam, gibts auch niemanden der so eine funktionalität bislang benötigt hat. also fazit: ich werde, wie nun zum trölften mal bei diesem *** vba, den trölffachen aufwand in kauf nehmen um eine funktionalität zu bewirken, die in anderen progsprachen selbstverständlich oder intuitiv erkennbar ist...
ps: korrektur zum obigen code - es heißt natürlich >dim ct: ct= "xlbla.."<
Anzeige
AW: String in Variablen-/Konstantenbezeichner umwa
24.01.2005 17:51:47
Josef Ehrensberger
Hallo Tom!
Klar geht das!

Dim ct As XlChartType
ct = xlColumnStacked
objChart.ChartType = ct


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: String in Variablen-/Konstantenbezeichner umwa
24.01.2005 18:46:42
Tom
Hallo Sepp,
Danke für deine Antwort, aber ich möchte ja einen String in eine Konstante umwandeln, und

objChart.ChartType = "xlColumnStacked"

nimmt er nicht, weil aus "xlColumnStacked" erst xlColumnStacked werden muß.
Deine Anregung hab ich folgendermaßen eingebunden, leider ohne Erfolg:

Set oChart = Charts.Add
With oChart
  .Move after:=Sheets(Sheets.Count)
  .SetSourceData Source:=oAssObj.preChartRange
  Dim xlCh As XlChartType
  xlCh = oAssObj.chartType ' vom Typ String und liefert z.B. "xlColumnStacked" zurück
  .chartType = xlCh
  '.plotBy = oAssObj.plotBy
  .name = oAssObj.name_short
End With

Gruß Tom
Anzeige
AW: String in Variablen-/Konstantenbezeichner umwa
24.01.2005 19:04:38
Josef Ehrensberger
Hallo Tom!
Ich verstehe nicht wo das Problem liegt!

Sub test()
Dim ct As XlChartType
Dim chrt1 As Chart
Dim chrt2 As Chart
Set chrt1 = Sheets(1).ChartObjects("Diagramm 1").Chart
Set chrt2 = Sheets(1).ChartObjects("Diagramm 2").Chart
ct = chrt1.ChartType
chrt2.ChartType = ct
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: String in Variablen-/Konstantenbezeichner umwa
24.01.2005 19:39:45
Tom
hallo Sepp,
ich glaub mein Beispielcode war zugegebenermaßen etwasverwirrend: oAssObj ist kein chart, sondern ein reines Datenobjekt,
Der Sachverhalt ist: ich lege ein neues Chart an und lege anschließend fest, von welchem Typ es ist. Das weiß aber nicht der VBA-Quellcode sondern die Datei "charts.xml", in der die Diagrammmerkmale definiert (<charttype>xlColumnStacked</charttype>) sind. oAssObj kapselt die KonfigDaten und hat eine GetMethode, die den ChartTypen im StringFormat wiedergibt.
Problem: wie kriege ich aus dem Charttypen "xlColumnStacked" im Stringformat die Excel-Konstante xlColumnStacked im XlChartType-Format, die den Wert 52 hat???
Gruß Tom
Anzeige
AW: String in Variablen-/Konstantenbezeichner umwa
24.01.2005 19:58:35
andre
Hallo Tom,
da musst Du Dir wohl oder übel eine Konvertierungsmatrix aufbauen.
Grüße, Andre
AW: String in Variablen-/Konstantenbezeichner umwa
24.01.2005 20:41:42
Tom
Na die hab ich quasi auch erstmal pro forma zusammengeschustert, muß ja trotzdem weiter vorankommen... Aber die Hoffnung stirbt zuletzt ...
: /
Gruß,
Tom
AW: String in Variablen-/Konstantenbezeichner umwa
24.01.2005 23:40:03
Josef Ehrensberger
Hallo Tom!
Hab' da auch was gezimmert!
Vielleicht hilt's dir.


      
Private Function getChartType(strType As String) As XlChartType
 strType = Replace(strType, "xl", "")
 
   Select Case strType
      Case "ColumnClustered"
      getChartType = &H33
      Case "3DColumnClustered"
      getChartType = &H36
      Case "ColumnStacked"
      getChartType = &H34
      Case "3DColumnStacked"
      getChartType = &H37
      Case "ColumnStacked100"
      getChartType = &H35
      Case "3DColumnStacked100"
      getChartType = &H38
      Case "3DColumn"
      getChartType = &HFFFFEFFC
      Case "BarClustered"
      getChartType = &H39
      Case "3DBarClustered"
      getChartType = &H3C
      Case "BarStacked"
      getChartType = &H3A
      Case "3DBarStacked"
      getChartType = &H3D
      Case "BarStacked100"
      getChartType = &H3B
      Case "3DBarStacked100"
      getChartType = &H3E
      Case "Line"
      getChartType = &H4
      Case "LineMarkers"
      getChartType = &H41
      Case "LineStacked"
      getChartType = &H3F
      Case "LineMarkersStacked"
      getChartType = &H42
      Case "LineStacked100"
      getChartType = &H40
      Case "LineMarkersStacked100"
      getChartType = &H43
      Case "3DLine"
      getChartType = &HFFFFEFFB
      Case "Pie"
      getChartType = &H5
      Case "PieExploded"
      getChartType = &H45
      Case "3DPie"
      getChartType = &HFFFFEFFA
      Case "3DPieExploded"
      getChartType = &H46
      Case "PieOfPie"
      getChartType = &H44
      Case "BarOfPie"
      getChartType = &H47
      Case "XYScatter"
      getChartType = &HFFFFEFB7
      Case "XYScatterSmooth"
      getChartType = &H48
      Case "XYScatterSmoothNoMarkers"
      getChartType = &H49
      Case "XYScatterLines"
      getChartType = &H4A
      Case "XYScatterLinesNoMarkers"
      getChartType = &H4B
      Case "Bubble"
      getChartType = &HF
      Case "Bubble3DEffect"
      getChartType = &H57
      Case "Area"
      getChartType = &H1
      Case "3DArea"
      getChartType = &HFFFFEFFE
      Case "AreaStacked"
      getChartType = &H4C
      Case "3DAreaStacked"
      getChartType = &H4E
      Case "AreaStacked100"
      getChartType = &H4D
      Case "3DAreaStacked100"
      getChartType = &H4F
      Case "Doughnut"
      getChartType = &HFFFFEFE8
      Case "DoughnutExploded"
      getChartType = &H50
      Case "Radar"
      getChartType = &HFFFFEFC9
      Case "RadarMarkers"
      getChartType = &H51
      Case "RadarFilled"
      getChartType = &H52
      Case "Surface"
      getChartType = &H53
      Case "SurfaceTopView"
      getChartType = &H55
      Case "SurfaceWireframe"
      getChartType = &H54
      Case "SurfaceTopViewWireframe"
      getChartType = &H56
      Case "StockHLC"
      getChartType = &H58
      Case "StockVHLC"
      getChartType = &H5A
      Case "StockOHLC"
      getChartType = &H59
      Case "StockVOHLC"
      getChartType = &H5B
      Case "CylinderColClustered"
      getChartType = &H5C
      Case "CylinderBarClustered"
      getChartType = &H5F
      Case "CylinderColStacked"
      getChartType = &H5D
      Case "CylinderBarStacked"
      getChartType = &H60
      Case "CylinderColStacked100"
      getChartType = &H5E
      Case "CylinderBarStacked100"
      getChartType = &H61
      Case "CylinderCol"
      getChartType = &H62
      Case "ConeColClustered"
      getChartType = &H63
      Case "ConeBarClustered"
      getChartType = &H66
      Case "ConeColStacked"
      getChartType = &H64
      Case "ConeBarStacked"
      getChartType = &H67
      Case "ConeColStacked100"
      getChartType = &H65
      Case "ConeBarStacked100"
      getChartType = &H68
      Case "ConeCol"
      getChartType = &H69
      Case "PyramidColClustered"
      getChartType = &H6A
      Case "PyramidBarClustered"
      getChartType = &H6D
      Case "PyramidColStacked"
      getChartType = &H6B
      Case "PyramidBarStacked"
      getChartType = &H6E
      Case "PyramidColStacked100"
      getChartType = &H6C
      Case "PyramidBarStacked100"
      getChartType = &H6F
      Case "PyramidCol"
      getChartType = &H70
      Case Else
      getChartType = 0
   End Select
   
End Function
   
Sub test()
Dim ct As XlChartType
ct = getChartType("xlColumnStacked")
End Sub 

     Code eingefügt mit Syntaxhighlighter 3.0


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: String in Variablen-/Konstantenbezeichner umwa
25.01.2005 11:11:29
Tom
Hallo Sepp!
He Danke : ), find' ich ja Wahnsinn, daß du dir so nen Aufwand gemacht hast, genau so nen Selectblock hab' ich mir gestern noch mühevoll zusammengeschustert. Ich dachte halt es geht auch geschickter, da ich immer mal wieder darauf stoße, eine Konstante unter dem Bezeichner zu speichern, sei es bei xlPlotBy, xlLineStyle oder eben xlChartType - wird am Ende auch wieder ne gigantische Funktion...
Nervt halt, da ich mir schon bei den BEx-Variabeln eine Matrix basteln mußte, um Dimensionsbezeichner in SAP-interne IDs umzuwandeln...
Also nochmal vielen Dank für deine Unterstützung : )
Gruß,
Tom
Anzeige
;

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Variabler Druckbereich mit Formelfeldern
Susi

Hallo liebe Excel-VBA-Experten,
ich habe ein kleines Problem, bei dem ich trotz intensiver Recherche im Internet noch keine Lösung gefunden habe.
Ich habe ein Excel-Sheet (1), das über eine Formel (Verknüpfung) mit einem anderen Tabellenblatt (2) befüllt wird. Es sind ca. 200 Zeilen im...
13.09.2008 17:02:50
Thread-ID: 1009520
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

String in Variablen-/Konstantenbezeichner umwandeln

Schritt-für-Schritt-Anleitung

  1. Definiere eine Funktion: Erstelle eine VBA-Funktion, die einen String-Wert akzeptiert und den entsprechenden Excel-Konstantenbezeichner zurückgibt. Hier ist ein Beispiel:

    Private Function getChartType(strType As String) As XlChartType
    strType = Replace(strType, "xl", "")

    Select Case strType
        Case "ColumnStacked"
            getChartType = xlColumnStacked
        Case "Line"
            getChartType = xlLine
        ' Füge hier weitere Fälle hinzu
        Case Else
            getChartType = 0 ' Unbekannter Typ
    End Select
End Function

  2. Verwende die Funktion: In deinem Makro kannst du nun diese Funktion aufrufen, um den Charttyp festzulegen:

    Sub test()
    Dim ct As XlChartType
    ct = getChartType("xlColumnStacked")
    objChart.ChartType = ct
End Sub

Häufige Fehler und Lösungen

  • Fehler: Typkonflikt
    Wenn du einen String-Wert direkt einem XlChartType zuweisen möchtest, tritt ein Typkonflikt auf. Stelle sicher, dass du die oben beschriebene Funktion verwendest, um den String in die entsprechende Konstante umzuwandeln.

  • Fehler: Unbekannter Typ
    Wenn du einen unbekannten Typ übergibst, gibt die Funktion 0 zurück. Achte darauf, die möglichen Typen in der Select Case-Anweisung zu erweitern, um Fehler zu vermeiden.

Alternative Methoden

  • Verwendung von Dictionaries: Eine weitere Möglichkeit, Strings in Konstanten umzuwandeln, ist die Verwendung eines Dictionary-Objekts. Dies kann die Zuordnung übersichtlicher gestalten:

    Dim chartTypeDict As Object
Set chartTypeDict = CreateObject("Scripting.Dictionary")

chartTypeDict.Add "xlColumnStacked", xlColumnStacked
chartTypeDict.Add "xlLine", xlLine
' Füge hier weitere Typen hinzu

Dim ct As XlChartType
ct = chartTypeDict("xlColumnStacked")

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du die Funktion verwenden kannst:

  1. Diagrammtyp aus einer Konfigurationsdatei laden:

    Dim chartTypeString As String
chartTypeString = "xlColumnStacked" ' Beispielwert
objChart.ChartType = getChartType(chartTypeString)

  2. Mehrere Diagramme dynamisch erstellen:

    Dim types As Variant
types = Array("xlColumnStacked", "xlLine", "xlPie")

Dim i As Integer
For i = LBound(types) To UBound(types)
    Dim newChart As Chart
    Set newChart = Charts.Add
    newChart.ChartType = getChartType(types(i))
Next i

Tipps für Profis

  • Verwende Enumerationen: Statt Hardcodierung der Charttypen empfiehlt es sich, Enumerationen zu verwenden, um den Code lesbarer zu machen.

  • Optimierung der Funktion: Wenn du regelmäßig neue Diagrammtypen hinzufügst, überlege, wie du die Zuordnung effizienter gestalten kannst, z.B. durch eine externe Datei oder Datenbank.

  • Fehlerbehandlung: Implementiere eine Fehlerbehandlung in deiner Funktion, um unerwartete Eingaben abzufangen und eine bessere Benutzererfahrung zu gewährleisten.

FAQ: Häufige Fragen

1. Kann ich die Funktion auch für andere Konstanten verwenden?
Ja, du kannst die gleiche Logik für andere Konstanten in VBA verwenden, indem du die entsprechenden Fälle in der Select Case-Anweisung hinzufügst.

2. Wie kann ich die Funktion erweitern?
Du kannst einfach weitere Case-Anweisungen hinzufügen, um neue Diagrammtypen zu unterstützen. Achte darauf, dass die Typen korrekt sind und dass du sie in deinem VBA-Projekt definiert hast.

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