Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wert aus Tabelle2 in Tabelle1 finden

Wert aus Tabelle2 in Tabelle1 finden
12.06.2004 11:43:59
DieterG
Hallo Forum,
wie kann ich per Makro den Wert aus Tabelle2 in ZelleC5
in Tabelle1 im Bereich B5:B35 suchen und wenn dieser gefunden wurde, die Zelle anspringen?
Vielen Dank für Euerer Hilfe
Gruß Dieter
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert aus Tabelle2 in Tabelle1 finden
12.06.2004 11:57:29
Matthias
Hallo Dieter,

Sub test()
Dim f
Set f = Sheets("Tabelle1").Range("B5:B35").Find(what:=Sheets("Tabelle2").Range("C5"), lookat:=xlWhole)
If Not f Is Nothing Then
f.Select
Else
MsgBox "nicht gefunden!"
End If
End Sub

Aktives Blatt muss wg. f.Select-Befehl Tabelle1 sein.
ansonsten ein Sheets("Tabelle1").Select davor
Gruß Matthias
Anzeige
AW: Wert aus Tabelle2 in Tabelle1 finden
12.06.2004 11:59:05
Josef
Hallo Dieter!
zB. so.

Sub Suchen_und_Selectieren()
Dim rng As Range
Set rng = Sheets("Tabelle1").Range("B5:B35").Find(What:=Sheets("Tabelle2").[C5], _
LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then Application.Goto rng, True
End Sub

Gruß Sepp
Anzeige
AW: Wert aus Tabelle2 in Tabelle1 finden
Beate
Hallo Dieter,
das Makro kann aus jeder Tabelle aufgerufen werden und gibt Msg-Box aus, wenn identischer Wert nicht vorhanden, ansonsten springt es in Tabelle 1 B5:B35 dahin:

Sub Suchen_und_Selectieren()
Dim rng As Range
Set rng = Sheets("Tabelle1").Range("B5:B35").Find(What:=Sheets("Tabelle2").[C5], _
LookIn:=xlValues, LookAt:=xlWhole)
If rng Is Nothing Then
MsgBox "Wert wurde nicht gefunden."
Else
Application.Goto rng, True
End If
End Sub

Gruß,
Beate
Anzeige
Danke
DieterG
Vielen Dank an alle 3 Helfer,
klappt super!!
Gruß Dieter
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige