Makroprogrammierung in VBA

In einer UserForm möchte ich einen Tabellenwert in zwei Textboxen anzeigen lassen.

Beispiel:
Zelle in Tabellenblatt zeigt „12 / 2010“

Anzeige in Userform soll
Textbox1 = „12“
Textbox2 = „2010“
Anzeigen.

Hat jemand einen Tipp für mich?

 

Hallo!

Private Sub CommandButton1_Click()
Dim vntTempArray As Variant
Dim xlString As String

xlString = Range("A1").Value
xlString = Replace(xlString, " ", "")
vntTempArray = Split(xlString, "/")
TextBox1.Text = vntTempArray(0)
TextBox2.Text = vntTempArray(1)
End Sub

Code eingefügt mit VBA in HTML 2.0

Gruß, René

 

Hallo Moritz

1. Wenn der User die angezeigte Zahl im Userform verändern darf, ist die die Textbox richtig.
Sonst nimmst Du besser ein Bezeichnungsfeld (= Label)

2. Wenn der Wert in der Zelle als Datum formatiert ist (benutzerdefiniert "MM / JJJJ"), dann >
TextBox1 = Month(Tabelle1.Range("A1"))
TextBox2 = Year(Tabelle1.Range("A1"))
...liest Monat oder Jahr aus dem Datumwert

3. Wenn der Wert in der Zelle als Text formatiert ist, dann >
Label1 = Val(Tabelle1.Range("A2"))
Label2 = Trim(Right(Tabelle1.Range("A2"), InStr(Tabelle1.Range("A2"), "/")))
...liest Zahlen vor dem Schrägstrich als Monat und...
...was rechts vom Schrägstrich steht als Jahr... und entfernt Leerzeichen.

TextBox1 oder Label1 nach Bedarf dann auswechseln.

Gruss Urs


Edit:
Oh... jetzt darf er sogar noch auswählen...

 

Hi Moriz,

wenn Zelle als Text formatiert ist:

Code:

Private Sub CommandButton1_Click()
    TextBox1 = Left(Range("A1"), 2)
    TextBox2 = Right(Range("A1"), 4)
End Sub

 

Hallo René, hallo Urs, hallo Karin,

danke für Eure Hilfe, hat wunderbar geklappt.

Hab in diesem Fall die Lösung von Karin übernommen, da sie für mich „einfacher“ war.

Gruß Moritz