Bald bin ich auch durch mit meiner Tabelle, dann kommen nicht mehr so viele Fragen von mir. :)
Aufgrund der Gegebenheiten ist es nicht möglich, dass zweistellige Zahlen in der "Zwischentabelle" vorkommen dürfen. Daher würde ich diese gerne trennen.
Ungerne per Formel, da in der Zelle selbst eigentlich der Verweis zur Quelle ist.
Habe jetzt ein wenig rumprobiert und mir den Code zusammen gebastelt.
Sub zweistelligeZahlen()
For Each Cell In Array("Tabelle13")
If Range("L34") > 9 Then
Range("O2") = Left(L34, 1)
Range("Q2") = Right(L34, 1)
Else
Range("O2") = Range("L34")
End If
Next Cell
End Sub
Es klappt soweit, dass tatsächlich der Wert aus L34 in O2 gesetzt wird, aber es wird nicht auf die nachfolgenden Zellen übertragen.Bin noch nicht so ganz in dem Thema VBA und Makros drin.
Schöne Grüße