Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
788to792
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchfunktion

Suchfunktion
08.08.2006 01:53:42
osterix
Hallo Spezialisten,
habe folgendes Problem:
Habe eine Excel-Mappe mit 6 Tabellenblätter,
in diesen befinden sich in der Spalte A verschiedene Namen.
Nun möchte ich auf dem ersten Blatt eine Zelle einrichten,
in der ich ein Name eingebe, nun soll Excel in 5 Tabellenblätter
den Namen finden und dort hin springen.
Ist das möglich?
Bin auf euere Hilfe angewiesen!
Gruss
osterix

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

Betreff
Datum
Anwender
Anzeige
AW: Suchfunktion
08.08.2006 02:54:18
ingUR
Hallo, @ostarix,
eine mögliche Lösung: Übertrage diese Prozedur in das Microdoft Excel Objekt deiner Tabelle, in der Du den Suchbegriff eingeben möchtest.
Mit der Bedingungsabfrage If Target.Address = "$B$1" then ... habe ich die Zelle $B$1 als Eingabezelle bestimmt, die Du ggf. Deinen Vorgaben entsprechend anpasssen müßtes. Darüberhinaus könnte auch die Dimensionierung von searchP geändert werden, sofern es sich immer um einen festen Datentyp des Suchbegriffs handelt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sht As Worksheet, rng As Range
Dim searchP As Variant
If Target.Address = "$B$1" Then
searchP = Target.Value
For Each sht In Worksheets
If sht.Index <> ActiveSheet.Index Then
For Each rng In sht.Range("A1:A" & sht.Cells.SpecialCells(xlCellTypeLastCell).Row)
If rng.Value = searchP Then
MsgBox "Erster Fund in Tabelle " & sht.Name
sht.Select
rng.Select
Exit Sub
End If
Next
End If
Next
MsgBox "Muster nicht gefunden"
End If
End Sub

Gruß,
Uwe
Anzeige
AW: Suchfunktion
09.08.2006 05:02:03
osterix
Hallo Uwe,
vielen Dank für deine Hilfe,
hat geklappt, bin sehr zufrieden!
Gruss
osterix

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige