Code-Vereinfachung
WalterK
kann ich den folgenden Codeteil vereinfachen, indem ich beide Begriffe "BEGINN" und "ENDE" in 1 (einem) Block unterbringe, z.B. Case "BEGINN" oder "ENDE"?
Select Case Cells(2, I)
Case "BEGINN"
Range(Cells(3, I), Cells(65536, I)).NumberFormat = "m/d/yyyy"
Range(Cells(3, I), Cells(65536, I)).HorizontalAlignment = xlCenter
Range(Cells(3, I), Cells(65536, I)).TextToColumns Destination:=Cells(3, I), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1)
Case "ENDE"
Range(Cells(3, I), Cells(65536, I)).NumberFormat = "m/d/yyyy"
Range(Cells(3, I), Cells(65536, I)).HorizontalAlignment = xlCenter
Range(Cells(3, I), Cells(65536, I)).TextToColumns Destination:=Cells(3, I), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1)
Danke uns Servus, Walter