Clever-Excel-Forum

Normale Version: Automatische Umwandlung von Text in Wissenschaft verhindern
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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.
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
Ja alle beginnen mit UP.

Habe Sie vorher in Text umgewandelt, jedoch nach dem löschen von UP wird es in Wissenschaft umgewandelt.
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
Code:
Sub M_snb()
   columns(1).replace "UP","'",2
End Sub