Habe am 8.12 schon mal diese Frage ins Forum gestellt aber leider keine Antwort bekommen
Sollte ich einen Fehler gemacht haben, entschuldige ich mich
Falls meine Frage ( Bitte ) nicht umsetzbar ist würde ich mich trotzdem über
ein Wieso, Weshalb, Warum freuen
Hier nochmals meine Frage bzw. Bitte.
Habe folgendes Makro in der Recherche gefunden
Sub Suchen()
Dim wks As Worksheet
Dim rng As Range
Dim sAddresse As String, sFind As String
sFind = InputBox("Bitte Suchbegriff eingeben:")
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlWhole, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox( _
prompt:="Weiter", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
End Sub
Kann man es so umschreiben, das es nur den letzten Wert in einer Spalte berücksichtigt?
Den Wert in der letzten gefüllten Zelle im Bereich
Der Suchbereich ist d6:d116 in allen Tabellenblättern ( ca. 70 Stück)
Hoffe es kann mir jemand behilflich sein.
Gruß
Heinrich
Gruß
Heinrich