Anzeige
Archiv - Navigation
1464to1468
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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

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

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

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige