mit dem u.a Code werden gerade bzw. ungerade Zeilen gefärbt bei jedem Eintrag in die Tabelle per UF.
Nebenbei möchte ich gerne das die Zellen auch zentriert werden und ein Zeilenumbruch haben.
In welcher Zeile muss ich den Code erweitern bzw. was muss ich noch dazu schreiben.
Vielen Dank für eure Mühe
lg aus Wien
fatih
Public Sub Zeilen_faerben()
Dim lZeile As Long
Dim ispalte As Integer
Application.ScreenUpdating = False
With Worksheets("Datenbank")
.Unprotect Password:="Helvetia"
For lZeile = 2 To Range("A65536").End(xlUp).Row
If lZeile Mod 2 = 0 Then
.Range("A" & lZeile & ":K" & lZeile).Interior.ColorIndex = 36
Else
.Range("A" & lZeile & ":K" & lZeile).Interior.ColorIndex = 35
End If
.Rows("3:" & lZeile).RowHeight = 15
With .Range("A" & lZeile & ":K" & lZeile).Borders(xlEdgeBottom)
.LineStyle = xlDot ' mit einer gepunkteten Linie abschließ _
en
.Weight = xlHairline
End With
For ispalte = 1 To 11
With .Cells(lZeile, ispalte).Borders(xlEdgeLeft)
.LineStyle = xlContinuous ' ein gepunkteter Abschluss links
.Weight = xlHairline
End With
With .Cells(lZeile, ispalte).Borders(xlEdgeRight)
.LineStyle = xlContinuous ' ein gepunkteter Abschluss rechts
.Weight = xlHairline
End With
Next ispalte
Next lZeile
.Protect Password:="Helvetia"
End With
Application.ScreenUpdating = True
End Sub