Office: VBA - mit Sverweis Zeile markieren und löschen

Nabend,
ich hab in VBA folgendes Problem: Ich möchte gerne per VBA einen Wert in einer Tabelle suchen und daraufhin die komplette Zeile, in der sich der Wert befindet löschen.

Code:

Public Sub c_loeschen()
Dim Sendung As Integer
Dim Nummer As Integer
Nummer = InputBox("Bitte Wert eingeben")
sendung = WorksheetFunction.VLookup(Nummer, Sheets("Tabelle1").[b4:c200], 2, False)
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
End Sub

Gelöscht wird allerdings nur die zuletzt markierte Zeile.
Ich bin mir sicher, dass der Code falsch ist, mit meiner 2 wöchigen VBA erfahrung ist mir allerdings nichts anderes eingefallen.
Für Hilfe bedanke ich mich im Vorraus.

 

Hallo!

Ich verstehe nicht ganz, warum du "VLookup" benutzt...
Wenn du Zeilen löschen möchtest, dann ist es wichtig, dass du dies von UNTEN nach OBEN tust, weil sonst der Zähler durcheinander kommt.
In deinem Fall (ungetestet!) mit einer For-Next-Schleife:

For i = 200 To 4 Step -1
If Cells(i, 3) = Nummer Then Rows(i).Delete
Next i

Dieser Code sucht in Spalte 3 (C4:C200) nach Nummer und löscht diese Zeilen (hoffentlich :-D ).

 

Ich dachte ich könnte die Schleife umgehen, indem ich mit dem Sverweis die Position abfrage.

Die Version ist aufjeden Fall funktionstüchtig.
Vielen Dank

 

Hallo!

Der SVerweis fragt immer nur EINE, nämlich die ERSTE Position ab, dann ist daddeldu.
Daher brauchst du hier schon ein Schleife.

Ps: Um in VBA versetzte Zellen abzufragen, nutzt du am besten die Anwesung ".Offset".

MeinBereich.Offset(x, y)
verschiebt um x Zeilen nach rechts und um y Spalten nach unten.
(bei negativen Werten entsprechend nach links und nach oben).