Fehler mit InputBox
10.09.2007 11:06:00
lisa
Mit diesem u.a. beigefügten Code suche ich Daten aus meiner Tabelle und lasse mir anzeigen wo dieser Datensatz steht.
Klappt prima.
Nun habe ich aber einen Fehler in der Formel, den ich nicht lokalisieren kann.
Steuer ich den Befehlsbutton an, wird nach den zu suchenden Datensatz gefragt, so weit so gut.
Breche ich aber die Eingabebox ab, werden alle Datensätze kopiert.
Und hier liegt der Fehler. Wenn ich die Eingabebox abbreche darf auch nichts kopiert werden.
Weß hier jemand wo der Fehler ist und wie das abgestellt werden kann?
Private Sub CommandButton1_Click()
Dim intwort, intbereich, intergebnis, intgef As Integer
Dim loletzte As Long
Range("C2:D10").ClearContents
intgef = 4
loletzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row + 1, 65536)
intwort = InputBox("Was soll gesucht werden?")
For intbereich = 1 To loletzte
If InStr(1, Cells(intbereich, 1), intwort, vbTextCompare) Then
Cells(intgef, 3) = Cells(intbereich, 1)
intergebnis = intbereich
Cells(intgef, 5) = intergebnis
intgef = intgef + 1
End If
Next intbereich
End Sub
Danke für eure Hilfe schon einmal im voraus.
Liebe Grüße Lisa