Fehler in Code
29.01.2019 09:48:43
Peter
ich habe einen Code dieser soll prüfen, ob in Spalte F = Girokonto, in Spalte D =0 und in Spalte C = 00.01.1900
Hier mein Code:
~f
Sub test3()
Dim SuWF As String
Dim SuWD As String
Dim SuWC As String
SuWF = "Girokonto"
SuWD = "0"
SuWC = ("00.01.1900") 'funktioniert nicht
If Not Range("F:F").Find(SuWF) Is Nothing And Not Range("D:D").Find(SuWD) Is Nothing And Not _
Range("C:C").Find(SuWC) Is Nothing Then
MsgBox "Girokonto vorhanden - Ersatzkonto = 0 - Enddatum = 00.01.1900"
Else
MsgBox " nicht vorhanden"
End If
End Sub
~f
Die Prüfung Spalte F und D funktioniert. Nicht jedoch Spalte C.
Könnt ihr mir sagen, wo der Fehler liegt.
Besten Dank für eure Hilfe.
Gruss
Peter
