Code-Vereinfachung

Forumthread: Code-Vereinfachung

Code-Vereinfachung

WalterK

Hallo,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Code-Vereinfachung

02.08.2010 19:31:27

Josef

Hallo Walter,

Select Case Cells(2, I)
  Case "BEGINN", "ENDE"
    With Range(Cells(3, I), Cells(65536, I))
      .NumberFormat = "m/d/yyyy"
      .HorizontalAlignment = xlCenter
      .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)
    End With
End Select

Gruß Sepp

AW: Code-Vereinfachung

02.08.2010 19:57:00

Hajo_Zi

Hallo Walter,
und noch ein wenig kürzer. Die Standardwerte gleöscht.

    Select Case Cells(2, I)
Case "BEGINN", "ENDE"
With Range(Cells(3, I), Cells(65536, I))
.NumberFormat = "m/d/yyyy"
.HorizontalAlignment = xlCenter
.TextToColumns Destination:=Cells(3, I), _
TextQualifier:=xlDoubleQuote, _
Tab:=True, _
Other:=False, FieldInfo:=Array(1, 1)
End With
End Select

Danke an die Helfer, TipTop! Servus, Walter

02.08.2010 20:02:43

WalterK

Ergänzung

02.08.2010 23:23:35

Rudi

Hallo,
ich persönlich würde noch ein Ucase drumrum ranken, da Case Case-Sensitv ist, d.h. Groß-Kleinschreibung beachtet.
Select Case UCase(Cells(2, I))
Case "BEGINN", "ENDE"
....
Gruß
Rudi

Gute Idee, Danke Rudi! Servus, Walter

03.08.2010 06:50:20

WalterK

Gute Idee, Danke Rudi! Servus, Walter

03.08.2010 06:51:39

WalterK

Beliebteste Forumthreads (12 Monate)

Forumthread: Code-Vereinfachung

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread