VBA Select Case
04.06.2015 16:06:33
WalterK
der folgende Codeteil soll Überschriften in Zeile 1 vergleichen und falls gefunden die Spalte ab Zelle 2 formatieren.
Allerdings werden die 3 Zeilen ab ".TextTocolumns ...." gelb unterlegt, die Fehlermeldung lautet: Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht.
Der Code läuft in einem allgemeinen Modul, wksPool ist der Blattname.
Dim blnTTC As Boolean
Dim i As Long
For i = 1 To wksPool.Cells(1, Columns.Count).End(xlToLeft).Column
With Range(wksPool.Cells(1, i), wksPool.Cells(LzA, i))
Select Case wksPool.Cells(1, i)
Case "Kontobeginn", "Kontoende"
.NumberFormat = "m/d/yyyy"
.HorizontalAlignment = xlCenter
blnTTC = True
End Select
If blnTTC Then
If Application.WorksheetFunction.CountA(wksPool.Cells) > 0 Then
.TextToColumns Destination:=wksPool.Cells(2, i), _
TextQualifier:=xlDoubleQuote, Tab:=True, _
Other:=False, FieldInfo:=.Array(1, 1)
End If
blnTTC = False
End If
End With
Next i
Besten Dank für die Hilfe und Servus, Walter