Alle Tabellenblätter auf leeren Inhalt prüfen
01.12.2015 13:06:05
Hans
ich habe hier das u.a. Makro gefunden das für meine Zwecke schon fast perfekt ist.
Leider schaffe ich es nicht, folgende Änderungen einzubauen:
- es soll eine bereits geöffnete Arbeitsmappe mit dem Namen "Datenquelle" durchsucht werden.
- es soll, falls vorhanden, immer das jeweils erste "leere" (Bereich A1:D10) Tabellenblatt geöffnet werden.
Kann mir da jemand behilflich sein?
Gruß
HN
StandardModule: basMain
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
MsgBox prompt:="Keine neue Fundstelle!"
End Sub
Anzeige