Makro kürzen
15.05.2005 11:27:28
Dieter
mit folgenden Makro werden die Zellen in einer leeren Zeile mit einem Rahmen versehen.
wie läßt sich diese Prozedur verkürzen?
Danke für Euere Hilfe
Gruß Dieter
Sub Rahmen()
Application.ScreenUpdating = False
If Range("Datum").Text = "Januar" Then
Dim C As Range
For Each C In [Gruppen]
If C = "" Then
C.Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 1).Borders(xlEdgeTop).Weight = xlThin ' 1.Tag im Monat
C.Offset(0, 2).Borders(xlEdgeTop).Weight = xlThin ' 2.Tag im Monat
C.Offset(0, 3).Borders(xlEdgeTop).Weight = xlThin ' 3.Tag im Monat
C.Offset(0, 4).Borders(xlEdgeTop).Weight = xlThin ' 4.Tag im Monat
C.Offset(0, 5).Borders(xlEdgeTop).Weight = xlThin ' 5.Tag im Monat
C.Offset(0, 6).Borders(xlEdgeTop).Weight = xlThin ' 6.Tag im Monat
C.Offset(0, 7).Borders(xlEdgeTop).Weight = xlThin ' 7.Tag im Monat
C.Offset(0, 8).Borders(xlEdgeTop).Weight = xlThin ' 8.Tag im Monat
C.Offset(0, 9).Borders(xlEdgeTop).Weight = xlThin ' 9.Tag im Monat
C.Offset(0, 10).Borders(xlEdgeTop).Weight = xlThin ' 10.Tag im Monat
C.Offset(0, 11).Borders(xlEdgeTop).Weight = xlThin ' usw.
C.Offset(0, 12).Borders(xlEdgeTop).Weight = xlThin ' usw
C.Offset(0, 13).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 14).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 15).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 16).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 17).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 18).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 19).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 20).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 21).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 22).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 23).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 24).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 25).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 26).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 27).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 28).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 29).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 30).Borders(xlEdgeTop).Weight = xlThin
C.Offset(0, 31).Borders(xlEdgeTop).Weight = xlThin
End If
Next
End If
End Sub