Wert suchen
07.06.2003 19:41:06
Rolf St.
Wenn in Spalte A der Wert nicht gefunden wird, soll der Cursor in
die erste leere Zelle in Spalte A springen und den Wert dort eintragen.
Beispiel: In Tabellenblatt Stammdaten stehen 600 Werte untereinander, die Zahl 450 wird nicht gefunden, dann soll der Cusor nach Zelle A601 springen und die Zahl 450 dort eingetragen werden.
Könnt ihr mir folgendes Makro ändern?
Sub stammdatenpflege()
Dim a As Variant
Dim i As Integer
Sheets("Stammdaten").Activate
Application.ScreenUpdating = False
a = CInt(InputBox("Zahl eingeben"))
For i = 2 To 1000
Sheets("Stammdaten").Activate
If Sheets("Stammdaten").Cells(i, 1).Value = a Then
Sheets("Stammdaten").Cells(i, 1).Select
Exit For
End If
Next i
Application.ScreenUpdating = True
End Sub
Vielen Dank!
Tschüß
Rolf