Suchfunktion

Forumthread: Suchfunktion
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Suchfunktion

Suchfunktion

08.10.2003 16:38:29

Stuntebeck

Ich möchte gerne eine Exceldatei mit mehreren Arbeitsblättern nach teilweise Übereinstimmungen durchsuchen lassen, so dass mir am Ende ausgegeben wird, welche Zellen in welchen Arbeitsblättern eine Übereinstimmung aufweisen.
(Suche nach Meyer, Ergebnis: Mappe 1 Zelle A3, Mappe 3 Zelle B4)
Wer kann mir helfen?

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suchfunktion

08.10.2003 17:00:04

ChrisL
AW: Suchfunktion

08.10.2003 18:34:11

Stuntebeck

AW: Suchfunktion

08.10.2003 17:00:04

ChrisL

Hi

Option Explicit


Sub Suchen()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim Suchbegriff As String
Dim Zelle As Range, LetzteZeile As Long
Set WS1 = Worksheets("Ergebnis")
Suchbegriff = "Meyer"
WS1.Cells.ClearContents
WS1.Range("A1") = "Blatt"
WS1.Range("B1") = "Zelle"
WS1.Range("C1") = "Inhalt"
For Each WS2 In ActiveWorkbook.Worksheets
If WS2.Name <> WS1.Name Then
For Each Zelle In WS2.UsedRange
If Zelle Like "*" & Suchbegriff & "*" Then
LetzteZeile = WS1.Range("A65536").End(xlUp).Row + 1
WS1.Cells(LetzteZeile, 1) = WS2.Name
WS1.Cells(LetzteZeile, 2) = Zelle.Address
WS1.Cells(LetzteZeile, 3) = Zelle
End If
Next Zelle
End If
Next WS2
End Sub

Gruss
chris

AW: Suchfunktion

08.10.2003 18:34:11

Stuntebeck

Danke, klappt hervorragend!

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