Makro kürzen

Forumthread: Makro kürzen

Makro kürzen

15.05.2005 13:27:28

Dieter

Hallo zusammen,
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro kürzen

15.05.2005 13:32:53

Joe
AW: Makro kürzen

15.05.2005 13:47:36

Dieter
AW: Makro kürzen

15.05.2005 13:51:42

PeterW

AW: Makro kürzen

15.05.2005 13:32:53

Joe

Moin Dieter,


Sub Rahmen()
Application.ScreenUpdating = False
If Range("Datum").Text = "Januar" Then
Dim C As Range
For Each C In [Gruppen]
If C = "" Then
for i = 0 to 31
C.Offset(0, i).Borders(xlEdgeTop).Weight = xlThin
next i
End If
Next
End If
End Sub

Gruß, Joe

AW: Makro kürzen

15.05.2005 13:47:36

Dieter

Hallo Joe,
funktioniert prima!
Danke und noch ein schönes Wochenende
Gruß Dieter

AW: Makro kürzen

15.05.2005 13:51:42

PeterW

Hallo Dieter,
warum die Zellen einzeln ansprechen? Mit
Range(C, C.Offset(0, 31)).Borders(xlEdgeTop).Weight = xlThin
sollte das auch gehen.
Gruß
Peter

Forumthread: Makro kürzen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread