ich hoffe mir kann jemand bei meinem Problem helfen.
Ziel dieser Schleife ist, dass ich über den Array, die angeführten Variablenwerte auslese und anschließend in ein Tabellenblatt schreibe.
Leider funktioniert das so nicht, da der ausgegeben var_wert immer als string ausgewiesen wird.
Danke schon jetzt, für Eure Hilfe!
Grüße Wolfgang
Sub test()
atv_effberechnung_wizard = 100
atv2_effberechnung_wizard = 200
cafepuls_effberechnung_wizard = 300
alle_sender_effie = Array("atv", "atv2", "cafepuls")
zellename_blatt = "pl"
For x = 0 To 2
var_name = alle_sender_effie(x) & "_effberechnung_wizard" & zellename_blatt
var_wert = var_name
Sheets("Tabelle1").Cells(x + 1, 1).Value = alle_sender_effie(x)
Sheets("Tabelle1").Cells(x + 1, 2).Value = var_wert
Next x
End Sub