Laufzeitfehler 13 nur bei manchen Eingaben

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$2" Then Call Suchen

End Sub

Private Sub Suchen()

Dim suchwort As String

Dim gesamtSumme, suchZeile, letzteGefundeneZeile, versSumme, Z As Variant

Dim suche, suche2 As Boolean

Dim sheetAusgabenKum As Worksheet

Const Farbe = 10092543

On Error GoTo FehlerVerarbeitung

'--------------

Set sheetAusgabenKum = ThisWorkbook.Sheets("AusgabenKum")

'--------------

versSumme = 0 'Versicherungssumme wird auf 0 gesetzt

suchZeile = 6 'suchZeile erster Eintrag

gesamtSumme = 0 'gesamtSumme wird auf 0 für Start gesetzt

suchwort = sheetAusgabenKum.Cells(2, 2).Value

'-------------- Zellen entfaerben

For Z = 3 To Worksheets("AusgabenKum").Cells(Rows.Count, 2).End(xlUp).Row

    Worksheets("AusgabenKum").Cells(Z, 2).Interior.Color = xlNone

Next Z

'-------------- Gesamtsummenzelle auf0 setzen, Abfrage ob Firma eingegeben wurde

sheetAusgabenKum.Cells(2, 3).Value = 0

If suchwort = "" Then sheetAusgabenKum.Cells(2, 2).Value = "Bitte hier die Firma eingeben! (Gesamtsumme der Überweisungen)"

If suchwort = "" Then Exit Sub

'-------------- Auswertung gesuchte Firmen

sheetAusgabenKum.Select

sheetAusgabenKum.Columns("B:B").Select

suche = Selection.Find(What:=suchwort, After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False).Activate

suchZeile = Application.ActiveCell.Row

letzteGefundeneZeile = 0 'erneutes Suchen vom Anfang verhindern

'--------------

While suche = True And suchZeile > letzteGefundeneZeile

gesamtSumme = gesamtSumme + sheetAusgabenKum.Cells(suchZeile, 3).Value + sheetAusgabenKum.Cells(suchZeile, 4).Value

Worksheets("AusgabenKum").Cells(suchZeile, 2).Interior.Color = Farbe

letzteGefundeneZeile = suchZeile

Selection.FindNext(After:=ActiveCell).Activate

suchZeile = Application.ActiveCell.Row

Wend

'-------------- Auswertung_Generali_Überweisungen

sheetAusgabenKum.Cells(4, 3).Value = 0

versSumme = 0

suchZeile = 6 'suchZeile erster Eintrag

sheetAusgabenKum.Select

sheetAusgabenKum.Columns("B:B").Select

suche2 = Selection.Find(What:="Uniqa", After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False).Activate

suchZeile = Application.ActiveCell.Row

letzteGefundeneZeile = 0 'erneutes Suchen vom Anfang verhindern

'--------------

While suche2 = True And suchZeile > letzteGefundeneZeile

versSumme = versSumme + sheetAusgabenKum.Cells(suchZeile, 3).Value

letzteGefundeneZeile = suchZeile

Selection.FindNext(After:=ActiveCell).Activate

suchZeile = Application.ActiveCell.Row

Wend

'-------------- Ausgabe der Summen und Hinweise

sheetAusgabenKum.Cells(2, 3).Value = gesamtSumme

versSumme = versSumme

sheetAusgabenKum.Cells(4, 3).Value = -(versSumme)

sheetAusgabenKum.Cells(2, 2).Select

Exit Sub

'-------------- Laufzeitfehler abfangen (Ausstieg mit ESC)

FehlerVerarbeitung:

MsgBox "Fehler aufgetreten. Programm neu starten!"

End Sub