Herbers Excel-Forum - das Archiv
finde Zelle in Bereich
- finde Zelle in Bereich von Herbert vom 27.06.2015 12:22:40
- AW: finde Zelle in Bereich - von Hajo_Zi am 27.06.2015 12:52:30
- AW: finde Zelle in Bereich - von Herbert am 27.06.2015 13:20:55
- AW: finde Zelle in Bereich - von Herbert am 27.06.2015 13:20:55
 |
Betrifft: finde Zelle in Bereich
von: 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
 |
Betrifft: AW: finde Zelle in Bereich
von: Hajo_Zi
Geschrieben am: 27.06.2015 12:52:30
schreibe für
Range(Cells(1, Spalte), Cells(LoLetzte, Spalte))
Range("A3:O22")
lösche
Cells( _
LoLetzte, Spalte)
beachte nicht Komma löschen.
|
Betrifft: AW: finde Zelle in Bereich
von: Herbert
Geschrieben am: 27.06.2015 13:20:55
Hallo Hajo,
du hast bei mir ein Bierchen gut.
Danke, Gruß Herbert
| |