Zelladressen der Suchergebnisse auflisten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Suchen() Dim cell, iRow iRow = Worksheets(1).Cells(Rows.Count, 5).End(xlUp).Row For Each cell In Worksheets(1).Range("E1:E" & iRow) Worksheets(cell.Text).Select With Worksheets(cell.Text).UsedRange 'usedrange gibt den verwendeten Bereich zurück .Columns(.Columns.Count).Select 'wählt die letzte Zeile an '.find("Bemerkung" entspricht Suchen-Menü-Befehl, ' sucht Zelle mit "Bemerkung" und auch "Bemerkungen" MsgBox .Columns(.Columns.Count).Find("Bemerkung").Row 'gibt Zeile MsgBox .Columns(.Columns.Count).Find("Bemerkung").Column 'gibt Spalte MsgBox .Columns(.Columns.Count).Find("Bemerkung").Address 'gibt Adresse 'schreiben cell.Offset(0, 1).Value = .Columns(.Columns.Count).Find("Bemerkung").Address End With Next cell End Sub

@ Martial
(Danke Dir mal für Deine Geduld !)

Hier mein letzter Ansatz für heute:
[


Sub Suchen2()
Dim cell, iRow
Sheets(1).Select
'iRow = Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row
iRow = 13                       'nur 5mal (von B8(=1.Eintrag) bis B13, reicht zum Testen)
For Each cell In Worksheets(1).Range("B8:B" & iRow)
MsgBox cell.Text            'funzt bis hierhin
Worksheets(cell.Text).Select 'funzt auch :-)
With Worksheets(cell.Text).UsedRange
'.Columns(.Columns.Count).Select
MsgBox .Columns(.Columns.Count).Find("Bemerkung").Row   'soll Zeile ermitteln; aber hier hakts (siehe unten)
'MsgBox .Columns(.Columns.Count).Find("Bemerkung").Column 'gibt Spalte
'MsgBox .Columns(.Columns.Count).Find("Bemerkung").Address 'gibt Adresse
'cell.Offset(0, 1).Value = .Columns(.Columns.Count).Find("Bemerkung").Address
End With
Next cell
End Sub

]

dort, wo ich mit "siehe unten" kommentiert habe,
erhalte ich über die Hilfefunktion (F1) von Excel folgenden Hinweis:
"Nicht eindeutige Auswahl
Sie haben entweder kein Schlüsselwort ausgewählt, oder Hilfe zu einer Komponente der integrierten Entwicklungsumgebung angefordert. Falls Sie versucht haben, ein Schlüsselwort auszuwählen, versuchen Sie es erneut, indem Sie ein einzelnes Schlüsselwort auswählen"

Nafein - wie muss ich also nun diese Zeile umpfriemeln ?
MsgBox .Columns(.Columns.Count).Find("Bemerkung").Row

Ich mutmaße mal, daß hier das neu erstellte "TabList" - Blatt nach dem Wort "Bemerkung" durchsucht wird - und DORT ist natürlich keines enthalten...
Stellt sich (mir) also die Fräge, wie kann ich an dieser Stelle eine "Fehlermeldung, weil nicht gefunden" unterdrücken...

aber wie gesagt - ist der letzte Versuch,
wenn das auch nicht klappt, dann gebe ich hier erstmal auf und mach nen Lehrgang *gg*
(ich denke, ich nerv so langsam)
Goldie

@ Martial

"Isch 'abe Fertick" !!

hier, - wie versprochen, den (relevanten) Teil
des Scripts; das ganze hat mittlerweile eien Umfang von 437 Zeilen....
(Mail ich Dir aber gern zu, wenn Du magst - meine Adresse steht ja "da irgendwo")

Dir jedenfalls nochmal vielen Dank - und ein schönes WE !

liebe Grüße
Goldie

'Zurück ins erste Blatt und aus Spalte B die Namen
'der Tabellenblätter auslesen, Angaben zu den Tabellen in Folgespalten eintragen
'
Sheets(1).Select
iRow = Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row
For Each cell In Worksheets(1).Range("B8:B" & iRow)
iOffsetColCounter = 5
cell.Offset(0, 1).Value = Worksheets(cell.Text).UsedRange.Columns.Count
cell.Offset(0, 2).Value = Worksheets(cell.Text).UsedRange.Rows.Count
cell.Offset(0, 3).Value = Worksheets(cell.Text).Cells.SpecialCells(xlCellTypeLastCell).Address

cell.Offset(0, iOffsetColCounter).Value = Worksheets(cell.Text).Range("B2")
iOffsetColCounter = iOffsetColCounter + 1

'cell.Offset(0, iOffsetColCounter).Value = Worksheets(cell.Text).Range("B3")
'iOffsetColCounter = iOffsetColCounter + 1

cell.Offset(0, 6).Value = Worksheets(cell.Text).Range("B4")
iOffsetColCounter = iOffsetColCounter + 1

'cell.Offset(0, 8).Value = Worksheets(cell.Text).Range("B5")
'iOffsetColCounter = iOffsetColCounter + 1

cell.Offset(0, 7).Value = Worksheets(cell.Text).Range("D6")
iOffsetColCounter = iOffsetColCounter + 1

On Error Resume Next
cell.Offset(0, 4).Value = Worksheets(cell.Text).Columns.Find("Bemerkung").Address
On Error GoTo 0
Next cell
'

Beliebteste Forumthreads (12 Monate)

Zelladressen der Suchergebnisse auflisten

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread