Zellen mit Rahmen finden

Bild

Betrifft: Zellen mit Rahmen finden
von: Laureate
Geschrieben am: 07.11.2003 10:14:25

Hallo!

Ich möchte per Makro die ersten beiden Zellen der Spalte A finden, die einen "Rahmen" unten haben. Und mit den 2 Zeilen, in denen diese Zellen sind dann weiter rechnen.
Hat jemand eine Idee, wie ich das anstellen könnte?

Besten Dank schonmal,

Laureate

Bild


Betrifft: AW: Zellen mit Rahmen finden
von: ChrisL
Geschrieben am: 07.11.2003 11:40:01

Hi Laureate

Füge nachstehende Funktionen in ein Standardmodul ein. Mit der Tabellenfunktion =ZEILERAHMEN1() bzw. =ZEILERAHMEN2() findest du die Zeilennummer raus. Anschliessend kannst du einfach mit der Tabellenfunktion INDEX weiter rechnen.

Option Explicit


Function ZeileRahmen1() As Long
Dim iZeile As Long
Application.Volatile
ZeileRahmen1 = 0
With ActiveSheet
    For iZeile = 1 To .UsedRange.Rows.Count
        If .Cells(iZeile, 1).Borders(xlEdgeBottom).LineStyle = xlContinuous Then
        ZeileRahmen1 = iZeile
        Exit Function
        End If
    Next iZeile
End With
End Function



Function ZeileRahmen2() As Long
Dim iZeile As Long
Dim iCounter As Integer
Application.Volatile
ZeileRahmen2 = 0
iCounter = 0
With ActiveSheet
    For iZeile = 1 To .UsedRange.Rows.Count
        If .Cells(iZeile, 1).Borders(xlEdgeBottom).LineStyle = xlContinuous Then
        iCounter = iCounter + 1
        If iCounter = 2 Then
        ZeileRahmen2 = iZeile
        Exit Function
        End If
        End If
    Next iZeile
End With
End Function



Gruss
Chris


Bild

Beiträge aus den Excel-Beispielen zum Thema " Zellen mit Rahmen finden "