Supportnet Computer
Planet of Tech

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.

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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: