Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Anzeige eines bestimmten Bombobox-Wertes
29.07.2004 17:11:18
athletickris
Hallo,
ich möchte in einer Userform Teilnehmerdaten eingeben. Wenn ich in der Textbox "Jahrgang" die das Geburtsjahr eingebe (z.B.: 90) soll in der Combobox automatisch die Altersklasse M14 angegeben werden, ohne daß ich die Altersklasse in der Combobox selber auswählen muss. Es muss eine Combobox sein, da man eventuell den Teilnehmer auch zu einer höheren Altersklasse zuteilen kann.
Geht das irgenwie mit einem Change-Ereignis? Und wenn ja wie?
Danke
Athletickris

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzeige eines bestimmten Bombobox-Wertes
Beni
Hallo Athletickris,
Gruss Beni

Private Sub Jahrgang_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Geburtsjahr, Jahr
Jahr = Year(Date)    ' Jahr1 enthält 1969.
Geburtsjahr = 1900 + Jahrgang.Value
ComboBox1 = "M" & Jahr - Geburtsjahr
End Sub

AW: Anzeige eines bestimmten Bombobox-Wertes
29.07.2004 21:53:33
Athletickris
Danke hat geklappt.
AW: Anzeige eines bestimmten Bombobox-Wertes
ChrisL
Hi Kris
Y3K tauglich ist es nicht ;-)

Private Sub TextBox1_Change()
Dim Alter As Integer
With TextBox1
If .Value = "" Then Exit Sub
If IsNumeric(.Value) = False Then
MsgBox "Wert muss nummerisch sein.", vbCritical, "Fehler"
ComboBox1.ListIndex = -1
.Value = ""
.SetFocus
Exit Sub
End If
If CInt(Abs(TextBox1)) > 150 Then
MsgBox "Alter nicht plausibel.", vbCritical, "Fehler"
ComboBox1.ListIndex = -1
.Value = ""
.SetFocus
Exit Sub
End If
Alter = Year(Now) - CInt(Abs(.Value))
If Alter >= 2000 Then
Alter = Alter - 2000
Else
Alter = Alter - 1900
End If
End With
ComboBox1 = "M" & Alter
End Sub


Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 150
ComboBox1.AddItem "M" & i
Next i
ComboBox1.ListIndex = -1
End Sub

Gruss
Chris
Anzeige

184 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige