|
Hallo zusammen
Ich bin ein VBA-Neuling und habe mir die nötigen Kenntnisse in den letzten Tagen zusammengebastelt, habe jedoch jetzt mein Userform nach Wunsch zusammen und es funktioniert prächtig!
Bei einem Punkt stehe ich jedoch noch an:
Ich habe eine Listbox (Single) mit verschiedenen möglichen Abschlüssen einer Beratung (Triage, Klient/in nicht mehr erschienen, Ziel erreicht und so weiter.) Nun möchte ich einen Wert "Beratung noch nicht abgeschlossen" einfügen, damit man beim Jahresabschluss auch diejenigen Beratungen eifügen kann, die noch nicht abgeschlossen sind. Wenn man jedoch das Feld "Beratung noch nicht abgeschlossen" anklickt sollte das darauffolgende Textfeld für das Abschlussdatum mit "Beratung noch nicht abgeschlossen" gefüllt und deaktiviert werden. Ich habe jedoch nich herausgefunden wie ich das hinkriege...
Hier einmal die aus meiner Sicht relevanten Code-Stellen (fragt euch nicht, falls es nach einem Gebastel aussieht! Hauptsache, es funktioniert!  ):
Private Sub CommandButton1_Click()
Dim z As Integer
z = Range("A65565").End(xlUp).Row + 0
Cells(z, 16) = Me.lbAbschluss
Cells(z, 17) = Me.tbAbschlus
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Me.lbAbschluss
.AddItem "noch nicht abgeschlossen"
.AddItem "nicht mehr erschienen"
.AddItem "Ziel erreicht"
.AddItem "Neues Problem / Ziel, Neuer Fokus"
.AddItem "Wegzug"
.AddItem "Triage Sozialdienst"
.AddItem "Triage KESB"
End With
End Sub
Schon einmal Danke ganz herzlich für die Unterstützung!
Liebe Grüsse
Martin
|