title image


Smiley Re: Prozentwerte in Zellen entfernen - Beispiel: 0 (0%) >>> 0
Hallo,

jetzt versteh ich vielleicht wirklich nicht mehr worauf es hin soll. Aber ok, hier ein VBA-Code, der dir vielleicht hilft. Bitte anpassen an den Speicherort der CSV-Datei.



Außerdem habe ich in dem Beispiel die Daten in ORG.CSV gespeichert, die du im ersten Posting hattest, also:



Date,Processed,Spam,Suspected,Blocked,Allowed,Viruses,Worms,Unscannable

Summary,6120,1882 (31%),4 (< 1%),258 (4%),0 (0%),0 (0%),0 (0%),0 (0%)

3/21/06,4,0 (0%),0 (0%),0 (0%),0 (0%),0 (0%),0 (0%),0 (0%)

3/22/06,19,0 (0%),0 (0%),0 (0%),0 (0%),0 (0%),0 (0%),0 (0%)



Mit folgendem Macro habe ich diese CSV-Daten importiert:









Sub Makro2()

'

' Makro2 Makro

' Makro am 30.03.2006 von \neandr aufgezeichnet

'

    ' --- rücksetzen der "Daten Text in Spalten Einstellungen" ----------

    Range("A1").Select

    ActiveCell.FormulaR1C1 = "xxxx"

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

        Semicolon:=False, Comma:=False, Space:=False, Other:=False, OtherChar _

        :="(", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True



    ' --- öffnen des CSV-Datei ----------

    Workbooks.Open Filename:= _

        "F:\_ sw.Tools & Tipps\Excel foren etc\Sigurd\org.csv"



    ' --- in erster Zeile Doppelkomma !! -----------

    Rows("1:1").Select

    Selection.Replace What:=",", Replacement:=",,", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False



    ' ---- import der CSV Datei und Text in Spalten mit Komma und liKlammer ---------

    ' ---- bestimmte Spalten nicht importieren



    Columns("A:A").Select

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

        Semicolon:=False, Comma:=True, Space:=False, Other:=True, OtherChar:= _

        "(", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 9), Array(5, 1), _

        Array(6, 9), Array(7, 1), Array(8, 9), Array(9, 1), Array(10, 9), Array(11, 1), Array(12, 9) _

        , Array(13, 1), Array(14, 9), Array(15, 1), Array(16, 9), Array(17, 1)), _

        TrailingMinusNumbers:=True



    ' --- jetzt noch Zelle B1 löschen damit Überschriften richtig stehen -----

    Range("B1").Select

    Selection.Delete Shift:=xlToLeft

End Sub







Code eingefügt mit Syntaxhighlighter 4.0









Nachfolgend mein Ergebnis mit deinem letzten Posting zusammen.

Welches ist das "richtige" Ergebnis. Ich dachte du willst die (xx%) Einträge weg haben!!!!

????
Neandr	            //gW
Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.11 - Build ID: 2007112718; 
TB version  2.0.0.9 (20071031)
jre6.0.04; MS Office 10 
Intel Pro/W LAN 2100 3B Mini PCI with WAP; 1&1 DSL mit Fritz!Box 7050/7150



geschrieben von


Anhang
Bild 9681 zu Artikel 472746

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: