Hallo zusammen,

ich hoffe ihr könnt mir bei meinem Problem helfen. Ich irre schon seit einigen Tagen durchs Internet, aber ich finde keine Lösung.

Mein Problem:

Ich habe eine Excel Datei aus mehreren Tabellenblättern.

In drei Tabellenblätter werden aus einer anderen Datei täglich Werte geschrieben. Das klappt soweit.

Unter anderem ist in der ersten Spalte immer ein Datum.

Dieses Datum wird mit Sverweis für ein weiteres Tabellenblatt benötigt.

Sverweis findet aber das Datum nicht. Erst wenn ich die komplette Spalte A makiert habe und über Daten --> Text in Spalten --> Fertig stellen formatiert habe.

Scheinbar ist das Datum nicht in der selben Formatierung. Allerdings kommt ja jeden Tag ein neues Datum hinzu. Die Formatierung immer anzupassen wäre also zu aufwendig. Deswegen hätte ich gern ein Makro was das kann.

Ich habe das Makro aufgezeichnet. Und verfeinert. Sodass es so aussieht:

Sub TEXTinSPALTEN1()
'
' TEXTinSPALTEN1 Makro
'

'
Dim Ziel1 As String
Ziel1 = Selection.Address

    Sheets("Wanddickenprüfung").Select
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range(Ziel1), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Range("A5").Select

    
End Sub
    
    

Sub TEXTinSPALTEN2()
'
' TEXTinSPALTEN2 Makro
'

'
Dim Ziel2 As String
Ziel2 = Selection.Address

    Sheets("Messmaschine Rechts").Select
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range(Ziel2), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Range("A5").Select
    
End Sub

Sub TEXTinSPALTEN3()
'
' TEXTinSPALTEN3 Makro
'

'
Dim Ziel3 As String
Ziel3 = Selection.Address

    Sheets("Messmaschine Links").Select
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range(Ziel3), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Range("A5").Select
    
End Sub

Also das ist jetzt zu jedem Tabellenblatt extra.

Die Daten werden mir immer in unterschiedlichen Spalten wiedergegeben. Warum nicht in der Spalte wo sie schon stehen?

Eigentlich will ich doch nur Glätten.

Ich muss dazu sagen, ich habe wenig Ahnung von VBA.

Ich hoffe auf eure Hilfe.

Gruß TheJenny