hört sich einfach an, gestaltet sich aber gerade als unglaublich schwierig:
Am Ende soll in der Tabelle in diesem Fall stehen: "=WECHSELN(AC!B6;".";",")*1
In der MsgBox gibt er mir das mit dem Code unten auch genauso aus.
Ich brauche die Variablen drin, weil ich in einer Schleife später das über ganz viele Spalten und Zeilen laufen lassen möchte, um anschließend nur noch mit Range das ganze runter zu ziehen.
Dim AktuellesBlatt As String
AktuellesBlatt = ActiveSheet.Name
Worksheets(1).Cell(6, 2) = "=WECHSELN(" & AktuellesBlatt & "!" & Chr(2 + 64) & "6;""."";"","")*1"
Oder hat Alternativ jemand ne Idee wie ich sonst relativ simpel zum selben Ergebnis komme?