habe ne Funktion, die nach Werten sucht. Bei einer Fehlermeldung möchte ich aufgeben, welchen Wert Excel nicht gefunden hat. Nur leider erhalte ich immer
die VBA - Fehler. Was mache ich falsch ?
If Not ThisWorkbook Is ActiveWorkbook Then
ThisWorkbook.Activate
Application.DisplayAlerts = False
End If
With ThisWorkbook.Worksheets(1).Range("a1:a80")
Set c = .Find(Uebergabe, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address(0, 0)
Else:
MsgBox "Das Konto " & Uebergabe & " wurde nicht gefunden!"
Application.DisplayAlerts = True
Exit Sub
End If
End With
Application.DisplayAlerts = True
Dank und Gruss
ticonhh