VBA-Makro zum Gruppieren einzelner Tage
26.09.2008 10:22:00
Christoph
Bin neu hier im Forum und da ich relativ wenig Ahnung von Excel und VBA habe, mich aber beruflich in Zukunft häufiger damit beschäftigen werde, bin ich noch auf ein wenig Hilfe angewiesen.
Ich bastle gerade an einem Makro, das innerhalb einer Monats-Tabelle die einzelnen Tage durch Linien voneinander trennen soll. Das eintragen der Tage erfolgt vorher mit einem weiteren Makro.
Hier erstmal der Quellcode:
Sub WochentageGruppieren()
Dim rngBereich As Range
Dim rngZelle As Range
Set rngBereich = Range("B7:B109" & Cells(Rows.Count, 1).End(xlUp).Row)
On Error GoTo Ende
Application.ScreenUpdating = False
For Each rngZelle In rngBereich.Cells
rngZelle.Borders(xlEdgeBottom).Weight = 3
rngZelle.Borders(xlEdgeBottom).LineStyle = rngZelle rngZelle.Offset(1, 0)
Next rngZelle
Ende:
Application.ScreenUpdating = True
End Sub
In dem angehängten Bild sind die Probleme zu sehen:
*Das Makro funktioniert eigentlich wunderbar, nur sollen die Linien auf der gesamten Breite der Tabelle durchgezogen werden (aber nicht darüber hinaus gehen)!
*Und nach dem 30. (31.usw) unten aufhören. - Derzeit geht es dort weiter, sobald in Spalte B wieder Text vorkommt!
Hab schon so einiges versucht, aber da ich nicht wirklich gut im "Programmieren" bin, wär's toll wenn mir jemand sagen könnte, was ich ändern muss! Ich gehe mal davon aus, daß der/die Fehler in der fett markierten Zeile stecken!
Danke schonmal!
Christoph
