AW: in allen Blättern suchen
07.12.2007 19:22:00
Erich
Hallo Alex,
aller guten(?) Dinge sind drei...
Wie wäre es mit dieser VBA-Lösung?
Option Explicit
Sub Schaltfläche1_BeiKlick()
Dim lngZ As Long, ws As Worksheet, rngF As Range, strE As String
Const intS As Integer = 1 ' Nummer der Spalte mit den Suchbegriffen
Const intE As Integer = 5 ' Nummer der Ergebnisspalte
Sheets("Tabelle1").Activate
Columns(intE).ClearContents
For lngZ = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For Each ws In Worksheets
If ws.Name "Tabelle1" Then
Set rngF = ws.Cells.Find(What:=Cells(lngZ, 1), _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False)
If Not rngF Is Nothing Then strE = strE & IIf(strE = "", "", ", ") & ws.Name
End If
Next ws
Cells(lngZ, intE) = strE
strE = ""
Next lngZ
End Sub
In dieser Mappe funzt das:
https://www.herber.de/bbs/user/48314.xls
Bei genauerer Problemstellung von Anfang an hättest du sie sehr viel früher bekommen können...
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort