If-Else-Fuktion mit ComboBox u. Optionsfeld

[giel72]

Hallo VBA-Freunde/-Experten,

bin ein Neuling in VAB. Die Programmierung des UserForm gelingt mir nicht. :20:
Bitte um eurer schäzbare Unterstützung.

Ziel ist:
         - Per Command-Butten sollen Inhalte von 2 Textfelder (Vor- u. Nachname) in bestimmten Cellen in
           Excel eingetragen werden. Und das beginned mit der 5ten Zeile.
         - Der ComboBox beinhaltet 5 Altersgruppen (<3, 3-6, 7-12, 13-18, und >18)
         - Jede Gruppe ist in weiblich und männlich untergeordnet (Strukturstufe 2)
         - Das heißt, jeder neue Eintrag (Vor-/Nachname)sucht sich das richtige Doppelfeld von 10.
         - Die gewünschte If-Else-Funktion: IF die Option weiblich=True ist, UND die gewählte Altersgrupp
           (<3) z.B., THEN trage mir den Vorname (aus Textfeld 1) in die Celle (5,1) und den Nachname (aus
           Textfeld 2) in die Celle (5, 2). und bei nächste neuen Eintrag in die Zeile 6 springen.

Mein Programm bislang ist wie folgt, was nicht hinhaut

Private Sub CommandButton1_Click()
'Fügt die Eingabedatein die Tabelle und schließt das Eingabefeld'
Unload UserForm1
End Sub

Private Sub CommandButton2_Click()
'Das Abbrechen-Butten schließt das Eingabefeld'
Unload UserForm1
End Sub

Private Sub CmdDatenablegen_Click()
row_review = 5
   
    If Weiblich.Value = True And
       ComboBox1.Value = "<3" Then
       Cells(5, 1).Value = "Text_Vorname"
       Cells(5, 2).Value = "Text_Name"
    ElseIf
       Cells(5, 3).Value = "Text_Vorname"
       Cells(5, 4).Value = "Text_Name"

    End If
End Sub

Private Sub ComboBox1_DropButtonClick()
'Auswahl der Altersgruppe'
ComboBox1.List = Array("<3", "3-6", "7-12", "13-18", ">18")
End Sub

Private Sub UserForm_Initialize()
'alle Eingaben und Differenzierung nach Geschlecht und Altersgruppe'
End Sub

Private Sub Weiblich_Click()
End Sub

[atilla]

Hallo,

ohne eine Beispielmappe wird es schwer mit Hilfe.

[giel72]

Hallo Atilla,

danke dir für die Antwort.
Kein Problem, habe die Excel hiermit angehängt.
Ich habe mir die Seite nicht genau angeschaut, wusste nicht dass man hier was anhängen kann

Danke und Gruß
gi

[atilla]

Hallo,

solltest Du daran denken, die Daten irgendwann aml auswerten zu wollen, dann wirst Du mit diesem Aufbau große Schwierigkeiten haben.

Unten der Code schreibt die Einträge an die Stellen, wie von Dir gewünscht:

Code:

Private Sub CmdDatenablegen_Click()
 Dim lngZeile As Long, lngSpalte As Long
 If Len(Me.Text_Name) <> 0 And Len(Me.Text_Vorname) <> 0 And Len(Me.Text_Adresse) <> 0 Then
   If Me.Männlich.Value = True Then
     If Me.ComboBox1.ListIndex > -1 Then
       lngSpalte = ComboBox1.ListIndex * 4 + 3
       lngZ = Cells(Rows.Count, lngSpalte).End(xlUp).Row + 1
       Cells(lngZ, lngSpalte).Value = Me.Text_Name
       Cells(lngZ, lngSpalte + 1).Value = Me.Text_Vorname
     Else
        MsgBox "keine Altersgruppe ausgewählt"
     End If
   ElseIf Me.Weiblich.Value = True Then
     If Me.ComboBox1.ListIndex > -1 Then
       lngSpalte = ComboBox1.ListIndex * 4 + 1
       lngZ = Cells(Rows.Count, lngSpalte).End(xlUp).Row + 1
       Cells(lngZ, lngSpalte).Value = Me.Text_Name
       Cells(lngZ, lngSpalte + 1).Value = Me.Text_Vorname
     Else
        MsgBox "keine Altersgruppe ausgewählt"
     End If
   Else
     MsgBox "keine Geschlechtergruppe ausgewählt"
   End If
 Else
   MsgBox "Namen oder Adresse nicht nicht angegeben"
 End If
End Sub

[giel72]

Hallo Atilla,

super, große Hilfe. Herzlichen Dank und großen Lob an dich.
Ja, ich werde den Rest bearbeiten, besonders das mit der Altersgruppe in die ComboBox :90:
Die Datenbank sollte als Hilfe für die Erfassung der neuen Vereinmitglieder und für die spätere Statisken, welche Aktivitäten wir planen je Alters/Geschlechtgruppe ..usw.

Noch mal vielen Dank :100:
Dir einen angenehmen Tag
VG
Gi.El

[Rabe]

Hi,

für die spätere Statisken, welche Aktivitäten wir planen je Alters/Geschlechtgruppe ..usw.

für spätere Statistik ist der Aufbau, wie Atilla schon schrieb, schlecht.
So ein Aufbau ist pipieinfach auszuwerten:

Datenbank

	A	B	C	D	E	F	G	H	I	J	K	L
1	Makrobutten=>									Hilfsspalten
2	Name	Vorname	Geb.Datum	Altersklasse	w/m					ab Alter	Altersklasse	Erläuterung
3	Name 1	Vorname 1	11.05.2015	1	w					0	1	< 3 Jahre
4	Name 2	Vorname 2	12.05.2015	1	m					3	2	3 - 6 Jahre
5	Name 3	Vorname 3	13.05.2013	2	w					6	3	7 - 12 Jahre
6	Name 4	Vorname 4	14.05.2013	2	m					12	4	13 -18 Jahre
7	Name 5	Vorname 5	15.05.2010	3	w					18	5	> 18 Jahre
8	Name 6	Vorname 6	16.05.2010	3	m
9	Name 7	Vorname 7	17.05.2003	4	w
10	Name 8	Vorname 8	18.05.2003	4	m
11	Name 9	Vorname 9	19.05.1997	5	w
12	Name 10	Vorname 10	20.05.1997	5	m
13

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.08 einschl. 64 Bit

[giel72]

@Rabe.

Hallo.. ich danke dir ebenfalls
Ich lasse mich gern jede Zeit zum Besseren belehren. Man lernt nie aus

Viele liebe Grüße
giel