Office: Wert aus TB / UF in Tabellenblatt H2:H1000 suchen löschen

Hallo,

Bräuchte eine Anweisung, welche mir in einem Tabellenblatt-X die Spalte H2:H1000 nach einem Wert, der in TB1 einer UF steht, durchsucht und diese Zelle löscht. Löse diesen Vorgang via CB aus.

Gruß Timi

 

Hallo

"der in TB1 einer UF steht, " was soll das bedeuten?

Ansonsten z.B diesen Code in ein Modul:

Code:

Sub durchsuchen()
Dim i As Range
Dim bereich As Range
Set bereich = Range("h2:h1000")
For Each i In bereich
If i.Value = Range("a1").Value Then
i.ClearContents
End If
Next i
End Sub

Löscht aus H2:H1000 alle Werte die in A1 eingegeben werden.

Gruß

 

Hallo

"der in TB1 einer UF steht, " was soll das bedeuten?

bedeutet:

der in TextBox1 einer UserForm steht.

Werde Deinen Vorschlag umgende anpassen und testen!

Vielen Dank!

 

Hallo,

ist nicht so das, was ich bräuchte. Auf jeden Fall funzt's nicht so richtig!

In meinem Tabellenblatt " Gesamtübersicht " stehen in H2:H1000 div. Werte untereinander.
Nun sollte per CommandButton in meiner UserForm dieser Bereich durchsucht werden und die Zelle gelöscht werden, welche in meiner TextBox1 auf der UserForm gerade angezeigt wird.

Bsp.: In TextBox1 meiner UserForm wurde die 120 ausgewählt. Nun müsste im Tabellenblatt " Gesamtübersicht " in der Spalte H2:H1000 die Zelle gelöscht werden, welche die Zahl 120 beinhaltet.

Gruß Timi

 

KORREKTUR; Funktioniert doch!
Hatte kleinen Fehler gemacht!
Hier mein Ergebnis:

Dim i As Range
Dim bereich As Range
Set bereich = Sheets("Gesamtübersicht").Range("h2:h1000")
For Each i In bereich
If i.Value = TextBox1.Value Then
i.ClearContents
End If
Next i

Gruß Timi