Werte in Zahlen umwandeln

Hallo,
ich habe Daten aus SAP in Excel importiert. Die Werte in der Spalte "AQ" werden als Text importiert. Deshalb habe ich diese Werte mit "1" multipliziert um die Spalte ins Zahlenformat umzuwandeln. Ich habe dafür den folgenden Code mit dem Macrorecorder aufgezeichnet.
Range("BB1").Select
ActiveCell.FormulaR1C1 = "1"
Selection.Copy
Range("AQ2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Die Spalte hat jetzt auch tatsächlich das Zahlenformat. Jetzt wollte ich das ganze automatisieren und habe deshalb oben genannten Code eingesetzt. Der Code läuft ohne Beanstandung durch. Leider ist am Ende die Spate im gleichen Zustand wie vor dem Code, spricht die Werte in den Spalten wurden nicht mit "1" multipliziert. Wie kann das sein? Beim Aufzeichnen hat es doch auch so geklappt.
Vielen Dank.
Gruß,
Jakob

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Text_zu_Zahl() Dim Bereich As Range Set Bereich = IIf(IsEmpty(Range("AQ2")), Range("AQ2").End(xlDown), Range("AQ2")) Set Bereich = Range(Bereich, Cells(Rows.Count, Bereich.Column)) Bereich.TextToColumns Destination:=Bereich(1, 1), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 1), TrailingMinusNumbers:=True End Sub

Hallo,
versuche es mal hiermit.
Bereich Markieren und Makro laufen lassen.

Sub Text_zu_Zahl()
Dim Bereich As Range, BereichCol As Range

With Application
 .ScreenUpdating = False
 .EnableEvents = False

    For Each Bereich In Selection.Columns

        Set BereichCol = IIf(IsEmpty(Bereich.Cells(1)) Or Bereich.Cells(1).Value = "", Bereich.Cells(1).End(xlDown), Bereich.Cells(1))
        Set BereichCol = Range(BereichCol, Cells(Rows.Count, Bereich.Column))
     
         If BereichCol.Rows.Count > 1 Then
            BereichCol.TextToColumns Destination:=BereichCol(1), DataType:=xlDelimited, _
                    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
                    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
                    :=Array(1, 1), TrailingMinusNumbers:=True
        
         End If
    
    Next Bereich

 
 .ScreenUpdating = True
 .EnableEvents = True
End With
End Sub

Gruß Tino

Sub Formatieren() Dim Bereich As Range Dim MyAr Dim A As Long, B As Long Set Bereich = ActiveSheet.UsedRange MyAr = Bereich For A = 1 To Ubound(MyAr) For B = 1 To Ubound(MyAr, 2) If IsNumeric(MyAr(A, B)) And MyAr(A, B) <> "" Then MyAr(A, B) = MyAr(A, B) * 1 Next B Next A Bereich = MyAr End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

379 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte in Zahlen umwandeln

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

379 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread