Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Verknüpfungen eines Tabellenblattes ?

Makro Verknüpfungen eines Tabellenblattes ?
28.09.2006 14:29:01
Stefan
Hi,
habe ein Excel Sheet mit vielen Verknüpfungen zu anderen Tabellenblättern in der selben Arbeitsmappe´. Gibt es eine Möglichkeit ( viell. mit einem Makro ) sich sämtliche Verknüpfungen in diesem Tabellenblatt anzeigen zu lassen.
Für eine Antwort wäre ich sehr dankbar
LG Stefan

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

Betreff
Datum
Anwender
Anzeige
AW: Makro Verknüpfungen eines Tabellenblattes ?
28.09.2006 15:26:20
Rudi
Hallo,
in ein Modul:

Sub Formeln_suchen()
Application.ScreenUpdating = False
n = ActiveSheet.Name
n2 = "Formeln_" & n
FIndex = False
Z = 2
Set R1 = Range("a1", Range("a1").SpecialCells(xlLastCell))
For Each a In R1.Cells
If a.HasFormula Then
If FIndex = False Then
Worksheets.Add after:=Sheets(n)
ActiveSheet.Name = n2
Kopf = Array("Zelle", "Zeile", "Spalte", "Formel")
For T = 1 To 4
Cells(1, T) = Kopf(T - 1)
Cells(1, T).Font.Bold = True
Next T
FIndex = True
End If
With Sheets(n2)
.Cells(Z, 1) = a.Address(rowabsolute:=False, columnabsolute:=False)
.Cells(Z, 2) = a.Row
.Cells(Z, 3) = a.Column
.Cells(Z, 4) = "'" & a.FormulaLocal
End With
Z = Z + 1
End If
Next a
Columns("A:D").EntireColumn.AutoFit
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
Anzeige
AW: Makro Verknüpfungen eines Tabellenblattes ?
29.09.2006 10:42:05
Stefan
Super Danke !

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige