Gruppe
Funktion
Problem
Wie kann ich die Anzahl der Zellen mit Inhalt in einer im gleichen Verzeichnis liegenden Arbeitsmappe feststellen?
StandardModule: basMain
Sub LetzteVerknuepfung()
Dim lCell As Long
With ActiveSheet.UsedRange
For lCell = .Cells.Count To 1 Step -1
If InStr(.Cells(lCell).Formula, "[") And _
InStr(.Cells(lCell).Formula, "]") Then
MsgBox "Verknüpfung in Zelle " & _
.Cells(lCell).Address(False, False) & " wird gelöscht!"
.Cells(lCell).ClearContents
End
End If
Next lCell
End With
End Sub