Gruppe
Feature
Problem
Die Zelle mit dem letzten Eintrag zu einem Anfangsbuchstaben soll einen unteren Rahmen bekommen. Lösung über Menü FORMAT / BEDINGTE FORMATIERUNG.
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