Prüfen ob Datensatz vorhanden ist
17.04.2017 17:24:38
René
ich brauche mal ein bisschen Anschwung von Euch :).
Ja der COde sieht bestimmt nach Müll aus, aber mir ist wichtig das er Funktioniert :)^^
Dies ist nur der Ausschnitt der mit Sorgen bereitet. Dies soll eine Wettkampfliste sein. Per _
Listbox, übertrage ich die Kämpfer von einem Tabellenblatt ins andere. Was jetzt nicht Funktioniert ist, die Überprüfung ob der Wettkämpfer bereits vorhanden ist, er Prüft nur den ersten Datensatz im Tabellenblatt alle anderen nicht. Wo ist mein Fehler? Jeder Hilfe ist gern gesehen. Das fett gedruckte macht mir Probleme hmm.
Danke schon mal
'Markierten Wettkämpfer zur Auswahl der Punktekämpfer hinzufügen
With Me.lboListeWettkaempfer
For intZeile = 2 To 1000
If Tabelle5.Cells(intZeile, 4).Value = "" Then
Exit For
ElseIf Tabelle5.Cells(intZeile, 1).Value = .List(.ListIndex, 0) And _
Tabelle5.Cells(intZeile, 2).Value = .List(.ListIndex, 1) And _
Tabelle5.Cells(intZeile, 4).Value = .List(.ListIndex, 3) Then
For intZeilePruefung = 2 To 1000
If Tabelle4.Cells(intZeilePruefung, 1).Value = .List(.ListIndex, 0) And _
Tabelle4.Cells(intZeilePruefung, 2).Value = .List(.ListIndex, 1) Then
MsgBox "Diesen Registrierten Kämpfer gibt es bereits!"
ElseIf Tabelle4.Cells(intZeilePruefung, 1).Value .List(.ListIndex, 0) And _
Tabelle4.Cells(intZeilePruefung, 2).Value .List(.ListIndex, 1) Then
For intZeileUebertragung = 2 To 1000
If Tabelle4.Cells(intZeileUebertragung, 1).Value = "" Then
Tabelle4.Cells(intZeileUebertragung, 1).Value = Tabelle5.Cells(intZeileSicherung, 1).Value
Tabelle4.Cells(intZeileUebertragung, 2).Value = Tabelle5.Cells(intZeileSicherung, 2).Value
Tabelle4.Cells(intZeileUebertragung, 3).Value = Tabelle5.Cells(intZeileSicherung, 3).Value
Tabelle4.Cells(intZeileUebertragung, 4).Value = Tabelle5.Cells(intZeileSicherung, 4).Value
Tabelle4.Cells(intZeileUebertragung, 5).Value = Tabelle5.Cells(intZeileSicherung, 5).Value
Exit For
Else
End If
Next intZeileUebertragung
Exit For
Else
End If
Next intZeilePruefung
Else
End If
Next intZeile
End With