Fehlerhafte abfrage aus ComboBox
Tobias
Hallo zusammen,
in meinem Makro funktioniert leider die abfrage der Combobox nicht richtig.
1. wenn nichts in der Combobox ausgewählt wurde bringt es mir nicht meine Meldung
2. selbst wenn was ausgewählt wurde wird immer nur eine leere Zeile bearbeitet/ gelöscht. (sprich die erste Zeile wenn diese leer ist oder bzw. eine neue Zeile unter meinen Einträgen.)
Könnt ihr mir weiterhelfen?
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim searchValue As String
Dim foundCell As Range
Dim response As VbMsgBoxResult
'setze Arbeitsblatt
Set ws = ThisWorkbook.Sheets("Tabelle2")
'hole den Wert aus der Combobox
serchValue = Me.ComboBox1.Value
'suche den wert in Spalte B
Set foundCell = ws.Columns("B").Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
'Überprüfe ob der wert gefunden wurde
If Not foundCell Is Nothing Then
If Me.CheckBox1.Value = True And Me.CheckBox2.Value = False Then
'checkbox1 ist ausgewählt, erhöhe den wert in spalte D um 1
foundCell.Offset(0, 2).Value = foundCell.Offset(0, 2).Value + 1
MsgBox "Werkzeug wurde als Nachgeschliffen markiert.", vbInformation
ElseIf Me.CheckBox2.Value = True And Me.CheckBox1.Value = False Then
'checkbox2 ist ausgewählt zeile löschen und frage nachbestätigung
response = MsgBox("Dieses Werkzeug wirklich löschen?", vbYesNo + vbQuestion, "Bestätigung")
If response = vbYes Then
'lösche die gesamte Zeile
foundCell.EntireRow.Delete
MsgBox "Das Werkzeug wurde gelöscht.", vbInformation
Else
MsgBox "Löschvorgang abgebrochen.", vbInformation
End If
Else
MsgBox "Bitte wähle nur eine Checkbox aus.", vbExclamation
End If
Else
MsgBox "Wertnicht gefunden.", vbExclamation
End If
End Sub
Das was in der Combobox auswählen ist und gesucht werden soll sind nur Nummern (Bsp.: 91829).
Das +1 rechnen erfolgt aber in der richtigen Spalte, nur nicht dort wo es soll.
Vielen Dank im Vorraus!