Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

.Find()

.Find()
23.06.2005 17:05:25
Markus
Hallo
Ich wollte nicht immer Schleifen laufen lassen, damit mein Makro schneller wird.
aber jetzt geht das nicht. Was mache ich falsch?
Vielleicht kann mir jemand helfen

Sub sucheneintrag()
Dim ref As Double
Dim bereich As Range
Dim suchfeld As Range
Set bereich = ActiveWorkbook.Sheets("BaKoBrAnSp").Range("a2:a2000")
ref = bereich.Cells(30, 1)
Set suchfeld = bereich.Find(ref, LookIn:=xlValues)
If Not suchfeld Is Nothing Then
MsgBox suchfeld.Address
End If
End Sub

Gruss Markus

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .Find()
23.06.2005 17:20:57
Matthias
Hallo Markus,
bist du sicher, dass das stimmt:

ref = bereich.Cells(30, 1)

Das hieße ja
fre = ActiveWorkbook.Sheets("BaKoBrAnSp").Range("a2:a2000").Cells(30, 1)
?
Gruß Matthias
AW: .Find()
23.06.2005 17:32:29
Markus
Hallo Matthias
Besten Dank für Deine Hilfe.
Dort liegt das Problem nicht.
Es findet einfach keinen Eintrag
Gruss Markus
AW: .Find()
23.06.2005 17:37:39
Markus
Frage noch offen
AW: .Find()
23.06.2005 17:44:44
Matthias
Hallo Markus,
so geht's:

Sub sucheneintrag()
Dim ref As Double
Dim bereich As Range
Dim suchfeld As Range
Set bereich = ActiveWorkbook.Sheets("BaKoBrAnSp").Range("a2:a2000")
ref = ActiveWorkbook.Sheets("BaKoBrAnSp").Cells(30, 1)
Set suchfeld = bereich.Find(ref, LookIn:=xlValues)
If Not suchfeld Is Nothing Then
MsgBox suchfeld.Address
End If
End Sub

Wobei Cells(30,1) ja A30 ist somit im zu durchsuchenden Bereich selbst steht.
Gruß Matthias
Anzeige
AW: .Find()
23.06.2005 17:50:24
Markus
Hallo Mathias
Hast Du mit diesem Code die Addresse A30 als msgbox bekommen ?
bei mir geht es nicht
Gruss Markus
AW: .Find()
23.06.2005 18:01:45
Markus
Besten Dank
geht
Gruss MArkus
AW: .Find()
23.06.2005 18:12:37
Matthias
Hallo MArkus,
noch was:
der Befehl
Range("A2:A2000").Find(ref, LookIn:=xlValues)

sucht erst ab Zelle A3!
also wenn gewünscht A1 schreiben.
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige