Schlechte Datenqualität aufbessern.

Hallo Johannes,
<br />dann probiere es mal so:
<br />

Sub Test2()

Dim lRow As Long

Dim rCol As Range

With Sheets("Tabelle2")

lRow = .Cells(.Rows.Count, 1).End(xlUp).Row

For Each rCol In .Range("A1:ON" & lRow).Columns

If Application.CountA(rCol) > 0 Then

'Hier das gewünschte Format anpassen

rCol.NumberFormat = "General"

rCol.TextToColumns Destination:=rCol.Cells(1), DataType:=xlFixedWidth, _

FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

End If

Next

End With

End Sub

Claus
<br />

Hallo Claus,
<br />Ich habe den Code im VBA Editor unter Objekte>Tabelle 2 [Das ist die in der die Anwendung stattfinden soll] eingefügt.
<br />Wenn ich den Code Schritt für Schritt ausführe kommt in der Stelle
<br />.TextToColumns Destination:=Cells(1, i), DataType:=xlFixedWidth, _
<br /> FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
<br />der Fehler Laufzeitfehler 1004 Anwendung- oder objektdefinierter Fehler
<br />Ich hatte viele Zeilen und Spalten ausgeblendet. Das wieder einblenden hat leider auch nicht geholfen
<br />Johannes
<br />

Hallo Claus,
<br />Danke, dass du mir heute schon zum zweiten Mal hilfst.
<br />Dein Vorschlag hat mich fast ans Ziel gebracht. Als ich es 1:1 gemacht habe, wie von dir beschreiben, dann hat es Probleme mit Zahlenwerte gegeben.
<br />Der Lösungsweg für mich war nun: Daten => Text in Spalten => Getrennt => Weiter => Tabstopp => Weiter=> Standard => Fertigstellen
<br />Deine Idee hat mich aber auf die richtige Spur gebracht.
<br />Habe allerdings wieder eine Anschlussfrage: Kann ich diesen Prozess auch automatisieren?
<br />Mein Ansatz wäre hier ein Makro aufzuzeichnen und dann dieses zu verschlanken. Sicher keine Elegante Lösung
<br />Danke schon- und nochmal.
<br />Johannes
<br />

Hallo Claus,
<br />ich glaube wir kommen der Lösung näher.
<br />mein zuletzt beschriebener Fehler "With Sheets("Tabelle2")", war ein Fehler auf meiner Seite. Ich dachte du referenziert mit "Tabelle2" die fixe Tabellen Nummerierung von Excel, dabei beziehst du dich auf den von mir vergebenen Tabellen Namen; das ist in meinem Fall "Grunddaten"
<br />Im VBA Editor steht also Folgendes: Tabelle 2 (Grunddaten)
<br />
<br />Nachdem jetzt dieses Problem gelöst ist, habe ich deine letzten beiden Code-Varianten ausprobiert:
<br />Bei dieser Variante:
<br />Sub Test3()
<br />Dim i As Integer
<br />
<br />For i = 1 To 404
<br /> With Sheets("Grunddaten")
<br /> With .Columns(i)
<br /> 'Hier das gewünschte Format anpassen
<br /> .NumberFormat = "General"
<br /> .TextToColumns Destination:=.Cells(1, i), DataType:=xlFixedWidth, _
<br /> FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
<br /> End With
<br /> End With
<br />Next
<br />End Sub
<br />Macht immer noch der folgende Teil Probleme:
<br /> .TextToColumns Destination:=.Cells(1, i), DataType:=xlFixedWidth, _
<br /> FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
<br />Deine neuste Variante läuft Problem los ab. Doch leider hat es keinen Effekt auf das Dokument.
<br />In der ersten Code-Version wurden die entspr. Zellen noch formatiert
<br /> Sub Test()
<br />Dim lRow As Long
<br />
<br />lRow = Cells(Rows.Count, "A").End(xlUp).Row
<br />With Range("A1:A" & lRow)
<br /> 'Hier das gewünschte Format anpassen
<br /> .NumberFormat = "General"
<br /> .TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
<br /> FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
<br />End With
<br />End Sub
<br />
<br />In der neusten passiert das nicht mehr.
<br />Sub Test4()
<br />Dim lRow As Long
<br />Dim rCol As Range
<br />
<br />With Sheets("Grunddaten")
<br /> lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
<br /> For Each rCol In .Range("A1:ON" & lRow).Columns
<br /> If Application.CountA(rCol) > 0 Then
<br /> 'Hier das gewünschte Format anpassen
<br /> rCol.NumberFormat = "General"
<br /> rCol.TextToColumns Destination:=rCol.Cells(1), DataType:=xlFixedWidth, _
<br /> FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
<br /> End If
<br /> Next
<br />End With
<br />End Sub
<br />
<br />Danke für die Hilfe und Geduld bisher.
<br />Johannes
<br />

Hallo Johannes,
<br />der Code gehört in ein Standardmodul.
<br />Kannst du deine Mappe zur Verfügung stellen?
<br />Claus
<br />