Wildcards bei Case
13.07.2018 18:09:13
WalterK
der nachfolgende Code formatiert eine Spalte mit einem Datumsformat, wenn eine der vorgegebenen Überschriften vorliegt.
Kann man auch Wildcards verwenden damit ich z.B. *BEGINN* schreibe und dann alle Spalten formatiert werden die das Wort BEGINN enthalten.
Option Explicit
Sub DatumFormatieren()
Dim wks As Worksheet
Dim LZ As Long
Dim LSp As Long
Dim i As Long
Set wks = ActiveSheet
LZ = 5
LSp = 7
For i = 1 To 6
With wks.Range(wks.Cells(2, i), wks.Cells(LZ, i))
Select Case UCase(wks.Cells(1, i))
Case "BEGINN", "ENDE", "DATUM"
.NumberFormat = "m/d/yyyy"
.HorizontalAlignment = xlCenter
End Select
End With
Next i
Set wks = Nothing
End Sub
Besten Dank, Servus Walter