Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Wirkürliche Vernknüpfungen im Arbeitsblatt
zurück: aktuelles datum ab einem bestimmten datum kennzeichnen weiter: EAN ISBN Schriftart für Excel Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
RT2000
Gast


Verfasst am:
08. März 2010, 16:37
Rufname:

Wirkürliche Vernknüpfungen im Arbeitsblatt - Wirkürliche Vernknüpfungen im Arbeitsblatt

Nach oben
       Version: Office XP (2002)

Hallo Leute,

es kommt schon mal vor, dass in ein von mir bearbeitetes Excel Blatt Verknüpfungen enstehen die ich in diesem Blatt nicht eingegeben habe.

In einem Fall sind mehr als 100 Verknüpfungen über das gesamte Blatt verteilt.
Hat jemand eine Idee, wie ich diese wieder los werde ohne jede einzelne zu löschen zu müssen?

Grüße
Gast



Verfasst am:
08. März 2010, 17:07
Rufname:

AW: Wirkürliche Vernknüpfungen im Arbeitsblatt - AW: Wirkürliche Vernknüpfungen im Arbeitsblatt

Nach oben
       Version: Office XP (2002)

Hallo.

Gefunden bei:
http://www.herber.de/forum/archiv/624to628/t625172.htm
Code:
Sub ExterneVerknüpfungenAuflösen()
'Auflösung externer Verknüpfungen in Tabellenblättern
Dim Tab1 As Object
Dim Cell1 As Object
Dim AlleFormeln As Object

On Error GoTo Fehlerbehandlung

    'Schleife für alle Tabellenblätter der aktiven Mappe
    For Each Tab1 In ActiveWorkbook.Worksheets
        Set AlleFormeln = Tab1.Cells.SpecialCells(xlFormulas, 23)
        'Schleife für alle Zellen, die Formeln enthalten
        'Der Backslash ("\") in der Formel dient als Erkennungsmerkmal für
        'das Vorliegen einer externen Verknüpfung
        For Each Cell1 In AlleFormeln
            If InStr(Cell1.Formula, "\") > 0 Then
                If Cell1.HasArray Then
                    'Matrix kann nur als ganzes ersetzt weden
                    Cell1.CurrentArray.Select
                    Selection.Copy
                Else
                    Cell1.Formula = Cell1.Value
                End If
            End If
        Next Cell1
    Next Tab1
Exit Sub
   
Fehlerbehandlung:
   
    'Fehler 1004 tritt auf, wenn Tabellenblatt keine Formeln enthält
    If Err = 1004 Then Resume Next Else             'MeldungsDlg Fehler(FehlerNr)
    Resume Next
End Sub
RT2000
Gast


Verfasst am:
08. März 2010, 17:31
Rufname:


AW: Wirkürliche Vernknüpfungen im Arbeitsblatt - AW: Wirkürliche Vernknüpfungen im Arbeitsblatt

Nach oben
       Version: Office XP (2002)

Vielen Dank!

Ich habe es noch nicht ausprobiert werde es aber heute Abend noch versuchen.

Grüße
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Daten aus Excel Tabelle filtern und in neuem Arbeitsblatt sp 7 peppschmier 17213 31. Jan 2014, 13:30
Timm18 Daten aus Excel Tabelle filtern und in neuem Arbeitsblatt sp
Keine neuen Beiträge Excel Formeln: Bilder mit Drop-Down Menü in ein Arbeitsblatt einbauen 36 Sk8erMuc 12869 06. Feb 2013, 08:26
xxxsickxxx Bilder mit Drop-Down Menü in ein Arbeitsblatt einbauen
Keine neuen Beiträge Excel Formeln: Direktes Kopieren ohne Arbeitsblatt wechsel 1 headshrinker 413 11. März 2011, 18:09
BigJane Direktes Kopieren ohne Arbeitsblatt wechsel
Keine neuen Beiträge Excel Formeln: variabler Verweis auf Arbeitsblatt 10 pkegelking 3191 31. Jan 2011, 23:16
FCH variabler Verweis auf Arbeitsblatt
Keine neuen Beiträge Excel Formeln: Zusammenfassung aus extra Arbeitsblatt 16 Eskimo 1046 09. Jan 2011, 20:14
< Peter > Zusammenfassung aus extra Arbeitsblatt
Keine neuen Beiträge Excel Formeln: Zeilen in anderes Arbeitsblatt übertragen 12 excelgernenutzer 741 13. Dez 2010, 17:43
< Peter > Zeilen in anderes Arbeitsblatt übertragen
Keine neuen Beiträge Excel Formeln: Arbeitsblatt mit gleichem Inhalt kopieren 1 mazzo12.09 316 15. Apr 2010, 23:48
Nicolaus Arbeitsblatt mit gleichem Inhalt kopieren
Keine neuen Beiträge Excel Formeln: Benötige Hilfe / Arbeitsblatt erstellen für Lagerhaltung 2 asmodin 1334 07. Apr 2010, 09:06
asmodin Benötige Hilfe / Arbeitsblatt erstellen für Lagerhaltung
Keine neuen Beiträge Excel Formeln: Zeile in Arbeitsblatt übernehmen wenn Kriterium erfüllt 12 FrankSEE 2503 23. Dez 2009, 10:28
FrankSEE Zeile in Arbeitsblatt übernehmen wenn Kriterium erfüllt
Keine neuen Beiträge Excel Formeln: Arbeitsblatt mit Passwort schützen??? Geht das? 1 Tobi836658 2727 15. Dez 2009, 10:25
< Peter > Arbeitsblatt mit Passwort schützen??? Geht das?
Keine neuen Beiträge Excel Formeln: Spalte in Arbeitsblatt übernehmen, wenn Kriterium erfüllt 1 AndreasF_fB 518 07. Dez 2009, 09:26
neopa Spalte in Arbeitsblatt übernehmen, wenn Kriterium erfüllt
Keine neuen Beiträge Excel Formeln: Verweis auf ein Anderes Arbeitsblatt 4 Maddin55 743 27. Okt 2009, 22:22
Maddin55 Verweis auf ein Anderes Arbeitsblatt
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA