Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten von CSV Datei tauschen

Forumthread: Spalten von CSV Datei tauschen

Spalten von CSV Datei tauschen
09.01.2018 22:25:53
CSV
Guten Abend alle,
ich habe leider ein kleines Problem mit zwei Spalten in meiner CSV Datei. Und zwar sind die Spalten in denen das Anfang- und Enddatum stehen bei manchen Datensätzen (2 von 1000 Datensätzen) um zwei Spalten verschoben (siehe Bild).
Gibt es eine Möglichkeit das ich beim importieren der Werte...
A) Das Datum an seine vorgesehene Position rücken oder
B) die Zeilen in denen das Datum an der falschen Stelle stehen löschen kann?
Userbild
Es wäre wirklich super wenn mir jemand da behilflich sein kann. Die falsche Position stört alle anderen Verknüpfungen und ich kann das Problem nicht lösen außer jedes mal per Hand alles rauszulöschen.
Gruß Marco
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten von CSV Datei tauschen
09.01.2018 22:32:18
CSV
Dafür müßtest du schon den code zum Importieren posten.
AW: Spalten von CSV Datei tauschen
09.01.2018 23:03:51
CSV
Der Code der die Werte aus der CSV Datei kopiert ist aus diesem Forum. Die Filter, das entfernen der Duplikate sowie das Kopieren der Werte in ein anderes Tabellenblatt sind von mir.
Beispieldatei:
https://www.herber.de/bbs/user/118834.xlsm
Anzeige
AW: Spalten von CSV Datei tauschen
09.01.2018 23:05:28
CSV
Hast du auch eine (nicht zu große) .csv?
AW: Spalten von CSV Datei tauschen
09.01.2018 23:08:24
CSV
Nein ich habe dir mal eine Datei mit fake Daten geschickt was anderes darf ich leider nicht rausgeben
AW: Spalten von CSV Datei tauschen
09.01.2018 23:10:12
CSV
Dann kann ich nur ein makro schreiben, was die Daten nacträglich korrigiert, statt sie beim Import korrekt einzulesen.
OK?
Anzeige
AW: Spalten von CSV Datei tauschen
09.01.2018 23:11:45
CSV
Wann hast du sie geschickt?
AW: Spalten von CSV Datei tauschen
09.01.2018 23:28:12
CSV
Ich habe dir gerade eine CSV Datei per E-Mail geschickt weil ich die alte nicht mehr finde.
Gruß Marco
AW: Spalten von CSV Datei tauschen
09.01.2018 23:32:58
CSV
Ist Spalte 15+16 normalerweise leer und wenn die daten fälschlicherweise in 15+16 sind, sind dann 13+14 leer?
Anzeige
AW: Spalten von CSV Datei tauschen
09.01.2018 23:37:18
CSV
Spalte 15+16 sind normalerweise immer leer und wenn die Daten fälschlicherweise in 15+16 sind, sind in 13+14 (diese werte dürfen aber überschrieben oder gelöscht werden weil sie uninteressant sind) also daneben auf werte drin.
AW: Spalten von CSV Datei tauschen
09.01.2018 23:49:37
CSV
Diese Sub in ein modul und am ende des imports (vor end sub) aufrufen 
Public Sub correct()
Dim z, a
For z = 2 To 20000 'max 20.000 Zeilen und ab Zeile 2 - ggf anpassen
With Tabelle1'Tabellenbezeichnung lt. Projektfenster- nicht der Name, der von Dir  _
eingegeben wurde - eingeben
a = .Cells(z, 1)
If .Cells(z, 1)  "" Then
If .Cells(z, 15)  "" Then
.Cells(z, 13) = .Cells(z, 15)
.Cells(z, 15) = ""
End If
If .Cells(z, 16)  "" Then
.Cells(z, 14) = .Cells(z, 16)
.Cells(z, 16) = ""
End If
End If
End With
Next z
End Sub

