Datum aus UserForm

06/05/2008 - 17:48 von Peter | Report spam
Hallo NG,
ich habe in einer UserForm u.a. eine ComboBox mit Jahreszahlen(2008,
2009 usw) und 4 OptionButton(1.Quartal 2.Q...)
Aus diesen Werten soll in einer Zelle dann für 1.Quartal Januar 08,
fürs 2.Quartal April 08 usw. eingetragen werden. Kann mir bitte jemand
eine Lösung verraten. Ich komme da nicht drauf.

Viele Grüße Peter
 

Lesen sie die antworten

#1 Melanie Breden
06/05/2008 - 18:10 | Warnen spam
Hallo Peter,

"Peter" schrieb:
ich habe in einer UserForm u.a. eine ComboBox mit Jahreszahlen(2008,
2009 usw) und 4 OptionButton(1.Quartal 2.Q...)
Aus diesen Werten soll in einer Zelle dann für 1.Quartal Januar 08,
fürs 2.Quartal April 08 usw. eingetragen werden. Kann mir bitte jemand
eine Lösung verraten. Ich komme da nicht drauf.



angenommen die 4 OptionButton heißen OptionButton1, OptionButton2, etc. ,
dann versuche es wie folgt:

Private Sub CommandButton1_Click()
Worksheets("Tabelle1").Range("A1").Value = GetMonth & " " & ComboBox1.Text
End Sub

Public Function GetMonth() As String
Dim i As Long

For i = 1 To 4
If UserForm1.Controls("OptionButton" & i).Value = True Then
GetMonth = MonthName(Application.Choose(i, 1, 4, 7, 10))
Exit Function
End If
Next i
End Function


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de
Das Excel-VBA Codebook 2007 http://tinyurl.com/2nwvod

Ähnliche fragen