Variablen variabel deklarieren
MG
ich möchte Werte aus einer CSV-Datei einlesen. Kein Problem. Ich möchte diese Werte aber in Variablen speichern und nicht Worksheet.
Es gibt in der CSV-Datei:
statische Kopfdaten
dynamische Positionsdaten - unterscheiden sich in der Häufigkeit
statische Fussdaten
Bei den Positionsdaten bekomme ich die Anzahl Positionen mitgeteilt, die CSV-Datei sieht in _
etwas so aus (im Positionsbereich):
Pos;2 'Anzahl der Positionen
'***Pos 1************************Pos 1
Pos1_Mng;2
Pos1_Bez;Rosenkohl
Pos1_Txt;frisch aus Spanien eingetroffen
Pos1_Prz;10%
Pos1_EPr;2,00
Pos1_GPr;3,60
'***Pos 2************************Pos 2
Pos2_Mng;5
Pos2_Bez;rote Rosen
Pos2_Txt;langstielig, echt aus Holland oder Südafrika - max. 3 Tage ab Schnittdatum
Pos2_Prz;20%
Pos2_EPr;5,00
Pos2_GPr;22,50
Die Datensatzbezeichner aus der CSV sollen jetzt meine Variablennamen werden, so dass ich diese einlesen kann. Da ich aber vorher nicht weiß, wieviele Positionen ich bekomme, kann ich jetzt mal prohylaktische 2000 Positionen deklarieren - und weiß immer noch nicht, ob ich für die Zukunft alles abgedeckt habe, oder ich deklariere meine Positionen dynamisch, anhand des mitgelieferten Zählers:
Sub Positionen_festlegen()
Dim pos, i As Long
Dim varMng, varBez, varTxt, varPrz, varEPr, varGPr As String
pos = 27
For i = 1 To pos
varMng = "Pos" & i & "_Mng"
varBez = "Pos" & i & "_Bet"
varTxt = "Pos" & i & "_Txt"
varPrz = "Pos" & i & "_Prz"
varEPr = "Pos" & i & "_EPr"
varGPr = "Pos" & i & "_GPr"
Dim varMng, varBez, varTxt, varPrz, varEPr, varGPr As String 'ich will aber, dass der Inhalt dieser Variablen deklariert wird!
Next
End Sub
So, ich hoffe nun, dass Ihr mich verstanden habt. Ich komme da gerade nicht wirklich weiter, vielleicht kann mir mal jemand auf die Sprünge gelfen. Danke.