Hallo Peter,
nun habe ich aber das Problem, daß ich nun nicht mehr in der InputBox z.B =560,60-45,50+80,56 eingeben kann.Es kommt der Laufzeitfehler 13, Typen unverträglich.Wo liegt der Fehler?
mein kompl.Makro:
Sub Rechnung()
Static rng As Range
Static strAddress As String, strFind As String
Dim strAntwort As Byte
Dim Dummy As Variant
strFind = InputBox("Bitte Suchbegriff eingeben:", "Daten suchen", strFind)
Set rng = Cells.Find(strFind, LookAt:=xlPart, LookIn:=xlFormulas)
If strFind = "" Then Exit Sub
If Not rng Is Nothing Then
strAddress = rng.Address
Do
Application.Goto rng, True
Dummy = MsgBox("Weitersuchen", vbYesNoCancel + vbQuestion)
If Dummy = vbNo Then Exit Do
If Dummy = vbCancel Then Exit Sub
Set rng = Cells.FindNext(After:=ActiveCell)
If rng.Address = strAddress Then
End If
Loop
End If
If rng Is Nothing Then
Beep
MsgBox "Daten wurden nicht gefunden!"
Exit Sub
End If
Cells(ActiveCell.Row, 1).Value = Date
strAntwort = InputBox("SCHADENSBETRAG")
Cells(ActiveCell.Row, 3).Value = strAntwort
Cells(ActiveCell.Row, 3).Select
End Sub