Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suchfunktion

Suchfunktion
08.10.2003 14: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
Anzeige
AW: Suchfunktion
08.10.2003 15: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
Anzeige
AW: Suchfunktion
08.10.2003 16:34:11
Stuntebeck
Danke, klappt hervorragend!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige