Frage an Rudi Maintaire
Sascha
Du hast mir folgenden Code geliefert:
Private Sub CommandButton3_Click()
Dim arr, strWks As String, strRange As String
arr = Split(Replace(TextBox3, "=", ""), "!")
strWks = Replace(arr(0), "'", "")
strRange = arr(1)
Sheets(strWks).Range(strRange) = TextBox1
End Sub
Dieser funktioniert in meiner Testmappe perfekt.Vielen Dank nochmals...
Nur wollte ich jetzt die Textbox3 nicht mehr als Formel (.formula) anzeigen lassen, sondern als text (.text)
Danach funktioniert Dein Code nicht mehr, da ja schliesslich auch keine Formel mehr in der Textbox erscheint, sondern der effektive Wert.
Ist es auch möglich die Formel im Hintergrund aus der Zelle auszulesen und somit das Zielblatt und die Zelle zu wählen?
Hier nochmals die Mappe:
https://www.herber.de/bbs/user/78476.xls
Liebe Grüsse Sascha