Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Als Text gespeicherte Zahl auf Zahl Formatieren

Als Text gespeicherte Zahl auf Zahl Formatieren
Wolfgang
Hallo Leute
Wenn ich aus einem anderen Progamm zb. SAP eine Tabelle nach Excel kopiere werden die Zahlen als Text gespeicherte Zahlen eingefügt.
Ich möchte gerne in einenm Bereich zb. A1 bis D7 aus den als Text eingefügten Zahlen, durch ein Macro, den bereich so umwandel das das Format und der Zellinhalt eine Zahl mit einer kommastelle wird.
kann mir da jemand helfen?
für eure Hilfe wäre ich euch dankbar!!
Gruß
Wolfgang
Anzeige
AW: Als Text gespeicherte Zahl auf Zahl Formatieren
16.02.2006 14:02:49
Peter
Hallo Wolfgang,
multipliziere die Zahlen einfach mit 1 - ob per Formel oder per VBA.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Als Text gespeicherte Zahl auf Zahl Formatieren
16.02.2006 14:19:52
Wolfgang
Hallo Peter
Danke für deine schnelle antwort.
Das ich das mal 1 nehmen muss hatte ich schon heraus gefunden.
Aber wie bau ich das ins Macro ein ?
Viele Grüße Wolfgang
Anzeige
AW: Als Text gespeicherte Zahl auf Zahl Formatieren
16.02.2006 14:38:10
Peter
Hallo Wolfgang,
angenommen, deine Werte stehen in Spalte A ab Zeile 1, dann so:

Public Sub Mal_eins()
Dim Lzeile  As Long
   For Lzeile = 1 To Range("A65536").End(xlUp).Row
      If IsNumeric(Range("A" & Lzeile).Value) Then
         Range("A" & Lzeile).Value = Range("A" & Lzeile).Value * 1
      End If
   Next Lzeile
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Als Text gespeicherte Zahl auf Zahl Formatieren
16.02.2006 14:52:11
Wolfgang
Hallo Peter
Besten Dank für deine Hilfe.
So klappt es.
nochmals vielen Dank
viele Grüsse Wolfgang
AW: Als Text gespeicherte Zahl auf Zahl Formatieren
16.02.2006 14:44:39
Peter
Hallo Woflgang,
für den Bereich A1:D7 so:

Public Sub MultipliMitEins()
 
Dim Zelle As Range
   
   For Each Zelle In ActiveSheet.Range("A1:D7")
      If IsNumeric(Zelle) Then
         Zelle = Zelle * 1
      End If
   Next Zelle
   
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Als Text gespeicherte Zahl auf Zahl formatieren in Excel


Schritt-für-Schritt-Anleitung

Um als Text gespeicherte Zahlen in Excel in echte Zahlen zu konvertieren, kannst Du ein VBA-Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Erstelle ein neues Modul:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle Einfügen > Modul.
  3. Füge den folgenden VBA-Code ein:

    Public Sub MultipliMitEins()
       Dim Zelle As Range
       For Each Zelle In ActiveSheet.Range("A1:D7")
           If IsNumeric(Zelle) Then
               Zelle = Zelle * 1
           End If
       Next Zelle
    End Sub
  4. Schließe den VBA-Editor:

    • Drücke ALT + Q, um den Editor zu schließen.
  5. Führe das Makro aus:

    • Gehe zurück zu Excel, drücke ALT + F8, wähle MultipliMitEins und klicke auf Ausführen.

Dies wird alle als Text gespeicherten Zahlen im Bereich A1:D7 in Zahlen umwandeln.


Häufige Fehler und Lösungen

  • Fehler: "Typenunterschied" beim Ausführen des Makros.

    • Lösung: Stelle sicher, dass der Bereich keine Zellen mit Text oder leeren Zellen enthält, die nicht numerisch sind.
  • Fehler: Die Zahlen erscheinen weiterhin als Text.

    • Lösung: Überprüfe, ob die Zellen nach dem Ausführen des Makros noch das Textformat haben. Du kannst das Zellformat manuell auf "Zahl" ändern.

Alternative Methoden

  1. Text in Zahlen umwandeln:

    • Wähle die Zellen aus, gehe zu Daten > Text in Spalten, klicke auf Fertig stellen.
  2. Einfüge-Methode:

    • Multipliziere eine Zelle mit 1 und kopiere diese Zelle. Wähle den Bereich, klicke mit der rechten Maustaste, wähle Inhalte einfügen, dann Multiplizieren.
  3. Formel verwenden:

    • Verwende die Formel =WERT(A1) für die erste Zelle und ziehe sie nach unten.

Praktische Beispiele

Angenommen, Du hast folgende als Text gespeicherte Zahlen in A1 bis D7:

A1: "100"
A2: "200"
B1: "300"
B2: "400"

Verwende das oben genannte Makro, um diese Werte in Zahlen zu konvertieren. Nach der Ausführung solltest Du in der Lage sein, Berechnungen mit diesen Werten durchzuführen.


Tipps für Profis

  • Zellformatierung: Stelle sicher, dass das Zellformat korrekt eingestellt ist. Du kannst die Zellen auch direkt im Format "Zahl" formatieren, bevor Du das Makro ausführst.

  • Fehler ignorieren: Wenn Du beim Import von Daten häufig mit als Text gespeicherten Zahlen konfrontiert bist, könntest Du das Makro so erweitern, dass es diese Fehler beim Konvertieren ignoriert.

  • Automatisierung: Du kannst das Makro so anpassen, dass es beim Öffnen der Datei automatisch ausgeführt wird, um die Konvertierung zu automatisieren.


FAQ: Häufige Fragen

1. Wie kann ich alle als Text gespeicherten Zahlen umwandeln? Du kannst das oben genannte Makro anpassen, um jeden gewünschten Bereich oder sogar das gesamte Arbeitsblatt zu durchlaufen.

2. Was ist, wenn ich eine Fehlermeldung erhalte? Überprüfe die Daten in den Zellen. Manchmal können Leerzeichen oder unsichtbare Zeichen dazu führen, dass die Konvertierung fehlschlägt.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige