---

Probe.xls.txt

Hallo zusammen,
welche Aktion muss ich durchführen, damit die Spalte A genauso wie die Spalte B aussieht? (siehe Anhang)
Gruß Kristof

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus Kristof,

so direkt geht's leider gar nicht. Hier hast du dir den Fehler "als Text gespeicherte Zahl" eingefangen, der verschiedenste Ursachen haben kann und teilweise eigenartie Phänomene mit sich zieht.

Dein Ziel ist es demnach, diese "Texte" in Zahlen zu konvertieren. Da musst auf einen kleinen Trick zurückgreifen, und alle Werte mit 1 multiplizieren. Dazu gibt's mehrere Möglichkeiten, z.B. diese:
- gib in C1 die Formel =B1*1 ein
- kopiere diese runter bis C17
- Markiere C1 bis C17
- Ziehe den markierten Bereich per Drag&Drop, aber mit der RECHTEN Maustaste, auf den Bereich B1 bis B17
- Maustaste loslassen und "hierhin nur als Werte kopieren" auswählen
- C1 bis C17 löschen

Jetzt kannst du den Inhalt der Spalte B über das Zellenformat an jenes der Spalte A anpassen, in deinem Fall "Standard" (außerdem ist Spalte A linksbündig formatiert, das wäre dann auch noch zu machen).

Ciao, WolfgangE

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

entweder du  hast mich nicht richtig verstanden oder ich mache was falsch.
ich will nämlich in der Spalte A diesen Fehler "als Text gespeicherte Zahlen" bei jeder Zahl haben.
Gruß Kristof

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

du willst also genau das Gegenteil von dem, was ich beschrieben habe. Warum das denn???

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Kristof,

würd ich so machen:

Public Sub Kristof()
    Dim lngRow As Long
    Application.ScreenUpdating = False
    Columns(1).NumberFormat = "@"
    For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(lngRow, 1).Value = Cells(lngRow, 1).Text
    Next
    Columns(1).NumberFormat = "General"
    Application.ScreenUpdating = True
End Sub

------------------
Gruß
Nepumuk

[Diese Nachricht wurde von Nepumuk am 05. Mrz. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wolfgang,
da meine Formel nicht funkioniert hatte. Jetzt habe ich aber das hingekriegt. Vielen Dank für dein Tipp. Es hat mir sehr geholfen.
schönen Sonntag
Kristof

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ein einfaches Formatieren der Spalte A in Text reicht nicht?

@WolfgangE, in C1 eine 1 Eingeben / Kopieren , den Zellbereich der Zahlen als Text enthält auswählen und inhalte einfügen mulitplizeren wählen
------------------
Am Anfang war kein Licht - und Vater blickte Kalt

[Diese Nachricht wurde von Thomas Harmening am 06. Mrz. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP