Hallo schlemmer_horst,
mittels der Dropdown-Liste wählst du einen Wert aus, z.B. TEAM1.
Das Makro liest den ausgewählten wert in A31 aus und speichert ihn in der Variablen s.
( s = Range(A31).Value )
Entsprechend dieser Variablen s wird dann verzweigt
( Select Case s )
Es wird dann der Zweig ausgeführt, bei dem die Variable eingetragen ist.
In diesem Fall (TEAM1)
Case TEAM1
Range(C33).Value = TEAM1-Name
Range(C34).Value = TEAM1-Position
Range(C35).Value = TEAM1-Telefonnummer
Range(C36).Value = TEAM1-Handynr
Range(C37).Value = TEAM1-Emailaddi
Wenn der Variable in keinem Zweig eingetragen ist, wird der sonst-Zweig ausgeführt:
Case Else
Range(C33).Value = nichts ausgewählt
Range(C34).Value =
Range(C35).Value =
Range(C36).Value =
Range(C37).Value =
Da das letztere der Fall ist, müßtest du z.B. den ersten Zweig umeditieren. Groß- und Kleinschreibung sind dabei zu beachten.
Nehmen wir an dein TeAm1 wird so geschrieben: TEam 1, dann müßtest du die Zeile
in
ändern, sonst wird die Bezeichnung nicht erkannt.
Ich hab den Case Else - Zweig noch ein wenig geändert, damit du eine Meldung erhälst.
Code:
Sub ZustaendigenEintragen()
Dim s As String
->Wert aus Zelle A31 (Dropdownliste)
s = Range(A31).Value
->entsprechend verzweigen
Select Case s
Case TEAM1
Range(C33).Value = TEAM1-Name
Range(C34).Value = TEAM1-Position
Range(C35).Value = TEAM1-Telefonnummer
Range(C36).Value = TEAM1-Handynr
Range(C37).Value = TEAM1-Emailaddi
Case TEAM2
Range(C33).Value = TEAM2-Name
Range(C34).Value = TEAM2-Position
Range(C35).Value = TEAM2-Telefonnummer
Range(C36).Value = TEAM2-Handynr
Range(C37).Value = TEAM2-Emailaddi
Case TEAM3, TEAM4
Range(C33).Value = TEAM3und4-Name
Range(C34).Value = TEAM3und4-Position
Range(C35).Value = TEAM3und4-Telefonnummer
Range(C36).Value = TEAM3und4-Handynr
Range(C37).Value = TEAM3und4-Emailaddi
Case TEAM5
Range(C33).Value = TEAM5-Name
Range(C34).Value = TEAM5-Position
Range(C35).Value = TEAM5-Telefonnummer
Range(C36).Value = TEAM5-Handynr
Range(C37).Value = TEAM5-Emailaddi
Case Else
If s = Then
MsgBox Nichts ausgewählt.
Else
MsgBox _
Ausgewählten Begriff nicht erkannt. & vbLf & _
Begriff:-> & s &->
End If
End Select
End Sub
Gruß Matjes