UserForm mit ComboBox
25.02.2014 08:56:32
Katrin
ich nähere mich langsam dem Ende meiner Datei. Ich habe eine UserForm mit CombBox gemacht, die mir den ausgewählten Wert in die aktive Zelle schreibt. Wenn ich jetzt eine andere Zelle auswähle und genau den gleichen Wert dort wieder eintragen will, funktioniert es nicht. Ich muss erst ein anderes Zeichen auswählen, was dann sofort in die aktivie Zelle geschrieben wird und dann mein ursprüngliches Zeichen auswählen.
Hier ist mein Code:
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1
End Sub
Private Sub ComboBox1_Click()
ActiveCell.Value = Me.ComboBox1
End Sub
Private Sub UserForm_Activate()
Me.StartUpPosition = 0
Me.Top = Application.Top + 40
Me.Left = Application.Left + Application.Width - Me.Width - 40
End Sub
Vielen Dank für eure Hilfe nochmal
Katrin