AW: CSV file hat zu grosse Dateigroesse!?
04.01.2018 19:05:21
Jürgen
Ok, es hat mir keine Ruhe gelassen...und habs gefunden, den Bock.
Beim öffnen mit wordpad kam es tatsächlich zu Tage:
durch ein Script werden Semikolon [;] Zeichen für Leerfelder produziert. Die hängt es dann einfach dran, ohne dass man die im Tabellenblatt sieht.
Wie da Abhilfe zu schaffen ist, kA. Aber wenigstens weiss ich woher es kommt.
Hier in WordPad vollgestopft:
Hier in Wordpad nachdem die CSV nochmals geöffnet und gespeichert wurde (dann fliegt alles raus, was unnütz ist), so auch die überflüssigen ";":
Hier das Script, welches ich in Verdacht habe (vielleicht liest es Werner und könnte helfen; ist ganz frisch aus seiner Feder). Es betrifft die Spalten J, K und L. Dort sammeln sich die Semikolons an:
Public Sub Zellformeln()
Dim loLetzte As Long
With Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
'Formeln Spalte B
.Range(.Cells(3, 2), .Cells(loLetzte, 2)).FormulaLocal = _
"=WENN(ANZAHL(C3:D3)=2;--LINKS(F3;FINDEN(""_"";F3)-1);"""")"
'Formeln durch Werte ersetzen, wenn nicht gewünscht/benötigt dann löschen
.Range(.Cells(3, 2), .Cells(loLetzte, 2)).Value = _
.Range(.Cells(3, 2), .Cells(loLetzte, 2)).Value
'Formeln Spalte H
.Range(.Cells(3, 8), .Cells(loLetzte, 8)).FormulaLocal = _
"=WENN((C3="""")+(D3="""");"""";(""../wp-content/audio-database/" _
& """&WECHSELN(F3;"".aup"";""/"")))"
'Formeln durch Werte ersetzen, wenn nicht gewünscht/benötigt dann löschen
.Range(.Cells(3, 8), .Cells(loLetzte, 8)).Value = _
.Range(.Cells(3, 8), .Cells(loLetzte, 8)).Value
'Formeln Spalte I
.Range(.Cells(3, 9), .Cells(loLetzte, 9)).FormulaLocal = _
"=WENN(((C3="""")*(D3=""""))+((C3 ""; WENN(ISTZAHL(FINDEN("".mp3"";I3));""-"";""""))"
'Formeln durch Werte ersetzen, wenn nicht gewünscht/benötigt dann löschen
.Range(.Cells(3, 1), .Cells(loLetzte, 1)).Value = _
.Range(.Cells(3, 1), .Cells(loLetzte, 1)).Value
'Formeln Spalte G
.Range(.Cells(3, 7), .Cells(loLetzte, 7)).FormulaLocal = _
"=WENN(ISTZAHL(FINDEN("".aup"";E3));"" "";WENN(ISTZAHL(FINDEN("".mp3"";I3));""[Play
]"";""""))"
'Formeln durch Werte ersetzen, wenn nicht gewünscht/benötigt dann löschen
.Range(.Cells(3, 7), .Cells(loLetzte, 7)).Value = _
.Range(.Cells(3, 7), .Cells(loLetzte, 7)).Value
End With
End Sub
Danke & Gruss,
Juergen
