Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text in Zahlen konvertieren

Text in Zahlen konvertieren
28.02.2007 08:57:00
Michael
Hallo VBA Profis,
ich versuch ein Makro zu erstellen, welches mir in einer SAP-Export-Liste Text in Zahlen umwandelt. Folgenden Code habe erstellt. Dieser ist aber noch fehlerbehaftet. Vielleicht könnt Ihr mir weiterhelfen, ich stehe Irgendwie auf dem Schlauch...
Micha
Hier der Code:

Sub Zahlenkonvertieren()
Dim i As Integer
For i = 0 To 9
Cells.Select
Selection.Replace What:=i
Replacement:=i
LookAt:=xlPart
SearchOrder:=xlByRows
MatchCase:=False
Next i
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vielleicht so? Text in Zahlen konvertieren
28.02.2007 09:38:00
Michael
Ich habe jetzt erst mal die Kompilierungsfehler mithilfe der Hilfe entfernen können. Aber leider werden noch immer nicht alle als text dargesteletn Zahlen in wirkliche Zahlen umgewandelt :o(
Vielleicht noch irgendwelche anderen Ideen?
Micha

Sub Zahlenkonvertieren()
Dim i As Integer
For i = 0 To 9
Cells.Select
Selection.Replace What:=i, Replacement:=i, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False
Next i
End Sub

AW: vielleicht so? Text in Zahlen konvertieren
28.02.2007 10:45:25
Rudi
Hallo,

Sub tt()
Dim rngTmp As Range
Set rngTmp = Cells(1, 255).End(xlToLeft).Offset(0, 2)
rngTmp = 1
rngTmp.Copy
Range("A1").CurrentRegion.PasteSpecial Paste:=xlPasteValues, _
operation:=xlPasteSpecialOperationMultiply
rngTmp.Clear
Set rngTmp = Nothing
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: vielleicht so? Text in Zahlen konvertieren
01.03.2007 21:27:06
Daniel
Hallo
probiers mal damit:

Sub Makro3()
With ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
.NumberFormat = "General"
.Formula = .Value
End With
End Sub

Gruß, Daniel

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige