Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bearbeiten - Verknüpfungen als Liste ausgeben?

Bearbeiten - Verknüpfungen als Liste ausgeben?
12.10.2006 16:34:07
thema
Hallo liebe Experten,
gibt es eine Möglichkeit, die Liste der Verknüpfungen
(siehe Bearbeiten - Verknüpfungen)
auszugeben?
Muss eine bestehende Datei-Ansammlung mit vielfältigen Verknüpfungen zwischen den einzelnen Dateien überarbeiten.
Dazu muss ich zunächst den IST-Stand dokumentieren.
Es wäre somit eine Hilfe, zunächst für jede Datei die bestehenden Verknüpfungen aus o.g. Dialog in eine Tabelle zu schreiben.
Vielen Dank für Hinweise.
Gruss
TheMa

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bearbeiten - Verknüpfungen als Liste ausgeben?
ransi
Hallo
Versuch mal so:


Option Explicit
Public Sub test()
Dim Links
Dim i As Integer
Dim XlLink_Wert As Integer
For XlLink_Wert = 1 To 4
Links = ActiveWorkbook.LinkSources(XlLink_Wert)
    If Not IsEmpty(Links) Then
        For i = 1 To UBound(Links)
            Debug.Print Links(i)
        Next i
    End If
Next
End Sub


ransi
Anzeige
AW: Bearbeiten - Verknüpfungen als Liste ausgeben?
12.10.2006 20:44:40
Daniel
Hallo
das sollte dir dieses Makro ermöglichen.
Als Verknüpfung zählen alle Formeln, die
mit "=" anfangen und
den Text "\:" enthalten und
den Text ".xls]" enthalten
da nur Zellen durchsucht werden, die Formeln enthalten, sollte sich die Bearbeitungszeit im Rahmen halten. von Zellen, die Verknüpfungen werden Sheet-Name, Zell-Address und Formeltext in einem Extra-Sheet gespeichert.

Sub Verknüpfungen_Finden()
Dim SH As Worksheet
Dim Zelle As Range
Dim Text As String
On Error GoTo NeuesSheet
With Sheets("Verknüpfungen")
On Error GoTo 0
.Cells.ClearContents
For Each SH In ThisWorkbook.Worksheets
If SH.Name <> .Name Then
On Error GoTo keineFormeln
For Each Zelle In SH.UsedRange.SpecialCells(xlCellTypeFormulas, 23)
Text = Zelle.Formula
If Left(Text, 1) = "=" Then
If InStr(Text, ":\") > 0 Then
If InStr(Text, ".xls]") Then
.Cells(65000, 1).End(xlUp).Offset(1, 0).Value = SH.Name
.Cells(65000, 2).End(xlUp).Offset(1, 0).Value = Zelle.Address
.Cells(65000, 3).End(xlUp).Offset(1, 0).Value = "'" & Zelle.FormulaLocal
End If
End If
End If
Next
keineFormeln:
End If
Next
End With
End
NeuesSheet:
Sheets.Add
ActiveSheet.Name = "Verknüpfungen"
Resume
End Sub

Gruß, Daniel
Anzeige

300 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Anzeige
Daten aus anderen Quellen auslesen
Ryu

Hallo,
ich habe eine Excel Tabelle wo ich den Verbrauch von Materialien der letzten 6 Monate erfasse. Den Verbrauch kann ich entweder mir Monat für Monat, Artikel für Artikel zusammenkopieren oder ich kann den Verbrauch jeden Monats in die oben genannte Tabelle (andere sheets) kopieren und...
23.10.2008 16:34:00
Thread-ID: 1018740
4 Beiträge
alle Dateien aus Ordner drucken
Bruno

Guten Morgen zusammen
Aus einer Excelmappe möchte ich per VBA diverse PDFs, die zuvor mit Acrobat erstellt worden sind, zusammen drucken. Hier im Forum habe ich einen Code dazu gefunden, der sich jedoch nur auf eine einzelne Datei und nicht auf alle Dateien des Ordners bezieht. Nachstehend...
26.10.2008 10:40:00
Thread-ID: 1019322
5 Beiträge
alle Dateien und Verknüpfungen aus Ordner löschen
marcl

Guten Morgen Forumsgemeinde,
ich habe zwar ein Makro von Ramses, welches alle Dateien eines Ordners auflistet und löscht. Aber die Verknüpfungen findet es leider nicht. Hatte naiv mal mit "*.lnk" als Dateiname versucht. Aber das funzt net.
Wer kann mir weiter helfen?
Danke und Gruß...
26.11.2008 06:40:00
Thread-ID: 1027911
3 Beiträge
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
4 Beiträge
Dateien aus Unterverzeichnissen auslesen
Michael

Hallo zusammen,
ich habe ein Verzeichnis mit mehreren Unterverzeichnissen und möchte alle Dateien inkl. der Filestruktur ausgelesen bekommen. Habt ihr sowas schon mal gesehen?
Viele Grüße
Michael
05.02.2009 18:28:00
Thread-ID: 1047464
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
5
4
2
3
4
2
3
3
5
4
6
1
2
1
3
5
3
8
2
1
14
1
1