Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Auftragsformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

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

  • Online-Status prüfen

    Dieses Beispiel zeigt, wie sich der Online-Status per VBA überprüfen lässt. Mit Hilfe des Codes wird geprüft, ob der Computer mit dem Internet verbunden ist oder nicht und gibt eine entsprechende...

  • 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...

  • 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...

  • Externe Verknüpfungen entfernen

    108004 Excel bietet Standardmäßig keine Funktion, um externe Verknüpfungen auf einem Excel-Tabellenblatt zu entfernen. Befinden sich auf einem großen Excel-Sheet viele externe Verknüfpungen, dann...

  • VBA Geschwindigkeitstest

    In diesem Beitrag möchte ich Ihnen einen Überblick über verschiedene Arten von  VBA-Schleifen und den daraus resultierenden Durchlaufgeschwindigkeiten geben. Die Testdatei enthält dazu in Spalte A...