Detektiv mit VBA
07.02.2005 10:18:28
Giuseppe
Ich möchte gerne auf einen schlag, alle Formelverknüpfungen anzeigen lassen.
Dazu habe ich folgendes Makro geschrieben:
Option Explicit
Sub Detektiv()
Dim Zeilen As Long, Spalten As Long, Zaeler As Long
Zeilen = 1
Spalten = 1
Zaeler = 0
Step01:
Cells(Zeilen, Spalten).ShowDependents
Zaeler = Zaeler + 1
Zeilen = Zeilen + 1
If Zeilen = 50 Then GoTo step02
If Spalten = 20 Then GoTo step99
GoTo Step01
step02:
Zeilen = 1
Spalten = Spalten + 1
GoTo Step01
step99:
MsgBox ("Excel hat " & Zaeler & " Verknüpfungen gefunden")
End Sub
Nun meine Fragen:
- Das Makro braucht sehr lange, geht es nicht schneller?
(Ich habe die Zeilen und Spalten, auf 50 bzw. 20 gesetzt;
sollte aber die ganze Tabelle sein)
- Der Zähler stimmt so auch nicht :)
Bin ich mit diesm Makro auf dem richtigen Weg?
Bitte um Hilfe
mfG
Giuseppe