Anzeige
AW: Spalten von CSV Datei tauschen
10.01.2018 00:15:24
CSV
Hm es funktioniert nicht. Werden die Daten in der CSV Datei getauscht? Wenn nicht dann liegt es vll daran das ich nicht alle Spalten importiere oder ich habe Call Correct an die falsche stelle gesetzt. Funktioniert es denn in der Testdatei die ich gepostet habe?
AW: Spalten von CSV Datei tauschen
10.01.2018 00:28:57
CSV
Nicht in der csv, sondern da, wo die daten hingeschrieben wurden und die fehler auftauchen.
Deine csv kann ich nicht direkt öffnen, nur über Import aus csv im Daten-Menü.
Und genau da klappt es auch (an für sich müsste es egal sein wo, hauptsache Datum in Spalte 15+16 statt 13+14).
Anzeige
Danke für die Hilfe
10.01.2018 14:13:01
Marco
Hallo Onur,
ich habe es leider nicht so hinbekommen wie du es gemeint hast. Das liegt aber daran das der Code den ich aus dem Forum hier habe die Spalten in der CSV Datei in einer Funktion vorsortiert. Deswegen habe ich deinen Code genommen und ihn in meinen bestehend eingebaut. Und es schein zu funktionieren.
Daher vielen Dank.
Könntest du mir bitte vielleicht bei meinem anderen Problem mit den Duplikaten auch weiterhelfen?
Private Function Erase_Unwanted_Data(Ws As Worksheet) As Boolean
Dim lastCol As Long, zeile As Long, PosAt1 As Integer, PosAt2 As Integer, sText As String
With Ws
'In Spalte 1 die Daten bis einschlielich zweitem @ Symbol entfernen
For zeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
PosAt2 = 0
sText = .Cells(zeile, 1).Text
PosAt1 = InStr(1, sText, "@")
If PosAt1 > 0 Then
PosAt2 = InStr(PosAt1 + 1, sText, "@")
End If
If PosAt2 > 0 Then
.Cells(zeile, 1).Value = "" & Mid(sText, PosAt2 + 1)
End If
'Onur dein Code Teil
If .Cells(zeile, 1)  "" Then
If .Cells(zeile, 15)  "" Then
.Cells(zeile, 13) = .Cells(zeile, 15)
.Cells(zeile, 15) = ""
End If
If .Cells(zeile, 16)  "" Then
.Cells(zeile, 14) = .Cells(zeile, 16)
.Cells(zeile, 16) = ""
End If
End If
Next
'nicht benötigte Spalten werden gelöschen. Erhalten bleiben folgende 1, 3, 4, 6, 8, 9,  _
10, 12 und 13
lastCol = .UsedRange.Column + .UsedRange.Columns.Count - 1
If lastCol > 13 Then
.Range(.Columns(14), .Columns(lastCol)).Delete
End If
.Columns(11).Delete
.Columns(7).Delete
.Columns(5).Delete
.Columns(2).Delete
'neue Spalten Reihenfolge aufgeführt sein: 1, 3, 6, 4, 13, 8, 9, 10, 12
.Columns(9).Cut
.Columns(5).Insert
.Columns(4).Cut
.Columns(3).Insert
End With
End Function

Anzeige
AW: Danke für die Hilfe
10.01.2018 20:40:17
onur
Welche Probleme mit welchen Duplikaten denn?
;

Forumthreads zu verwandten Themen

per VBA prn-Datei erstellen
Ron

hallo,
weiß jemand von euch wenn ich per makro eine Exceltabelle als prn-Datei ausdrucken will wie ich diese automatisch mit einem vorher ermittelten Namen abspeichern kann?
Danke
Gruß Ron
19.11.2008 17:22:00
Thread-ID: 1026126
5 Beiträge
Anzeige
CSV-Datei öffnen Daten schreiben!?
Tobsen

Hallo
Habe in einer Function folgendes:
Open "C:\test\werte.csv" For Append As #1
...
In der Datei werden einmal am Tag Werte geschrieben. In der ersten Zeile sollen Datum, Erklärung Wert1,...
usw. stehen. Dann ab der zweiten Zeile die Werte.
Um die Werte in die Datei z...
27.01.2009 14:57:00
Thread-ID: 1044256
11 Beiträge
Daten aus csv in Tabelle
Daniel

Hallo zusammen,
mein Problem besteht darin, ich möchte aus einem festen Speicherort (z.B. C:/) 9 csv Dateien (gleicher Aufbau und immer gleich benannt) in eine bestehende Excel Datei (Auswertung.xls), in ein bestehendes Tabellenblatt (Menge) in die Spalten B - Inhalt der csv Datei 1, in Spa...
26.06.2009 07:48:35
Thread-ID: 1084276
2 Beiträge
Makro per VBA in Datei erstellen
Marko

