Multiseek
24.02.2021 10:59:49
Christian
Ich nutze Multiseek, was eigentlich super funktioniert, aber ich würde gerne etwas ändern und habe absolut keine Ahnung wie ?
hier der ,,Code,,:
Sub MultiSeek (),
Dim wks As Worksheet
Dim rng As Range
Dim sAddress 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
Call Makro200
MsgBox prompt:="Keine neue Fundstelle!"
End Sub
1. Ist es möglich die ,, Weiter ,, Funktion zu löschen? So das nur eine Suche erfolgt!
2. Ich Suche eine Nummer in verschiedenen Tabellenblättern, diese Nummer stehen untereinander in der Spalte. Wird die Nummer gefunden, möchte ich gern die Zahl die neben der Nummer (danebenliegende Spalte )steht angezeigt bekommen. Wünschenswert wäre hier in eine Feld in Großform.
Vielen Dank vorab.