UserForm aufrufen und schließen
28.05.2018 16:50:26
Siegfried
stehe mal wieder vor einem Problem zu welchem ich leider keine Lösung bis dato gefunden habe.
ich möchte auf AK4 einen Wert aus der UserForm eintragen, diese UserForm aber wenn möglich durch Return in AK4 öffnen.
Das eintragen der Werte aus der UserForm funktioniert nur der Aufruf der UserForm gelingt mir leider nur aus dem Macrotext heraus durch aufrufen mit F5 bzw. Button UserForm ausführen.
Habe ich dann den gewünschten Wert ausgewählt und klicke auf "Auswahl übernehmen" wird dieser in AK4 übernommen aber der Code von UserForm1 nicht geschlossen.
Hier der Code von UserForm1
Option Explicit
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub CommandButton1_Click()
If Len(SelectName) = 0 Then
SelectName = Worksheets("GrundDaten").Range("A7")
End If
Worksheets("GrundDaten").Range("AK4") = UserForm1.Box1
Sheets("GrundDaten").Select
Range("A1").Select
Rem cmdCancel_Click
End
End Sub
Private Sub UserForm_Initialize()
' 1. Möglichkeit der ComboBox
With UserForm1.Box1
.AddItem "HighW"
.AddItem "FRA"
.AddItem "Nord"
.AddItem "Sued"
.AddItem "CCA"
.AddItem "CC"
.AddItem "BD"
.AddItem "KML"
.ListIndex = 0 ' = HighW
End With
End Sub
Wer kann mir bitte zu einer Lösung weiterhelfen?
Gruß Siegfried