Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1192to1196
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
Inhaltsverzeichnis

Suchen und weitersuchen auf Spalte

Suchen und weitersuchen auf Spalte
webdepp
Hallo Experts,
ich habe ein kleines Problem und komme irgendwie nicht auf die Lösung. Ich suche einen Begriff und wenn er gefunden wurde soll er weiter weitersuchen. Das funktioniert auch alles fein, nur sucht über das ganze Excel und nicht in Spalte 4 (Spalte D), die ich im beim Set angegeben habe. Kann mir jmd helfen? Danke
gruß webdepp
Sub test()
Dim rng As Range
Dim sBegriff As String, sAddress As String
sBegriff = "Frei"
Set rng = Columns(4).Find(what:=sBegriff)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
Exit Sub
End If
sAddress = rng.Address
rng.Select
MsgBox rng.Address(False, False)
rng.Offset(1).Select
Do
Cells.FindNext(After:=ActiveCell).Activate
If ActiveCell.Address = sAddress Then Exit Sub
MsgBox ActiveCell.Address(False, False)
Loop
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Suchen und weitersuchen auf Spalte
10.01.2011 13:41:55
Rudi
Hallo,
dann musst du auch nur in D weitersuchen!
Columns(4).FindNext(....
Gruß
Rudi
Danke ! - AW: Suchen und weitersuchen auf Spalte
10.01.2011 13:43:40
webdepp
Hallo Rudi,
habe den Wald vor lauter Bäumen nicht gesehen.
Danke...
Gruß webdepp
AW: Suchen und weitersuchen auf Spalte
10.01.2011 13:44:28
Holger,
Hallo,
also ich benutze das auch und ich habe den Range anders definiert.
Hier ein Beispiel, vergiss was du nicht brauchst:
Public Function FindRecords(ByVal PG As String, _
ByVal ctry As String, _
ByVal rng As Range, _
ByVal WS As Worksheet) As Boolean
Dim rngmyCell As Range
Dim strFirstAddress As String
With rng
Set rngmyCell = .Find(ctry, LookIn:=xlValues)
If Not rngmyCell Is Nothing Then
strFirstAddress = rngmyCell.Address
Do
If rngmyCell.Offset(0, 1).Value = "" Then
strPublishOp = "PUBLISH RUNNING" & " " & PG
FindRecords = False
Else
If rngmyCell.Offset(0, -1) = PG Then
strPublishDate = rngmyCell.Offset(0, 1).Value
If rngmyCell.Offset(0, 5).Value = "REPUBLISH" Then
strPublishOp = rngmyCell.Offset(0, 5).Value & " " & PG
Else
strPublishOp = "PUBLISH COMPLETE" & " " & PG
End If
FindRecords = True
Exit Function
End If
End If
Set rngmyCell = .FindNext(rngmyCell)
Loop While Not rngmyCell Is Nothing And rngmyCell.Address  strFirstAddress
Else
End If
End With
FindRecords = False
End Function

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige