Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1140to1144
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
Inhaltsverzeichnis

Suche nach einem bestimmten Wert in folgenden Tabs

Suche nach einem bestimmten Wert in folgenden Tabs
Ramon
Liebe Excel-Freunde,
ich brauche bitte mal wieder Eure Hilfe. Hier das vereinfachte Beispiel:
Auf dem 1. Tabellenblatt stehen in Spalte A ein paar Indexzahlen oder
auch "Sprungmarken"untereinander, z.B. 10, 11, 12, 13 . . . .
Jede dieser Zahlen taucht ein einziges Mal in einem der 2 folgenden Tabellenblätter
irgendwo wieder auf (ebenfalls in Spalte A).
Nun möchte ich auf dem ersten Tabellenblatt neben der Index-Nummern-Liste einen
Button, der, wenn ich bspw. die Zelle mit der 12 markiert habe, die folgenden 2 Tabellenblätter
durchsucht und dort quasi auf die 12 springt. Heißt, im ersten (Index-) Tabellenblatt muß gar
nicht gesucht werden.
Meine Idee (die leider nicht funktioniert):
Sub suche()
Dim ErgebnisZelle As Range
Dim suchIndex As String
suchIndex = ActiveCell.Value
Dim suchbereich As Range
Dim suchbereich2 As Range
Set suchbereich = Sheets("tabelle2").Columns("A:A")
Set suchbereich2 = Sheets("tabelle3").Columns("A:A")
With suchbereich
Set ErgebnisZelle = .Find(suchIndex, LookIn:=Values)
If Not ErgebnisZelle Is Nothing Then
ErgebnisZelle.Select
else:
With suchbereich2
Set ErgebnisZelle = .Find(suchIndex, LookIn:=Values)
If Not ErgebnisZelle Is Nothing Then
ErgebnisZelle.Select
end with
End Sub
Hm, vermutlich geht es irgendwie viel einfacher. Nur blöd: Ich
weiß nicht wie!
Hoffentlich könnnt Ihr mir wie immer weiterhelfen!
Vielen Dank,
Gruß,
Ramon

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Suche nach einem bestimmten Wert in folgenden Tabs
24.02.2010 22:13:50
Ramses
Hallo
Aber nur sehr knapp daneben :-)
Option Explicit

Private Sub CommandButton1_Click()
    Dim ErgebnisZelle As Range
    Dim suchIndex As String
    suchIndex = ActiveCell.Value
    Dim wks1 As Worksheet, wks2 As Worksheet
    Dim suchbereich As Range, suchbereich2 As Range
    Set wks1 = Worksheets("Tabelle2")
    Set wks2 = Worksheets("Tabelle3")
    Set suchbereich = wks1.Columns("A:A")
    Set suchbereich2 = wks2.Columns("A:A")
    
    With suchbereich
        Set ErgebnisZelle = .Find(suchIndex)
        If Not ErgebnisZelle Is Nothing Then
            wks1.Select
            ErgebnisZelle.Select
            Exit Sub
        End If
    End With
    With suchbereich2
        Set ErgebnisZelle = .Find(suchIndex)
        If Not ErgebnisZelle Is Nothing Then
            wks2.Select
            ErgebnisZelle.Select
            Exit Sub
        End If
    End With
End Sub

Gruss Rainer
Anzeige
AW: Suche nach einem bestimmten Wert in folgenden Tabs
24.02.2010 22:20:44
Ramon
Ach Mensch klasse, Rainer. Vielen Dank !!!

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige