Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
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
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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige