Herbers Excel-Forum - das Archiv
Zellen mit Rahmen finden
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
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