Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktion =Wert()

Forumthread: Funktion =Wert()

Funktion =Wert()
30.07.2004 10:07:55
Thomas_H
Hallo NG!
Wiedereinmal brauche ich eure Hilfe, da ich folgendes Problem habe:
Ich habe einige Auswertungen die von einem anderen System nach Excel exportiert werden. Dort erscheinen alle Zahlen nicht als Zahlen sonder als Text.
Bisher habe ich mir mit der Formel =Wert(..) geholfen.
Ich wollte jetzt wissen wie ich es anstellen muss damit ich dies per VBA lösen kann da Worksheetfunction.value bei mir nicht funktioniert...
Was muss ich machen bzw was mach ich falsch?
Danke für eure Hilfe bereits im vorhinein,
Thomas
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktion =Wert()
30.07.2004 10:10:15
Bernd
Hallo Thomas,
von VBA habe ich leider keine Ahnung, aber im Excel würde man den Text mit 1 multiplizieren. Vielleicht hilft das ja irgendwie weiter.
Gruß Bernd
AW: Funktion =Wert()
30.07.2004 12:12:49
hans 

Sub hs()
' Beim Einlesen der Daten, eventuell schon auf das Format achten,
' dann hast du gar keine Probleme
'Wenn das nicht möglich ist:
Cells(1, 1).ClearFormats  'Zelle hat noch das Textformat, deshalb erst zurücksetzen
Cells(1, 1) = Val(Cells(1, 1)) ' und dann funktionierts auch mit der Konvertierung in einen Wert
End Sub

Anzeige
AW: Funktion =Wert()
Panicman
Hallo Thomas,
versuchs mal hiermit.
Bereich makieren und Makro starten:

Sub FormatTextToNumber()
Dim rngCell As Range
For Each rngCell In Selection.Cells
With rngCell
.NumberFormat = "General"
If IsNumeric(.Text) Then
.Value = CDbl(.Text)
End If
End With
Next 'rngCell
End Sub

Gruß
Holger
Anzeige
Danke für die Hilfe!!! (alternative Lösung)
30.07.2004 12:05:36
Thomas_H
Hallo an alle!
Danke für eure Hilfe. Ich habe das Problem in zwischenzeit folgendermaßen gelöst:

Private Sub Wert()
Dim c As Range
For Each c In Selection
c.Value = c.Value * 1
Next
End Sub

Also bis zum nächsten mal, Thomas
;
Anzeige
Anzeige

Infobox / Tutorial

Funktion =Wert() in Excel: So konvertierst du Text in Zahlen

Schritt-für-Schritt-Anleitung

Um die Funktion =WERT() in Excel effektiv zu nutzen, folge diesen Schritten:

  1. Daten importieren: Stelle sicher, dass die Daten, die du importierst, richtig formatiert sind. Wenn sie als Text erscheinen, kannst du die =WERT()-Funktion verwenden.

  2. Formel anwenden: Gehe zu der Zelle, in der du das Ergebnis sehen möchtest, und gib die Formel ein:

    =WERT(A1)

    Hierbei ersetzt du A1 durch die Zelle, die den Text enthält.

  3. Drag & Drop: Wenn du die Formel auf mehrere Zellen anwenden möchtest, ziehe das untere rechte Eck der Zelle nach unten oder nach rechts.

  4. Ergebnisse überprüfen: Du solltest nun die konvertierten Zahlen in den Zielzellen sehen.

Häufige Fehler und Lösungen

  • Fehler: #WERT!
    Dieser Fehler tritt auf, wenn der Inhalt der Zelle nicht in eine Zahl konvertiert werden kann. Überprüfe, ob die Zelle nur Zahlen enthält.

  • Fehler: Textformat bleibt bestehen
    Wenn die Zahlen weiterhin als Text angezeigt werden, könnte es helfen, die Zellen zu formatieren. Wähle die Zellen aus und setze das Format auf "Allgemein".

Alternative Methoden

Falls die =WERT()-Funktion nicht die gewünschten Ergebnisse liefert, kannst du folgende Methoden ausprobieren:

  1. Multiplikation mit 1: Du kannst die Zellen auch einfach mit 1 multiplizieren. Das konvertiert die Texte in Zahlen:

    =A1*1

  2. VBA-Makros: Wenn du regelmäßig mit solchen Konvertierungen arbeitest, kannst du ein VBA-Makro nutzen. Hier ein einfaches Beispiel:

    Sub FormatTextToNumber()
   Dim rngCell As Range
   For Each rngCell In Selection.Cells
       With rngCell
           .NumberFormat = "General"
           If IsNumeric(.Text) Then
               .Value = CDbl(.Text)
           End If
       End With
   Next rngCell
End Sub

Praktische Beispiele

Hier sind einige praktische Beispiele, die dir helfen, die =WERT()-Funktion oder die Alternativen in echten Szenarien anzuwenden:

  • Beispiel 1: Angenommen, du hast in Zelle A1 den Text "1234". Mit =WERT(A1) erhältst du die Zahl 1234 in der Zielzelle.

  • Beispiel 2: Wenn du mehrere Zellen hast, die als Text formatiert sind, markiere den Bereich und führe das oben genannte VBA-Makro aus. Alle Zellen werden in Zahlen umgewandelt.

Tipps für Profis

  • Direkte Formatierung: Achte darauf, dass du beim Importieren von Daten das richtige Format auswählst, um die Notwendigkeit der =WERT()-Funktion zu minimieren.

  • Verwendung von VBA: Wenn du oft mit Daten arbeitest, die als Text importiert werden, kann ein VBA-Makro eine enorme Zeitersparnis sein.

  • Kombination von Funktionen: Du kannst auch die =WERT()-Funktion mit anderen Excel-Funktionen wie SUMME() kombinieren, um direkt mit den konvertierten Werten zu arbeiten.

FAQ: Häufige Fragen

1. Was mache ich, wenn die =WERT()-Funktion nicht funktioniert?
Überprüfe, ob der Text tatsächlich in eine Zahl umgewandelt werden kann. Achte auch darauf, dass in der Zelle keine zusätzlichen Leerzeichen oder nicht-numerische Zeichen vorhanden sind.

2. Gibt es eine Möglichkeit, die Konvertierung zu automatisieren?
Ja, du kannst ein VBA-Makro schreiben, das automatisch alle markierten Zellen von Text in Zahlen konvertiert, wie im Abschnitt "Alternative Methoden" beschrieben.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige