|
Wenn ich diesen Button in einer NEUEN Arbeitsamppe "Makro" zuweisen mache, wird bem ÖFFNEN und nur beim anwenden des Button in der NEUEN Arbeitsmappe auch immer die Quellenarbeitsmappe aufgemacht.
Wie kann ich das verhindern.!!!
Wäre für eine Lösung sehr Dankbar.
Diesen VBA Code habe ich vom Internet. Ist nicht von mir. Habe nur versucht diesen AUSZUFÜHREN. Bis auf das Problem der Quellenarbeitsmappe die sich dabei auch immer mit/aufmacht war alles OK.
==============================================================================================================================
Code:
*******
Private Sub CommandButton1_Click()
Call SearchAllTables
End Sub
Hier das Modul
*****************
Option Explicit
Global SSearch As String
Public Sub SearchAllTables()
Dim ws As Worksheet
Dim c
Dim firstAddress As String
Dim secAddress
Dim GFound As Boolean
Dim GWeiter As Boolean
GWeiter = False
GFound = False
anf:
SSearch = InputBox("Suchen nach:", "Search In All Tables", SSearch)
If SSearch = "" Then
End
End If
weiter:
For Each ws In Worksheets
'ws.Select
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
|