ich möchte gerne, wenn der User ABBRECHEN in der Inputbox drückt,
eine andere
Sub aufrufen (Call Loeschen).
Wer kann mir bitte dabei helfen?
Gruß Reinhardt.
Sub RGSuche()
Dim suche As String
Dim z As Integer
suche = InputBox("Welche Rechnung suchen Sie? ", , "4711")
Sheets("RGArchiv").Select
z = 0 'den Zähler für die Treffer zu Beginn auf Null stellen
[H3].Activate 'hier ändern falls eine andere Spalte durchsucht werden _
soll
If suche = "" Then Exit
Sub 'wenn keine Eingabe in InpuBox erfolgte wird abgebrochen
Do Until ActiveCell = "" 'bis zur ersten leeren Zelle suchen
ActiveCell.Offset(1, 0).Activate 'eine Zeile nach unten gehen
If ActiveCell = suche Then 'wenn die Zelle den gesuchten Wert enthält:
ActiveCell.Offset(0, -7).Select
Sheets("RGFormular").Range("S4").Value = ActiveCell.Value
Exit Sub
z = z + 1 'dann den Zähler um eins erhöhen
End If
Loop
End Sub