title image


Smiley Re: Import / Funktionen
Probiere mal bei den Spalten:

Daten -> Text in Spalten -> Getrennt -> Fertigstellen



Das könnte die Sache beheben.



Für einige Spalten mehr habe ich mir mal ein kleines Makro geschrieben:







Sub AusZahlAlsTextWirdZahl()

Dim Spalte As Object



    If Selection.Areas.Count > 1 Then

        MsgBox "Das geht nicht mit Mehrfachmarkierungen :-(", vbCritical + vbOKOnly, "STOP"

        Exit Sub

    End If



    If Selection.Columns.Count = 1 Then

        Selection.TextToColumns

    Else

        For Each Spalte In Selection.Columns

            Spalte.TextToColumns

        Next Spalte

    End If



End Sub







Code eingefügt mit Syntaxhighlighter 4.0







oder die F2-Variante von RalfK als Makro:









For Each Zelle In Selection

    SendKeys "{F2}", True

    SendKeys "{ENTER}", True

Next Zelle







Code eingefügt mit Syntaxhighlighter 4.0







Letzteres kann bei vielen Daten länger dauern :-)



Viel Spaß

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: