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

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

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
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
Danke
DieterG
Vielen Dank an alle 3 Helfer,
klappt super!!
Gruß Dieter

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige