Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

Textzeichen aus Zellen entfernen (nur Ziffen auslesen)

108038

 



Mit dem folgenden Beispiel werden aus Zellen alle Zeichen außer Zahlen entfernt.
Dies kann nach einem Datenimport notwendig werden. Hier sind evtl. Leerzeichen oder andere undefinierbare Zeichen enthalten.

Mit diesem Makro können Sie die unerwünschten Zeichen problemlos entfernen.

Wichtig ist, das Dezimaltrennzeichen zu definieren, denn sonst wird es als unerwünschtes Zeichen erkannt und auch entfernt. Voreingestellt ist das Komma (,) als Dezimaltrennzeichen.

Dieses Beispiel bereinigt die Zellen A1 bis A3.


Sub Zahlen_auslesen()
dezimaltrennzeichen = "," 'Dezimaltrennzeichen festlegen
For i = 1 To 3 'Exemplarisch für Zeile 1 bis 3
    wert = Cells(i, 1).Value 'Exemplarisch für Spalte A - Also A1 bis A3
    zellwert = ""
    
    'In jeder Zelle werden alle Zeichen bearbeitet
    For k = 1 To Len(wert)
        z = Mid(wert, k, 1)
        If Not (Asc(z) > 47 And Asc(z) < 58) Then
            If z = dezimaltrennzeichen Then
                If Not Asc(Mid(wert, k + 1, 1)) > 47 And Asc(Mid(wert, k + 1, 1)) < 58 Then
                    z = ""
                End If
            Else
                z = ""
            End If
        End If
        zellwert = zellwert & z
    Next k
    
    Cells(i, 2).Value = CDbl(zellwert) 'Werte werden in B1 bis B3 geschrieben
Next i

End Sub

 

 

   

Relevante Artikel

  • IBAN in Excel ermitteln - Neue Funktion

    Am 01.02.2014 tritt SEPA für alle Euro-Mitgliedsstaaten endgültig in Krafft. Zu diesem Zeitpunkt müssen alle bargeldlosen Zahlungen im EURO-Raum im SEPA-Format durchgeführt werden. SEPA steht für Single...

  • Verwendung von API Bibliotheken in Office 2010/2013 32bit und 64bit Versionen

    Per VBA können API-Bibliotheken relativ einfach eingebunden werden. Bei einer API (Application Programming Interface) handelt es sich um DLL- oder EXE-Dateien die eine Schnittstelle zum...

  • Begriffe innerhalb einer Zelle sortieren

    Mit Hilfe der benuterdefinierten Funktion (UDF) =SORTLIST(Zelle; Separator) können Einträge, welche sich innerhalb einer Zelle befinden alphabetisch sortiert werden. Die Funktion zerlegt den...

  • Autokorrekturliste auslesen

    Wie alle Office-Programme, enthält auch Excel die Autokorrektur-Funktion. Ab Excel 2007 ist diese über die Backstage (Datei / Excel Optionen / Dokumentprüfung / Schaltfläche...

  • CPU Informationen auslesen

    Mit Hilfe des untenstehenden VBA-Codes können verschiedene CPU Informationen ausgelesen werden. Folgende Informationen werden im Direktfenster ausgegeben: 1. die Geräte-ID2. die...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013