Codeänderung erforderlich

Hallo,
mit Hilfe des Makrorekorders und aus dem Forum habe ich jetzt einen Code der prima funktioniert. Wie ihr im unteren Codeausschnitt erkennen könnt, wird in Zeile 2 nach mehreren Begriffen gesucht. Spalten bei denen in Zeile 2 gefundene Begriffe vorhanden sind, werden dann ab Zeile 3 entsprechend formatiert.
Allerdings kommt der Debugger, wenn zwar der Begriff in Zeile 2 gefunden wird, sonst aber in der betreffenden Spalte ab Zeile 3 keine Einträge sind.
Hat jemand eine Lösung für mich?
Hier der Codeteil:
For I = 1 To 256
Select Case Cells(2, I)
''''''''''''''''''''''''''''''''''''''''''''''''''''
Case "Buchungstag", "Faellig"
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
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Case "VORNAME", "ZUNAME", "MITGLIED", "FUNKTION",
With Range(Cells(3, I), Cells(65536, I))
.NumberFormat = "general"
.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
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Case "Konto", "Nummer"
With Range(Cells(3, I), Cells(65536, I))
.NumberFormat = "0000"
.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
Danke und Servus, Walter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Walter,
hast Du zur Laufzeit des Codes Formeln unterhalb von Zeile 2 in der Tabelle?
Falls nein, gebe es eine Alternative.
Die Schleife habe ich bis zur letzten Zeile in Zeile 2 mit Inhalt abgekürzt.
Gruß Gerd

Sub a()
Dim I 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 Cells(2, I)
Case "Buchungstag", "Faellig"
With Range(Cells(3, I), Cells(65536, 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", "ZUNAME", "MITGLIED", "FUNKTION"
With Range(Cells(3, I), Cells(65536, 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
Case "Konto", "Nummer"
With Range(Cells(3, I), Cells(65536, I))
.NumberFormat = "0000"
.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
End Select
Next
End Sub

Gruß Gerd

Beliebteste Forumthreads (12 Monate)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread