Objektvariable oder With-Blockvariable nicht festg
16.04.2017 10:24:25
Steve
Hätte mal wieder ein kleines Problem:
Möchte einen Suchbutton einarbeiten der alle Tabellenblätter nach (Begriffen, Namen, Zahlen,usw.) durchsucht.
Hier der von mir im Netz gefundene Code:
Public Sub SearchAllTables()
Dim ws As Worksheet
Dim c As Range
Dim firstAddress As String
Dim secAddress As String
Dim GFound As Boolean
Dim GWeiter As Boolean
GWeiter = False
GFound = False
anf:
SSearch = InputBox("Geben sie einen Namen/Einheit/Begriff ein:", "Suchen in alle Tabellen", _
_
SSearch)
If SSearch = "" Then
End
End If
weiter:
For Each ws In Worksheets
With ws.Cells
Set c = .Find(SSearch, LookIn:=xlValues, MatchCase:=False)
If Not c Is Nothing Then
GFound = True
ws.Select
c.Select
firstAddress = c.Address
If MsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbYes Then
Do
Set c = .FindNext(c)
secAddress = c.Address
If c.Address = firstAddress Then
Exit Do
End If
c.Select
If MsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbNo Then
GWeiter = True
GoTo ende
End If
Loop While Not c Is Nothing And secAddress firstAddress And c.Address _
_
firstAddress
Else
GWeiter = True
GoTo ende
End If
End If
End With
Next ws
ende:
If GFound = False Then
If MsgBox("Suchwert nicht gefunden ! Neue Suche ?", vbInformation + vbYesNo) = vbYes _
Then
GoTo anf:
End If
Else
If GWeiter = False Then
If MsgBox("Sie haben alle Tabellenblätter durchsucht ! Soll die Suche neu gestartet _
_
werden ?", vbInformation + vbYesNo) = vbYes Then
GoTo weiter
End If
End If
End If
End Sub
Bei folgenden Stellen:
firstAddress = c.Address
und
secAddress = c.Address
bricht er teilweise ab und der Debugger zeigt an
> Objektvariable oder With-Blockvariable nicht festgelegt>
Bitte um Lösung was da falsch ist?
Danke im voraus für die Mühen und mfg
STeve