If block ohne If?
22.09.2016 08:34:10
Christof
Dim ValutaBetrag As String
Dim pruefen As Boolean
Dim c As Range
Dim PrüferLZDBT2 As Long
For PrüferLZDBT2 = LZDBT To 2 Step -1
If (Sheets("Datenbank Termingeld").Cells(PrüferLZDBT2, "B").Value) = Heute Then
ValutaBetrag = Sheets("Datenbank Termingeld").Cells(PrüferLZDBT2, "J").Value
End If
Set c = Worksheets("Datenbank Eing Kosten").Cells.Find(ValutaBetrag, LookIn:= _
xlValues)
If Not c Is Nothing Then pruefen = True Else pruefen = False
End If
If pruefen = False Then
GoTo BereitsEingefügt
End If
If pruefen = False Then
GoTo ValutaPrüfenUndEintragen
End If
Next