Supportnet / Forum / Tabellenkalkulation
Syntax Fehler!!!
Frage
Hallo!
Habe hier ein Makro das mir Verknüpfungen auf externe Arbeitsmappen löschen soll. Habe nämlich eigentlich keine Verknüpfungen und brauche diese externen nicht! Allerdings bringt mir das makro hier immer einen syntax fehler und ich komm nicht auf den fehler!
Auszug:
Function GetLinkRange _
(objSheet As Worksheet, _
strSearchFor As String) _
As Range
Dim TempCell As Range
Dim TempRange As Range ->> hier fehler??
Dim strTempAdr As String
With objSheet.UsedRange
Set TempCell = _
.Find _
(What:=strSearchFor, _
LookIn:=xlFormulas, _
LookAt:=xlPart)
If Not TempCell Is Nothing Then
strTempAdr = TempCell.Address
Set TempRange = TempCell
Do
Set TempCell = .FindNext(TempCell)
If Not TempCell Is Nothing Then
Set TempRange = Application.Union(TempRange, _
&nb End If -->> Fehler??
Loop While _
Not TempCell Is Nothing _
And TempCell.Address <> strTempAdr
End If
End With
Set GetLinkRange = TempRange
End Function
Antwort 1 von DeathscytheHell
Hi!
Bin zwar nicht gerade der VB-Mann, aber öffne das Makro doch mal (in diesem Excel-VB-Editor) und führe es dann mal aus dem Hauptprogramm aus.
Die fehlerhafte Zeile sollte jetzt hervorgehoben sein.
Bin zwar nicht gerade der VB-Mann, aber öffne das Makro doch mal (in diesem Excel-VB-Editor) und führe es dann mal aus dem Hauptprogramm aus.
Die fehlerhafte Zeile sollte jetzt hervorgehoben sein.
Antwort 2 von marina
danke, das hab ich ja bereits gemacht. konnte nun das makro auch durch die installation durch smarttools ausführen. nur leider lassen sich nichtmal damit meine verknüpfungen löschen. weiß da jetzt echt nicht mehr weiter
Antwort 3 von Guenter
Hallo,
die Union-Methode erfordert doch zwei Range-Objekte (siehe VBA-Hilfe).
&nb ist nicht definiert??
Außerdem fehlt die Klammer.
Gruß
Günter
die Union-Methode erfordert doch zwei Range-Objekte (siehe VBA-Hilfe).
&nb ist nicht definiert??
Außerdem fehlt die Klammer.
Gruß
Günter