Office: Text/Zahl in Zahl umwandeln

Hallo!
ich weiß dies ist eine viel gestellte Frage, aber ich habe trotzdem so meine Probleme!
Ich will eine Reihe von Zahlen in Excel der größe nach sortieren, muss aber vorher festlegen dass der gesamte inhalt eine Zahl ist.

Das klappt so per Hand auch super und ohne Probleme, aber sobald ich das in mein Makro einbette funktioniert es nicht mehr.
Während das Makro aufzeichnet klappt alles noch suppi, aber wenn ich es dann ablaufen lasse klappt das nicht mehr

kann mir jemand helfen??
Danke

 

Hallo!

Wie sehen denn deine Werte aus?
Wie sieht denn dein Makro aus?
Wie soll denn das gewünschte Ergebnis aussehen?
Ein paar mehr Infos wären schon schön...

 

Hallo!
Also ich habe eine Textdatei in Excel eingelesen die aus Zahlen und Text durcheinander besteht.
Das Makro sucht nach einem bestimmten wort in der langen reihe und kopiert die dazu gehörige Zahl in eine andere Spalte.
Bei der Zahl handelt es sich um positive und Negative Temperatur Angaben, die nach der Größe sortiert werden sollen. Mein Sortier-Makro sieht so aus:

Range("C2:D14").Select 'Auswahl der zu sortierenden Werte
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers

Range("D2:D14").Select 'sortierte Zahlen kopieren
Selection.Copy
Range("E1").Select
ActiveSheet.Paste
Application.CutCopyMode = False


Bring es Dir mehr wenn ich dass kopmplette MAkro angebe?

 

Hallo LALE,

ich habe zuerst einmal die Selection-Objekte entfernt, denn diese zwingen Excel, die aktuelle Markierung jedesmal neu zu setzen, was ein relativ langsamer Vorgang ist (der Makrorekorder hat leider diese Vorliebe).

Was mir sofort aufgefallen ist, dass Du in der Sortiermethode beim Parameter 'Header' die Einstellung 'xlGuess' verwendest. Das bewirkt, dass Du es Excel überlässt, ob die 1. Zeile des Sortierbereichs eine Überschrift enthalten soll oder nicht. Dadurch verlierst Du die Kontrolle über die Sortierung. Ich habe angenommen, dass die Kopfzeile in C1:D1 enthalten ist und in C2:D14 ausschließlich Daten: deshalb die Umstellung auf 'xlNo', andernfalls wäre es 'xlYes'.

Der Parameter 'OrderCustom' (=1) bewirkt, dass Excel in der 1. benutzerdefinierten Sortierliste nachschaut und die Werte der Sortierspalte (C2:C14) nach dieser Reihenfolge sortieren möchte. Findet es Werte, die in der 1. benutzerdef. Sortierliste nicht festgelegt sind, sortiert es nach allgemeinen Sortierreihenfolgen.

MatchCase:=False bedeutet, dass für die Sortierung die Klein/Großschreibung (von Buchstaben) ignoriert wird.

Der Parameter 'Orientation' bewirkt eine spaltenweise (xlSortColumns) Sortierung, während xlSortRows eine zeilenweise Sortierung bewirkt. Da der numerische Wert für xlSortColumns und für xlTopToBottom =1 ist, hat diese Änderung keine Auswirkung.

Der Parameter 'DataOption1' mit der Einstellung 'xlSortTextAsNumbers' bewirkt, dass Text, der aus Zahlen besteht, in der Zahlenreihenfolge sortiert wird, zB. {"9","99","100"} und nicht als {"100","9","99"}

Code:

Sub Sortierung()
  Range("C2:D14").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlNo, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlSortColumns, _
  DataOption1:=xlSortTextAsNumbers
  
  Range("D2:D14").Copy Destination:=Range("E1")

End Sub

 

Hallo Exl121150 !
Ich habe dein Sortiercode ausprobiert aber es macht immernoch die gleichen Fehler.

Die werte sind von dieser Reihenfolge:
-12,5
42,5
22,5
27,5
32,5
37,5
17,5
-7,5
-2,5
2,5
7,5
12,5
47,5

in diese Sortiert worden:
12,5
-12,5
17,5
2,5
-2,5
22,5
27,5
32,5
37,5
42,5
47,5
7,5
-7,5

Ich erkenne da kein Muster oder so, dass ich den Fehler finden könnte!!

Die Zahlen die oben aufgeführt sind stehen in C2:C14. In D2:D14 stehen die zu der Temperatur gehörigen Dehnungen die mit der entsprechenden temperatur die Positionen ändern. Das klappt auch soweit ganz gut, wenn die reihenfolge der Temp stimmen würde

Noch irgendeinen Vorschlag?

 

Hallo!

Wenn das tatsächlich dein Sortier-Ergebnis ist, dann liegt die Vermutung nahe, dass es sich nicht um "echte" Zahlen handelt. Sind da möglicherweise noch irgendwelche Leerzeichen o.ä. in den Zellen?
Bei mir sortiert Excel deine Werte wunschgemäß...

 

Hallo LALE,

1) kann es sein, dass Deine Zahlen im Bereich C2:C14 folgendermaßen gespeichert sind:
als Text und mit deutschem Kommastrich als Dezimalzeichen.
2) Damit DataOption1:=xlSortTextAsNumbers funktioniert, müssen die Werte in C2:C14, wenn sie als Text gepeichert sind, mit einem englischen Kommapunkt als Dezimalzeichen ausgestattet sein.
3) Sind die Werte in C2:C14 als Zahlen gepeichert, dann funktioniert alles (denn dann ist die deutsche Zahlendarstellung eine reine Monitoranzeigerei und hat mit der internen Speicherung nichts zu tun).

4) Um nun die automatische Konversion von der Textspeicherung der Zahlen in C2:C14 in die Zahlenspeicherung durchzuführen, habe ich das Makro um eine Konversionsschleife erweitert:

Code:

Sub Sortierung()
  Dim Zelle As Range
  For Each Zelle In Range("C2:C14").Cells
    Zelle.Value = CDbl(Zelle.Value)
  Next Zelle
  Range("C2:D14").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlNo, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlSortColumns, _
  DataOption1:=xlSortTextAsNumbers
  
  Range("D2:D14").Copy Destination:=Range("E1")

End Sub

 

Also ich sehe keine Leerzeichen....
Könnte evt. vorher ein fehler passiert sein....?
Excel kopiert mir die gesuchten Zelleninhalte z.B

1Pb_12,5

Dann ersetzt das Makro 1Pb_ durch "NIX". Kann es sein das da ein Fehler drinn steckt?

Cells.Replace What:="1Pb_", Replacement:=""

Ich weiß ja das die Werte kein "echten" Zahlen enthält sondern als Text gespericherte Zahlen..... aber ich dachte der Befehl

DataOption1:=xlSortTextAsNumbers

löst das problem indem Excel die Zahlen als Zahlen festlegt......

Bin ratlos.....

 

Ich bin immer wieder erstaunt, was ihr alles zustande kriegt:)
Ich hoffe ich kann das hier irgendwann durch ein klugen beitrag meinerseits wieder gut machen.....

Es klappt! Die Diplomarbeit kann weitergehen;)

DANKE!!!

 

Hallo LALE,

ich habe nirgendwo in meinem vorigen Posting das Wort Leerzeichen gebraucht. Hast Du mein Makro ausprobiert, ob es funktioniert?

 

Unsere Antworten haben sich etwas überschnitten!!
Deswegen jetzt nochmal:
Viele Dank es funktioniert bestens mit deiner Forschleife:=)
Keine Verbesserungswünsche mehr;)
DANKE