Hilfe bei Code
30.04.2006 16:06:04
Jürgen
kann mir eventuell jemand bei diesem Code helfen? Habe in der Recherche einen Code gefunden, der externe Verknüpfungen des zweiten Tabellenblattes zu anderen Tabellen löscht. Jetzt habe ich ihn mir etwas erweitert, damit ich zum einen ein Tabellenblatt aussuchen kann und zum anderen ich nicht will, dass die Verknüpfungen gelöscht werden, sondern lediglich gelb gekennzeichnet, damit man sie sich vorher nochmal ansehen kann.
Aber irgendwie klappt das nicht. Er findet jetzt nur eine Verknüpfung, auch wenn mehrere vorhanden sind und es kommt die Meldung: Keine Verknüpfung gefunden, obwohl die eine gelb hinterlegt wird. Irgendwie habe ich hier einen Konflikt mit meinen MsgBoxen. Was mache ich falsch?
Private Sub CmdVerknüpfung_Click()
Dim intBlatt As Integer
Dim rng As Range
Dim strBlattname As String
Dim inty As Integer
inty = 0
intBlatt = Val(InputBox("Für das erste Blatt links bitte eine 1 eingeben usw.", "Eingabe"))
If intBlatt = 0 Or intBlatt > Worksheets.Count Then
MsgBox "Es wurde ein ungültiger Wert eingegeben." _
& vbCr & "Es ist nur eine Zahl erlaubt, die nicht größer als die Anzahl der vorhandenen Tabellenblätter ist.", 48
Exit Sub
Else
strBlattname = Worksheets(intBlatt).Name
For Each rng In Worksheets(intBlatt).UsedRange.Cells
If InStr(rng.Formula, "[") > 0 And _
InStr(rng.Formula, "]") > 0 Then
rng.Interior.ColorIndex = 6
Else
MsgBox "Das Tabellenblatt [" & strBlattname & "] enthält keine externen Verknüpfungen", 64
Exit Sub
End If
inty = inty + 1
Next rng
End If
MsgBox "Es wurden " & inty & " Zellen die externe Verknüpfungen beinhalten, gelb gekennzeichnet."
End Sub
Danke für einen Tipp
Gruß Jürgen