Rahmen um Zelle
03.04.2003 20:04:44
Guido
Ich habe ein kleines Problem.
Ich habe ein Code geschrieben mit dem man die Zellgröße anpassen kann. Er funktioniert auch soweit nun möchte ich in diesen Code noch eine Schleife einbauen mit der die Rahmen gesteuert werden sodass es am Schluss so aussieht das in
Zelle A1 Rahmen (oben rechts links)
Zelle C1 Rahmen (oben rechts links)
Zelle A2 Rahmen (unten rechts links)
Zelle C2 Rahmen (unten rechts links)
Zeile 3 keinen Rahmen
Zelle A4 Rahmen (oben rechts links)
Zelle C4 Rahmen (oben rechts links)
Zelle A5 Rahmen (unten rechts links)
Zelle C6 Rahmen (unten rechts links)
Zeile 7 keinen Rahmen
u.s.w.
Spalten b,d,f . keinen Rahmen
Der Bereich in dem der Code arbeiten soll währe von A1 bis I40.
Mein Code sieht bis jetzt so aus
Private Sub CommandButton2_Click()
Dim col, rw
For Each col In Range("a1:i40").Borders
If col.Borders Mod 2 = 1 Then
col.BordersWidth = 13
col.Borders (xlInsideVertical)
col.LineStyle = xlContinuous
col.Weight = xlThin
End If
Next col
For Each col In Range("a1:i40").Columns
If col.Column Mod 2 = 0 Then
col.ColumnWidth = "0.2"
End If
Next col
For Each rw In Range("a1:i40").Rows
If rw.Row Mod 2 = 1 Then
rw.RowHeight = 13
End If
Next rw
For Each rw In Range("a1:i40").Rows
If rw.Row Mod 2 = 0 Then
rw.RowHeight = 13
End If
Next rw
For Each rw In Range("a1: i40").Rows
If rw.Row Mod 3 = 0 Then
rw.RowHeight = 2
End If
Next rw
End Sub
Kann mir jemand helfen??
Vielen Dank im Voraus
Gruß Guido