VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren

Gruppe

Feature

Bereich

Bedingt

Thema

Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren

Problem

Die Zelle mit dem letzten Eintrag zu einem Anfangsbuchstaben soll einen unteren Rahmen bekommen. Lösung über Menü FORMAT / BEDINGTE FORMATIERUNG.

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




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

    


Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt