Tabelle Zeichnen

[2Maik2]

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
 

[Steffl]

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