VBA: Code optimieren

Guten Morgen,
mit dem nachfolgenden Codeteil werden bei bestimmten Überschriften in Zeile 2 die darunter liegenden Zellen formatiert. Allerdings werden die Überschriften mal in Großbuchstaben und mal in Kleinbuchstaben oder auch gemischt geliefert.
Was muss geändert werden, damit die Groß- und Kleinschreibung nicht von Bedeutung ist?
For I = 1 To IIf(Len(Cells(2, Columns.Count)) = 0, Cells(2, Columns.Count).End(xlToLeft).Column, _
Cells(2, Columns.Count))
Select Case Cells(2, I)
Case "Buchungstag", "BUCHUNGSTAG", "FAELLIG", "Faellig"
With Range(Cells(3, I), Cells(LZ, I))
.NumberFormat = "m/d/yyyy"
.HorizontalAlignment = xlCenter
If .Application.WorksheetFunction.CountA(.Cells) > 0 Then
.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 If
End With
Case "VORNAME", "Vorname", "ZUNAME", "Zuname"
With Range(Cells(3, I), Cells(LZ, I))
.NumberFormat = "general"
If .Application.WorksheetFunction.CountA(.Cells) > 0 Then
.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 If
End With
Besten Dank für die Hilfe und Servus, Walter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Sub Walter() Dim I As Long Dim Lz As Long For I = 1 To IIf(Len(Cells(2, Columns.Count)) = 0, Cells(2, Columns.Count).End(xlToLeft). _ Column, _ Cells(2, Columns.Count)) Select Case UCase(Cells(2, I)) Case "Buchungstag", "BUCHUNGSTAG", "FAELLIG", "Faellig" With Range(Cells(3, I), Cells(Lz, I)) .NumberFormat = "m/d/yyyy" .HorizontalAlignment = xlCenter If .Application.WorksheetFunction.CountA(.Cells) > 0 Then .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 If End With Case "VORNAME", "Vorname", "ZUNAME", "Zuname" With Range(Cells(3, I), Cells(Lz, I)) .NumberFormat = "general" If .Application.WorksheetFunction.CountA(.Cells) > 0 Then .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 If End With End Select Next I End Sub

Option Explicit Sub Walter() Dim I As Long Dim Lz As Long For I = 1 To IIf(Len(Cells(2, Columns.Count)) = 0, Cells(2, Columns.Count).End(xlToLeft). _ Column, _ Cells(2, Columns.Count)) Select Case UCase(Cells(2, I)) Case "BUCHUNGSTAG", "FAELLIG" With Range(Cells(3, I), Cells(Lz, I)) .NumberFormat = "m/d/yyyy" .HorizontalAlignment = xlCenter If .Application.WorksheetFunction.CountA(.Cells) > 0 Then .TextToColumns Destination:=Cells(3, I), _ TextQualifier:=xlDoubleQuote, Tab:=True, _ Other:=False, FieldInfo:=Array(1, 1) End If End With Case "VORNAME", "ZUNAME" With Range(Cells(3, I), Cells(Lz, I)) .NumberFormat = "general" If .Application.WorksheetFunction.CountA(.Cells) > 0 Then .TextToColumns Destination:=Cells(3, I), _ TextQualifier:=xlDoubleQuote, Tab:=True, _ Other:=False, FieldInfo:=Array(1, 1) End If End With End Select Next I End Sub

Hallo Walter,
eventuell ein Leerzeichen am Text? Versuch es mal so:

Select Case UCase$(Trim$(Cells(2, I).Text))

    Case "BUCHUNGSTAG", "FAELLIG"

        With Range(Cells(3, I), Cells(LZ, I))
            .NumberFormat = "m/d/yyyy"
            .HorizontalAlignment = xlCenter
            If .Application.WorksheetFunction.CountA(.Cells) > 0 Then
                .TextToColumns Destination:=Cells(3, I), _
                    TextQualifier:=xlDoubleQuote, Tab:=True, _
                    Other:=False, FieldInfo:=Array(1, 1)
            End If
        End With

    Case "VORNAME", "ZUNAME"

        With Range(Cells(3, I), Cells(LZ, I))
            .NumberFormat = "general"
            If .Application.WorksheetFunction.CountA(.Cells) > 0 Then
                .TextToColumns Destination:=Cells(3, I), _
                    TextQualifier:=xlDoubleQuote, Tab:=True, _
                    Other:=False, FieldInfo:=Array(1, 1)
            End If
        End With
End Select

@ Hajo,

Zu Ucase$ kann ich dir nichts schreiben das kennt mein Excel 2003 und 2010 nicht.

so ein Quatsch das gibt es schon seit Excel97. Hier mal ein Bild vom Objektkatalog aus Excel 2000 und 2007:
Userbild

Gruß
Nepumuk

Sub A() Select Case UCase$(Trim$(Cells(2, I).Text)) Case "BUCHUNGSTAG", "FAELLIG" With Range(Cells(3, I), Cells(LZ, I)) .NumberFormat = "m/d/yyyy" .HorizontalAlignment = xlCenter If .Application.WorksheetFunction.CountA(.Cells) > 0 Then Umwandeln .Cells End With Case "VORNAME", "ZUNAME" With Range(Cells(3, I), Cells(LZ, I)) .NumberFormat = "general" If .Application.WorksheetFunction.CountA(.Cells) > 0 Then Umwandeln .Cells End With End Select End Sub

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread