Suchen

Forumthread: Suchen
6 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Suchen

Suchen

16.09.2006 00:00:11

Fritz

Hallo schönen Abend zusammen!
Hab eine schierige Frage .ich habe 6 Tabellen, Tabelle1, Tabelle2 usw.
über eine inputbox gebe ich einen suchbegriff ein. ich will jetzt die tabellen mit einem makro durchsuchen es sollen dabei aber nur die spalten A durchsucht werden.die gefunden zelle soll dann die aktive zelle sein.
Danke

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Über alle Blätter suchen

16.09.2006 00:11:15

{Boris}
AW: Suchen

16.09.2006 00:19:45

Fritz
AW: Suchen

16.09.2006 00:24:13

{Boris}
AW: Suchen

16.09.2006 00:28:07

Rudi
AW: Suchen

16.09.2006 00:26:50

Rudi
AW: Suchen

16.09.2006 00:38:01

Fritz

Über alle Blätter suchen

16.09.2006 00:11:15

{Boris}

Hi Fritz,
z.B. so:
Option Explicit


Sub til()
Dim C As Range
Dim Wks As Worksheet
Dim varSearch As Variant
varSearch = Application.InputBox("Suchbegriff:", "Eingabe")
If varSearch = False Then Exit Sub
For Each Wks In ThisWorkbook.Worksheets
Set C = Wks.Range("A:A").Find(varSearch, lookat:=xlWhole)
If Not C Is Nothing Then
Wks.Select
C.Select
End
End If
Next Wks
MsgBox "Sorry - nix gefunden...", 64, "Gebe bekannt..."
End Sub

Grüße Boris

AW: Suchen

16.09.2006 00:19:45

Fritz

Danke für die Antwort. noch eine frage kann ich das auch eine suche zb. nur in den tabellen 1 bis 4 machen also nicht in der ganzen arbeitsmappe?

AW: Suchen

16.09.2006 00:24:13

{Boris}

Hi Fritz,
Option Explicit


Sub til()
Dim C As Range
Dim iCount As Integer
Dim varSearch As Variant
varSearch = Application.InputBox("Suchbegriff:", "Eingabe")
If varSearch = False Then Exit Sub
For iCount = 1 To 4
Set C = Worksheets(iCount).Range("A:A").Find(varSearch, lookat:=xlWhole)
If Not C Is Nothing Then
Worksheets(iCount).Select
C.Select
End
End If
Next iCount
MsgBox "Sorry - nix gefunden...", 64, "Gebe bekannt..."
End Sub

Grüße Boris

AW: Suchen

16.09.2006 00:28:07

Rudi

Hallo Boris,
da warst du schneller
Gruß
Lesen gefährdet die Dummheit!

AW: Suchen

16.09.2006 00:26:50

Rudi

Hallo,
Ja, kannst du.
Warum fragst du erst nach allen Tabellen? Doppelte Arbeit für Antworter!
Ich lass offen. Vielleicht antwortet Boris ja. Ich habe keine Lust.
Gruß
Rudi

AW: Suchen

16.09.2006 00:38:01

Fritz

Danke Boris funktioniert toll und sorry das ich mich nicht exakt ausgedrückt habe.
schönen abend noch