Clever-Excel-Forum

Hallo,

ich will in Excel eine Tabelle zeichnen, einfach als Rahmen für meine Werte. Die Anzahl der Werte, also Zeileninahlte, ändern sich, da die Werte aus einer großen Tabelle filtern kann.

Die Schleife startet immer an Zeile 6 und das Ende ist je Nach Filterung variabel

-> es soll so lang geprüft und gemalt werden bis kein Inhalt kommt

mein Problem ist der Abschnitt, wo ich die schleifen-variable an die "Range übergebe"

"Range("A" & i :"L" & i).Select"

da bricht er immer ab....

(hier ist nur ein teil des codes)

Kann mir da jemand helfen,

Danke

Code:
For i = 6 To 100

 If Sheets("Tabelle2").Range("A" & i).Value <> "" Then

                    'Zeichnen

                    Range("A" & i :"L" & i).Select

                        With Selection.Borders(xlEdgeRight)

                           .LineStyle = xlContinuous

                           .Weight = xlMedium

                           .ColorIndex = 0

                       End With

Hallo Maik,

vielleicht so?

Code:
Sub prcC()

   With Worksheets("Tabelle2")

      If .Range("A" & i).Value <> "" Then

         'Zeichnen

         With .Borders(xlEdgeRight)

            .LineStyle = xlContinuous

            .Weight = xlMedium

            .ColorIndex = 0

         End With

      End If

   End With

End Sub

2Maik2

Steffl