Abbrechen bei Inputbox funktioniert nicht
13.11.2018 13:56:49
Katja
ich komme hier gerade leider mit ausprobieren und Forumsbeiträgen nicht mehr weiter.
Ich habe einen Code der folgendes Bewirken soll (und auch tut)
1. es soll auf der Seite "Übersicht" über eine Schaltfläche eine Inputbox geöffnet werden
2. Bei Eingabe einer richtigen Nummer, soll diese in einer weiteren Tabelle gesucht und die Zeile markiert werden
3. Bei Eingabe keiner oder falschen Nummer wird nur die weitere Tabelle geöffnet
(bis hier läuft es...)
4.Bei Abbruch soll auf die Seite "Übersicht" verblieben werden... und genau hier liegt mein Problem... er springt auch bei Abbruch in die weitere Tabelle.
Hier mein Code
Sub DatenÄndern()
Dim i As Integer
Dim Eingabe As String
Eingabe = InputBox("Welcher Datensatz soll geändert werden? (z.B. 1/1029)", "Datensatz auswä _
hlen", 1)
Sheets("Bewerbungen Gesamt").Visible = True
Sheets("Bewerbungen Gesamt").Select
For i = 1 To ActiveSheet.UsedRange.Columns(18).Cells.Count
If Cells(i, 18).Value = Eingabe Then
Rows(i).Activate
End If
Next i
End Sub
Wo liegt mein Gedankenfehler? Vielen Dank schonmal im Voraus!
Gruß Katja