Hallo zusammen,
folgendes Problem:
ich habe eine Datei mir mehreren Tabellenblätter die Formeln enthalten.
Per VBA exportiere ich die Datei und enferne dabei die vorhandenen Makros sowie ersetzte die Formeln durch Werte.
Nun würde ich abschließend in den Export ein neues Makro i...
01.07.2009 17:22:37
Thread-ID: 1085801
3 Beiträge
Anzeige
csv-Datei erstellen mit Semikolon als Trennzeichen
Marika

Hallo zusammen,
ich muss aus Messwerten eine csv Datei erstellen, wo ein Semikolon das Spaltentrennzeichen und ein Komma als Dezimaltrennzeichen hinterlegt ist.
Das bekomme ich von Hand auch hin, indem ich Speichern Unter - Dateityp csv (MSDOS) verwende.
Ich möchte das ganze aber au...
18.08.2009 11:10:12
Thread-ID: 1096657
3 Beiträge
Wert aus csv datei auslesen
Stefan

Hallo,
ich habe eine csv Datei. Die erste Spalte ist die ARTIKEL-ID, welche einen Artikel eindeutig festlegt. Spalte zwei ist der Preis für selbigen.
In einer anderen Datei sind diese Artikel teilweise mehrfach angelgt als z.b. ARTIKEL-ID 12345-a1 und 12345-b1. Jedoch müssen diesen Arti...
05.10.2009 15:01:08
Thread-ID: 1107230
22 Beiträge
Anzeige
csv Datei auslesen
René

Hallo liebe Excelprofis, ich habe ein rießiges Problem. In einer csy werden mit einem Barcodescanner Daten eingeschrieben. Diese übertrage ich dann über Activesync in den Windows Ordner MyDocuments und danach in einen öffentlich Netzwerkordner. Das klappt so weit auch super. Nun ist es aber so...
20.01.2010 22:33:06
Thread-ID: 1131532
6 Beiträge
csv Datei nach Auslesen löschen
René

Hallo liebe Excelgemeinde,
habe ein kleines Problem, ich scanne mit einem Barcodescanner Strichcodes ein und übertrage die Scannerdaten mit ACTIVESYNC in eine csv Datei. Dann habe ich ein makro aufgezeichnet das die Daten in der csv Datei ausliest und diese in eine Exceltabelle überträgt. N...
27.01.2010 21:13:10
Thread-ID: 1133574
5 Beiträge
Anzeige
Xls Dateien erstellen aus Zellinhalten
Klaus

Hi,
ich habe in einem Sheet in einer Spalte ca. 50 Einträge. Dabei soll es sich um die Namen von Excel-Files handeln, auf die mittels SVerweis zugegriffen werden soll. Ich habe nun eine Excel-Vorlage erstellt und möchte auf dieser basierend 50 Dateien in einem bestimmten Ordner erstellen, w...
08.07.2010 15:44:35
Thread-ID: 1166170
4 Beiträge
csv-Datei erstellen
Herbert

Hallo,
was mache ich hier falsch? Wenn ich eine Tabelle manuell als csv-Datei speichere, sind die Daten hinterher in Spalten aufgeteilt, so wie es sein soll. Wenn ich das gleiche dann per VBA mache, werden die Daten nicht in die Spalten aufgeteilt, sondern stehen alle in einer Spalte, mit k...
26.01.2011 16:01:29
Thread-ID: 1197460
3 Beiträge
CSV Datei erstellen
Chris

Hallo zusammen,
folgendes Makro exportiert das Sheet Masterliste als CSV Datei auf dem Desktop. Das tut es auch.
Zusätzlich wird aber das Register "MASTERLISTE" in der Originaldatei in "KalenderCSV" umbenannt.
Weiss einer wieso?
Das Makro soll nur die Masterliste als CSV mit Ko...
03.11.2011 09:13:29
Thread-ID: 1236382
2 Beiträge
csv Datei erstellen
Chris

Hallo zusammen,
das Makro speichert mir das sheet Masterliste als csv-datei auf dem Desktop. Zusätzlich ändert mir es das Sheet "Masterliste" in der Originaldatei in "KalenderCSV" um. Wie kann ich letzteres umgehen?
Sheets("Masterliste").SaveAs Filename:=Environ("UserProfile") & "\D...
03.11.2011 09:14:54
Thread-ID: 1236383
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige