AW: Doppelte Werte über zwei Spalten
17.01.2018 12:46:17
Tim
Vielen Dank für die schnelle Antwort, es klappt nur bedingt, ich bin mir aber nicht sicher ob ich den Code an der richtigen Stelle platziert habe.
ich will erreichen, dass sobald der Commandbutton gedrückt wird, im ersten Step geprüft wird ob die Einträge bereits vorhanden sind (wenn ja dann die Fehlermeldung und mache nichts) und wenn nein die Daten geschrieben werden.
Hier mein Code, sobald ich über "Play das ganze probiere geht es, wenn ich dann die Userform live nutze geht es nicht, was mache ich falsch!?
Private Sub CommandButton2_Click()
Dim Ausführen As Boolean
Dim Leerzeile As Long 'Datenblatt als Objektvariable
Ausführen = True
If Vorname.Text = "" Then Ausführen = False
If Familienname.Text = "" Then Ausführen = False
If Kuerzel.Text = "" Then Ausführen = False
If Datum.Text = "" Then Ausführen = False
If Kategorie.Text = "" Then Ausführen = False
If Prozess.Text = "" Then Ausführen = False
If WorksheetFunction.CountIfs(Columns(1), Vorname & " " & Familienname, Columns(4), Prozess) > _
0 Then
MsgBox " Eintrag schon vorhanden, bitte prüfen"
Exit Sub
End If
If Ausführen Then
Leerzeile = 2
Do While Worksheets("Datenbank").Cells(Leerzeile, 1).Value Empty
Leerzeile = Leerzeile + 1
Loop
Sheets("Datenbank").Cells(Leerzeile, 1) = Vorname.Value & " " & Familienname
Sheets("Datenbank").Cells(Leerzeile, 2) = Kuerzel.Value
Sheets("Datenbank").Cells(Leerzeile, 3) = Datum.Value
Sheets("Datenbank").Cells(Leerzeile, 4) = Prozess.Value
Sheets("Datenbank").Cells(Leerzeile, 5) = Label7.Caption
Sheets("Datenbank").Cells(Leerzeile, 6) = Label10.Caption
Sheets("Datenbank").Cells(Leerzeile, 7) = "anlernen"
MsgBox "Daten erfolgreich übernommen"
UserForm1.Hide
For Each objControl In Controls
Select Case TypeName(objControl)
Case "TextBox"
objControl.Text = ""
Case "ComboBox"
objControl.ListIndex = -1
Case "CheckBox"
objControl.Value = False
Case "OptionButton"
objControl.Value = False
End Select
Next
Else
MsgBox "Bitte alle Felder vollständig ausfüllen."
End If
Application.ScreenUpdating = False
Unload UserForm4
UserForm4.Show
Application.ScreenUpdating = True
End Sub