UserForm - Daten bearbeiten
24.11.2022 06:13:24
Michael
Um die eingefügten Daten zu bearbeiten haben ich eine UserFormBearbeiten programmiert.
Beim Öffnen der UserFormBearbeiten sind die Felder auch befüllt und lassen sich manuell verändern und speichern (soweit so gut).
Ich hätte aber gerne, dass die beiden TextBoxen Team und Dienstort automatisch ausgefüllt werden, wenn ich in der "ComboBoxKürzel" einen neuen Namen auswähle.
Irgendwo habe ich aber noch einen Denkfehler, könnt ihr mir helfen?
Wäre toll, wenn ihr den Fehler ausbessern könntet.
Option Explicit
Private p_aktuelleZeile As Long
Public Property Let aktuelleZeile(ByVal neueAktuelleZeile As Long)
p_aktuelleZeile = neueAktuelleZeile
End Property
Private Sub ButtonSpeichern_Click()
'Prüfung ob alle Felder befüllt sind
If TextBoxDatum.Value = "" Or TextBoxAnzahl.Value = "" Then
MsgBox "Bitte fülle alle Felder aus.", , ""
Exit Sub
End If
'Daten ins Tabellenblatt übernehmen
With shDaten
.Cells(p_aktuelleZeile, 1).Value = TextBoxID.Value
.Cells(p_aktuelleZeile, 2).Value = TextBoxDatum.Value
.Cells(p_aktuelleZeile, 3).Value = ComboBoxLeistung.Value
.Cells(p_aktuelleZeile, 4).Value = TextBoxAnzahl.Value
.Cells(p_aktuelleZeile, 5).Value = TextBoxReferent.Value
.Cells(p_aktuelleZeile, 6).Value = ComboBoxKürzel.Value
.Cells(p_aktuelleZeile, 7).Value = TextBoxTeam.Value
.Cells(p_aktuelleZeile, 8).Value = TextBoxDienstort.Value
End With
'UserForm schließen
Unload Me
End Sub
Private Sub UserForm_Activate()
'ComboBoxen befüllen
ComboBoxLeistung.List = shLeistungskatalog.ListObjects("tblLeistungskatalog").DataBodyRange.Value
Dim blnCODE As Boolean
blnCODE = True
ComboBoxKürzel.List = shPersonal.ListObjects("tblPersonal").DataBodyRange.Value
ComboBoxKürzel.ListIndex = 0
blnCODE = False
If Not blnCODE Then
TextBoxReferent = ComboBoxKürzel.Column(1)
TextBoxTeam = ComboBoxKürzel.Column(2)
TextBoxDienstort = ComboBoxKürzel.Column(3)
End If
'Daten laden
With shDaten
TextBoxID.Value = .Cells(p_aktuelleZeile, 1).Value
TextBoxDatum.Value = .Cells(p_aktuelleZeile, 2).Value
ComboBoxLeistung.Value = .Cells(p_aktuelleZeile, 3).Value
TextBoxAnzahl.Value = .Cells(p_aktuelleZeile, 4).Value
TextBoxReferent.Value = .Cells(p_aktuelleZeile, 5).Value
ComboBoxKürzel.Value = .Cells(p_aktuelleZeile, 6).Value
TextBoxTeam.Value = .Cells(p_aktuelleZeile, 7).Value
TextBoxDienstort.Value = .Cells(p_aktuelleZeile, 8).Value
End With
End Sub
LG
Michael