Anzeige
Archiv - Navigation
428to432
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
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle suchen

Zelle suchen
14.05.2004 23:52:18
Michi
Wie kann ich einen Namen (x) in Spalte „B“ finden, wenn dieser eventuell in Spalte („A“) ebenfalls vorhanden ist ? Nach Fund soll Zelle markiert werden .

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle suchen
15.05.2004 00:11:54
Josef
Hallo Michi!
Zuerst schau mal hier!
https://www.herber.de/forum/archiv/404to408/t407829.htm#407838
Die Lösung könnte so aussehen.
Option Explicit

Sub suche_doppelt_und_markiere()
Dim rng1 As Range
Dim rng2 As Range
Dim sFind As String
sFind = InputBox("Suchbegriff", "SUCHE", "?")
If sFind = "" Then Exit Sub
Set rng1 = Range("B:B").Find(What:=sFind, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng1 Is Nothing Then
Set rng2 = Range("A:A").Find(What:=sFind, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng2 Is Nothing Then rng1.Activate
End If
End Sub

Gruß Sepp
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige