automatisierte Suchfunktion als Makro

Hallo zusammen,
ich habe folgenden Plan im Kopf, den ich gerne mit eurer Hilfe umgesetzt haben möchte.
Ich habe eine Excelfile mit zwei Blättern. In Tabellenblatt 1 stehen Materialnummern mit Informationen dahinter. In Tabellenblatt zwei stehen die gleichen Materialnummern mit anderen Informationen. Ich möchte z.B. mittels einer Suchfunktion in Tabellenblatt 1 eine Materialnummer auswählen und diese in Tabellenblatt 2 suchen und anzeigen lassen.
Ich benötige also ein Makro, dass die markierte Zelle als Suchbegriff erkennt und diesen Suchbegriff in Tabellenblatt 2 sucht.
Die Suchfunktion zu nutzen war lediglich eine erste Idee von mir. Wenn es eine andere/bessere Lösung gibt, würde ich natürlich auch diese gerne annehmen.
Vielen Dank für eure Hilfe im voraus.
Gruß, Flo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub GeheZuMaterial() Const TabVon As String = "Tabellenblatt 1" Const TabZu As String = "Tabellenblatt zwei" Const SpalteFinden As Long = 2 'in Spalte B finden im Tabellenblatt 1 Const SpalteSuchen As Long = 1 'in Spalte A suchen im Tabellenblatt zwei Dim tmpFind As String If Not ActiveSheet.Name = TabVon Then 'nix machen, wenn nicht auf Tabelle1 Else tmpFind = Sheets(TabVon).Cells(ActiveCell.Row, SpalteFinden).Value Sheets(TabZu).Activate Sheets(TabZu).Cells(1, SpalteSuchen).EntireColumn.Find(tmpFind).Select End If End Sub

Hi
ein Fehlergrund ist, dass du nur auf dem aktiven Tabellenblatt selektieren kannst.
Dh du musst erst das Blatt selektieren und dann die Zelle.
Oder du verwendest Application.Goto:
Variante 1)

Sheets(TabZu).Select
ActiveSheet.Cells(1, SpalteSuchen).EntireColumn.Find(tmpFind).Select

Variante 2)

Application.Goto Sheets(TabZu).Cells(1, SpalteSuchen).EntireColumn.Find(tmpFind)

ein Fehler tritt in beiden Fällen auf, wenn der Suchbegriff tmpFind nicht gefunden werden kann.
um das auch noch abzusicher solltest du so vorgehen:

dim rngFind as range
Set rngFind = Sheets(TabZu).Cells(1, SpalteSuchen).EntireColumn.Find(tmpFind)
if Not rngFind is Nothing then Application.goto rngFind

Gruß Daniel

Sub GeheZuMaterial() Const TabVon As String = "Tabellenblatt 1" Const TabZu As String = "Tabellenblatt zwei" Const SpalteFinden As Long = 2 'in Spalte B finden im Tabellenblatt 1 Const SpalteSuchen As Long = 1 'in Spalte A suchen im Tabellenblatt zwei Dim tmpFind As String If Not ActiveSheet.Name = TabVon Then 'nix machen, wenn nicht auf Tabelle1 Else tmpFind = Sheets(TabVon).Cells(ActiveCell.Row, SpalteFinden).Value Sheets(TabZu).Activate Sheets(TabZu).Cells(1, SpalteSuchen).EntireColumn.Find(tmpFind).Select End If End Sub

Option Explicit Sub GeheZuMaterial() Dim TabVon as Worksheet Dim TabBis as Worksheet dim tmpFind as string dim rngFind as Range Const SpalteFinden As Long = 2 'in Spalte B finden im Tabellenblatt 1 Const SpalteSuchen As Long = 1 'in Spalte A suchen im Tabellenblatt zwei Set TabVon = Sheets("Tabellenblatt 1") 'Namen ggf anpassen Set TabZu =Sheets("Tabellenblatt zwei") 'Namen ggf anpassen If Not ActiveSheet.Name = TabVon.Name Then 'nix machen, wenn nicht auf Tabelle1 Else tmpFind = TabVon.Cells(activeCell.Row,SpalteFinden).Value set rngFind = TabZu.Cells.columns(SpalteSuchen).Find(tmpFind, LookAt:=xlWhole, LookIn:= _ xlvalues) if rngFind is Nothing then msgbox tmpFind & " nicht vorhanden" else application.goto rngFind End If End If End Sub

Beliebteste Forumthreads (12 Monate)

automatisierte Suchfunktion als Makro

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread