Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Frage an Rudi Maintaire | Herbers Excel-Forum


Betrifft: Frage an Rudi Maintaire von: Sascha
Geschrieben am: 18.01.2012 22:07:52

Hallo Rudi,

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

  

Betrifft: AW: Frage an Rudi Maintaire von: Rudi Maintaire
Geschrieben am: 19.01.2012 09:52:55

Hallo,
unverständlich.
Nur wollte ich jetzt die Textbox3 nicht mehr als Formel (.formula) anzeigen lassen, sondern als text (.text)
Dann steht ja das gleiche drin, wie in Textbox1.

Ersetze im Code Textbox3 durch Range("N4").Formula

Gruß
Rudi


  

Betrifft: AW: Frage an Rudi Maintaire von: Sascha
Geschrieben am: 19.01.2012 21:20:19

Hallo Rudi,

ja hast recht... :-) SORRY!!!

Habs nochmals probiert...
Es funktioniert einwandfrei!!!
Vielen lieben Dank

Gruss Sascha