ich hatte letzte Woche bereits eine Frage zum Thema UserForm, ComboBox, usw. gestellt. Mir wurde ein Link zu einer Datei mit ähnlichem Inhalt genannt. Jetzt habe ich das Problem, dass diese Datei, nachdem ich sie etwas an meine Bedürfnisse angepasst habe, die Daten nicht mehr aktualisiert...
Sobald man einen Eintrag hinzufügen bzw. einen vorhandenen ändern möchte, und auf den Button "Übernehmen" klickt, passiert.....nichts! Ich kann mir nicht erklären, woran das liegt.
Hoffe der unten eingefügte Code reicht aus, um nachvollziehen zu können, worum es sich handelt - falls nicht, sagt bitte bescheid!
CODE:
-----
Option Explicit
Private Sub CBox_Auswahl_Click()
If CBox_Auswahl.ListIndex <> 0 Then
TB_StaplerNR = Cells(CBox_Auswahl.ListIndex + 1, 1)
TB_Typ = Cells(CBox_Auswahl.ListIndex + 1, 2)
TB_Abteilung = Cells(CBox_Auswahl.ListIndex + 1, 3)
Else
TB_StaplerNR = ""
TB_Typ = ""
TB_Abteilung = ""
End If
End Sub
Private Sub CB_Löschen_Click()
If CBox_Auswahl.ListIndex > 0 Then
Rows(CBox_Auswahl.ListIndex + 1).Delete
TB_StaplerNR = ""
TB_Typ = ""
TB_Abteilung = ""
UserForm_Initialize
End If
End Sub
Private Sub CB_Übernehmen_Click()
Dim xZeile As Long
Dim MELDUNG As String
MELDUNG = "Bitte alle Felder ausfüllen!"
If TB_StaplerNR = "" Or TB_Typ = "" Or TB_Abteilung = "" Then MsgBox (MELDUNG)
Exit Sub
If CBox_Auswahl.ListIndex = 0 Then
xZeile = [A65536].End(xlUp).Row + 1
Else
xZeile = CBox_Auswahl.ListIndex + 1
End If
Cells(xZeile, 1) = TB_StaplerNR
Cells(xZeile, 2) = TB_Typ
Cells(xZeile, 3) = TB_Abteilung
TB_StaplerNR = ""
TB_Typ = ""
TB_Abteilung = ""
Columns("A:C").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
UserForm_Initialize
End Sub
Private Sub CB_Schließen_Click()
Unload Me
End Sub
Private Sub TB_Abteilung_Change()
End Sub
Private Sub UserForm_Initialize()
Dim aRow, i As Long
Application.EnableEvents = False
CBox_Auswahl.Clear
aRow = [A65536].End(xlUp).Row
CBox_Auswahl.AddItem "neuen Stapler hinzufügen"
For i = 2 To aRow
CBox_Auswahl.AddItem Cells(i, 1)
Next i
CBox_Auswahl.ListIndex = 0
Application.EnableEvents = True
End Sub