Hallo im Forum,
nach dem mir Jens kürzlich suuper geholfen hat, jetzt eine folge Frage.
Wenn ich diesen Code ausführe, und in der darunterliegenden Zelle kein Wert gefunden wird, bekomme ich eine Fehlermeldung.
Wie kann ich das umgehen, ohne dass die Funktionalität verloren geht.
Unter der "FBEZ." Zelle befindet ein String der wieder aufgeteilt wir (Bspl. 12:00-13:00).
Befindet sich jedoch eine leere Zelle darunter, bekomme ich eine Fehlermeldung.
Dim rngBereich As Range
Cells(33, 5).ClearContents
For Each rngBereich In ActiveSheet.UsedRange.Cells
If rngBereich = "FBEZ." Then
Cells(33, 5) = Cells(33, 5) _
+ CDate(Right(rngBereich.Offset(1, 0).Value, 5)) _
- CDate(Left(rngBereich.Offset(1, 0).Value, 5))
End If
Next rngBereich
End Sub
Danke für eure Hilfe
VoVo