Anzeige
Archiv - Navigation
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Betreff
Benutzer
Anzeige
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

Anzeige
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
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige