Rahmen erstellen
05.04.2003 19:19:32
Guido
Ich habe ein Code geschrieben mit dem man in einem Tabellenblatt senkrecht jeder 3 Zellen und wagerecht jeder 2 Zelle einen Rahmen erstellt . Wie bekomme ich es hin das die Rahmen in den Spalten nicht Stufenartig sondern nebeneinander angeordnet sind?
Private Sub CommandButton2_Click()
Dim i, a, b
For b = 1 To 3
For a = 1 To 3
For i = 1 To 3
ActiveCell.Offset(1, 0).Select
Next i
ActiveCell.BorderAround , ColorIndex:=9, Weight:=xlThin
Next a
ActiveCell.Offset(0, 2).Activate
Next b
End Sub
Vielen Dank im voraus
Guido