Excel Makro

Hallo!

Ich habe bei Excel folgendes Problem.
Ich habe eine ComboBox erstellt. Wenn in dieser Box ein Eintrag ausgwählt wird, dann soll in einer anderen Zelle ein dazugehöriger Wert eingetragen werden.
Mein Makro sieht derzeit so aus:

Private Sub ComboBox3_Change()
With Worksheets("RT")
If "ComboBox3" = ("Bonn") Then
.Range("U6") = 40
End If
End With
End Sub

Leider funktioniert das aber nicht. Kann mir jemand sagen wie das geht?

Danke!
Tom

 

Code:

Private Sub ComboBox3_Change()

           'zurücksetzen der Werte in allen Ausgabefeldern
Worksheets("RT").Range("U6:U12").Value = ""

Select Case ComboBox3.Text
    Case "Bonn"
        Worksheets("RT").Range("U6").Value = 40
    Case "Hamburg"
        Worksheets("RT").Range("U7").Value = 30
   'Case "DieAnderenAuswahlMöglichkeiten" sinngemäss

End Select

End Sub

Falls alle Ausgaben in die gleiche Zelle geschrieben werden >
- entfällt die erste Codezeile
- ist in den Caseanweisungen Range immer U6

Gruss Urs

 

Danke. Jetzt klappt es so wie ich es mir vorgestellt habe.
Gibt es eigentlich auch eine Möglichkeit den Text in einer Combobox umzubrechen (Zeilenumbruch)? Mein text ist länger als die Combobox. Da ich diese aber nicht breiter machen will und kann, wäre ein Zeilenumbruch ganz gut.

Gruß
Tom

 

Hi Tommi,

da hast du schlechte Karten. So weit mir bekannt ist, geht das nur in einer TextBox.