Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zelle Wert suchen und

Zelle Wert suchen und
28.12.2015 17:22:30
kurt
Hallo zusammen,
ich möchte den Text in der Zelle D1 in der
Spalte B2 bis B100 suchen.
Selectieren und im zweiten Ansatz löschen.
gruß
kurt k

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle Wert suchen und
28.12.2015 17:28:51
Crazy
Hallo
so geht es nach deiner Beschreibung
Sub test()
Dim c As Range
Set c = Range("B2:B100").Find(Range("D1").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Select
c.Clear
End If
End Sub

wobei man das c.select auch weglassen kann
MfG Tom

Anzeige
AW: Zelle Wert suchen und
28.12.2015 17:30:55
Michael
Hi Kurt,
schau Dir mal den Code an: https://www.herber.de/mailing/vb/html/xlmthfindx.htm
Hier ist er leicht geändert:

dim suchwert as string, firstAddress as string
dim c as range
suchwert=Worksheets(1).Range("d1")
With Worksheets(1).Range("b2:b100")
Set c = .Find(suchwert, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
'            c.Interior.Pattern = xlPatternGray50
c.value=""
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address  firstAddress
End If
End With
Schöne Grüße,
Michael

Anzeige
Danke Tom und Michael -)
28.12.2015 17:55:31
kurt
Danke, super Lösungen !
gruß
kurt k

gerne, vielen Dank für die Rückmeldung owT
28.12.2015 18:34:08
Michael
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige