Anstatt fixe, flexible Breiche
29.05.2018 11:10:39
Peter
Ich habe unten stehenden Code, dieser kopiert mir den Inhalt von G4:G5000 in die Spalten, Bereiche S4:S5000 und T4:T5000, zusätzlich werden bestimmte Spalten, Bereiche formatiert und ausgerichtet.
Nun möchte jedoch anstatt die fixen, flexible Bereiche, bis zur letzen Zeile, gemäss Spalte C haben. Wie müsste der Code angepasst sein?
Private Sub workbook_open()
'Kopieren, Inhalt Spalte G in Autofilter Hilfsspalten S und T kopieren
With ActiveSheet
'von G nach S
.Range("G4:G5000").SpecialCells(xlCellTypeConstants).Copy .Range("S4")
.Range("S4:S5000").Font.ColorIndex = 16
.Range("S4:S5000").Font.Italic = True
'von G nach T
.Range("G4:G5000").SpecialCells(xlCellTypeConstants).Copy .Range("T4")
.Range("T4:T5000").Font.ColorIndex = 16
.Range("T4:T5000").Font.Italic = True
End With
'Spalte link, mittig setzen
Range("A4:F5000").Cells.HorizontalAlignment = xlCenter
Range("G4:H5000").Cells.HorizontalAlignment = xlLeft
Range("I4:P5000").Cells.HorizontalAlignment = xlCenter
Range("Q4:T5000").Cells.HorizontalAlignment = xlLeft
'Spalte E formatieren
Dim columnE As Range
Set columnE = ActiveSheet.Range("$E$4:$E$5000") 'SpalteE
columnE.Font.ColorIndex = 32
columnE.Font.Italic = False
columnE.HorizontalAlignment = xlCenter
columnE.VerticalAlignment = xlCenter
columnE.Font.Bold = True
columnE.WrapText = True
columnE.VerticalAlignment = xlCenter
End Sub
Viele Grüsse,
Peter