Automatische Umwandlung von Text in Wissenschaft verhindern

[mrtc]

Hallo,

Ich versuche bei mehreren Zellen (UP230000E-1,.....) das UP vorne zu entfernen.
Dies mache ich mittels suchen und ersetzen.

Herauskommen sollte 230000E-1.
Leider wird die Zelle aber automatisch in "Wissenschaft" umformatiert und heraus kommt: 2,30E+04

Wie kann man dies verhindern?

Händisch leider nicht möglich, sind um die 17.000 Zellen.

[Sigi.21]

Hallo,

mit Makro ist das evtl. zu machen. 

Haben alle Zellen am Anfang "UP" stehen?
Haben die Zellen ein Nummernformt? Dies müsste zu Textformat geändert werden.

Sigi

[mrtc]

Ja alle beginnen mit UP.

Habe Sie vorher in Text umgewandelt, jedoch nach dem löschen von UP wird es in Wissenschaft umgewandelt.

[Sigi.21]

Hallo,

dann folgendes Makro:

Sub UP_weg()
Dim Bereich As Range, Zelle As Range, Txt As String
        Set Bereich = Application.Selection
        Application.ScreenUpdating = False
        For Each Zelle In Bereich
                If WorksheetFunction.IsText(Zelle.Text) Then
                    If Left(Zelle.Text, 2) = "UP" Then
                            Txt = Mid(Zelle.Text, 3, Len(Zelle.Text))
                            Zelle.Clear
                            Zelle.NumberFormat = "@"
                            Zelle.Value = Txt
                    End If
                End If
        Next Zelle
        Set Bereich = Nothing
        Application.ScreenUpdating = True
End Sub


Zuerst den zu bearbeitenden Bereich mit der Maus markieren, dann Makro starten. Bei ca. 17.000 Zeilen kann das etwas länger dauern!

Sigi

[snb]

Code:

Sub M_snb()
   columns(1).replace "UP","'",2
End Sub