Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

finde Zelle in Bereich

finde Zelle in Bereich
27.06.2015 12:22:40
Herbert

Hallo,
Diesen Code hat mir Hajo bzw. Gerd geschrieben.
Für eine andere Tabelle sind die Suchkriterien anders.Es soll ein Bereich (A3-O22) durchsucht werden. Hier wird nur in der aktiven Spalte gesucht.
Ich komme nicht klar, entsprechend anzupassen. Vielleicht kann mir jemand helfen.
Danke und Gruß Herbert
Dim sSerch As String
Dim Spalte As Long
Spalte = ActiveCell.Column
sSearch = InputBox("Suchbegriff:", , "")
If sSearch = "" Then Exit Sub
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, Spalte)), Cells(Rows.Count, Spalte).End(xlUp). _
Row, Rows. _
Count)
' enthalten
Set RaFound = Range(Cells(1, Spalte), Cells(LoLetzte, Spalte)).Find(sSearch, Cells( _
LoLetzte, Spalte), , xlPart, , _
xlNext)
' kompletter Vergleich und Inhalt
'Set RaFound = Range(Cells(1, Spalte), Cells(LoLetzte, Spalte)).Find(sSearch, Cells( _
LoLetzte, Spalte), , xlWhole, _
, xlNext)
If Not RaFound Is Nothing Then
RaFound.Select
End If

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: finde Zelle in Bereich
27.06.2015 12:52:30
Hajo_Zi
schreibe für
Range(Cells(1, Spalte), Cells(LoLetzte, Spalte))
Range("A3:O22")
lösche
Cells( _
LoLetzte, Spalte)
beachte nicht Komma löschen.

AW: finde Zelle in Bereich
27.06.2015 13:20:55
Herbert
Hallo Hajo,
du hast bei mir ein Bierchen gut.
Danke, Gruß Herbert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige