Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1592to1596
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Export in CSV mit bestimmter Spaltenanzahl

Excel Export in CSV mit bestimmter Spaltenanzahl
22.11.2017 13:16:58
Christian
Guten Tag erstmal,
ich bin hier neu und habe schon einige interessante Beiträge und Hilfestellungen gefunden. Nun habe ich ein Problem wo ich dringend eure Hilfe benötige.
Ich habe eine Tabelle mit 18 Spalten ohne Spaltennamen (A - R).
In die Zellen dieser Spalten sollen Daten wie Nane, Telefonnummern udgl. eingetragen werden. Einige dieser Spalten bleiben aber leer. Nun benötige ich ein VBA Script mit dem ich diese 18 Spalten, wobei die Zeilen variabel sind, als CSV Semikolon (Strichpunkt;) getrennt, exportieren werden. Der Speicherpfad ist variabel und der Name dieser Datei muss als Präfix immer Stammdaten haben und als Suffix immer .V3 sein. Also zum Beispiel Stammdaten_aktuellesDatum.V3.csv.
Das aktuelle Datum sollte wenn möglich automatisch eingefügt werden.
Ich hoffe ich habe mich so ausgedrückt das ihr das versteht und bin froh über jede Hilfestellung von euch.
Vielen Dank schon mla im Voraus
Christian

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Export in CSV mit bestimmter Spaltenanzahl
22.11.2017 13:34:55
Michael
Hallo!
zB so (oder Du bemühst die Recherche mit vermutlich 100000 Versionen):
Sub a()
Const PRE$ = "Stammdaten_"
Const SUF$ = ".V3"
Dim WbQ As Workbook: Set WbQ = ThisWorkbook
Dim WsQ As Worksheet: Set WsQ = WbQ.Worksheets("Tabelle1") 'anpassen
Dim WbZ As Workbook, WsZ As Worksheet
Dim Pfad$
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Bitte Verzeichnis wählen"
.AllowMultiSelect = False
If .Show  -1 Then
MsgBox "Vorgang abgebrochen", vbInformation
Exit Sub
Else: Pfad = .SelectedItems(1) & "\"
End If
End With
Set WbZ = Workbooks.Add(xlWBATWorksheet)
Set WsZ = WbZ.Worksheets(1)
WsQ.UsedRange.Copy
WsZ.Cells(1, 1).PasteSpecial xlPasteValuesAndNumberFormats
WbZ.SaveAs Filename:=Pfad & PRE & Format(Date, "YYYYMMDD") & SUF, _
FileFormat:=xlCSV
WbZ.Close True
Set WbQ = Nothing: Set WsQ = Nothing
Set WbZ = Nothing: Set WsZ = Nothing
End Sub
Anpassen musst Du nur den Namen des Tabellenblatts, das exportiert werden soll (aktuell "Tabelle1"). Ist im Code gekennzeichnet.
LG
Michael
Anzeige
AW: Excel Export in CSV mit bestimmter Spaltenanzahl
22.11.2017 13:57:29
Christian
Hallo Michael,
hier werden Sie geholfen und das in einem Tempo - Respekt.
Vielen Dank für deine Hilfe. Ich hätte da noch ein paar kleine Fragen bitte. So wie ich dein Script verstehe muss ich den Bereich markieren den ich exportieren will. Da ich aber keine Kopfzeile odgl. habe sondern die Daten direkt in Zelle A1 beginnen ist das eventuell schwierig. Ich Habe User im Unternehmen, die nicht wirklich eine Affinität zu Computern oder Excel haben.
Ich habe genau 18 Spalten die exportiert werden müssen, dabei auch solche (Spalte R) die oftmals leer sind. Ich traue das den Usern nicht zu. Ich würde gerne immer genau 18 Spalten und beliebig viele Zeilen exportieren können. Kann ich diesen Bereich genau definieren?
Sorry das ich so kompliziert antworte
Vielen Dank für deine Hilfe
Christian
Anzeige
Du musst hier nix markieren...
22.11.2017 14:47:23
Michael
Christian ;-),
...exportiert wird immer der gesamte verwendete Zellbereich des Blattes, ob mit oder ohne Kopfzeile ist egal. Das Einzige was manuell gewählt werden muss ist der gewünschte Speicherpfad, dazu öffnet sich ein Dialog - aber Du hast ja geschrieben, dass Du "variable" Speicherorte wünschst.
Ich sehe aufgrund Deiner bisherigen Beschreibung die Notwendigkeit nicht den zu kopierenden Zell-Bereich spezifisch einzugrenzen.
LG
Michael

300 Forumthreads zu ähnlichen Themen

Text in Lotos einsetzen
Walter

Guten Morgen Fachfrauen u. Männer,
habe mal ein Makro vom Forum erhalten, für das automatische versenden Bereich aus Excel.
Das klappt soweit einwandfrei.
Nun möchte ich gern am Anfang die Anrede automatisieren z.b. Sehr geehrte Damen, (Zeilenumbruch)
sehr geehrte Herren,
Hi...
26.08.2008 11:25:52
Thread-ID: 1004731
12 Beiträge
Anzeige
Text in Namen ersetzen
Lorenz

Hallo!!
Ich suche einen Code mit dem man aus (in) benannten Formeln einen String austauscht.
Der String ist oft auch eine weitere benannte Formel.
Hat jemand ne Idee?
Gruss
Lorenz
20.01.2009 20:30:17
Thread-ID: 1041986
15 Beiträge
Formel und Text (Tage) einsetzen
Leon

Hi
Wie kann ich in einer Formel den Text (Tage) noch dazu schreiben:
Zelle A1/Zelle B2 gibt mir z.B Wert 39
Dahinter soll noch Tage stehen.
Kann mir Jemand helfen?
Gruß
Leon
06.02.2009 20:26:00
Thread-ID: 1047897
6 Beiträge
Anzeige
cursor am anfang eines textfeldes einer UF setzen
Holger

Hallo liebe Excelgemeinde,
ich versuche verzweifelt den cursor beim öffnen einer UF an den anfang einer Textbox zu plazieren und bekomme es nicht hin.
zu erklärung
in die textbox werden über userform_initialized daten geladen
textbox ist mit scrollbars versehen um daten ansehen...
10.03.2009 23:42:17
Thread-ID: 1058894
9 Beiträge
CSV Export Komma als Trennzeichen
Susi

Hallo,
ich habe folgendes Problem: Wenn ich Datei speichern unter sagen, als csv-Datei habe ich als Trennzeichen Semikolon. Zeichne ich das gleiche als Makro auf und lass es ausführen, habe ich Komma als Trennzeichen. Ich brauch aber Semikolon. In der Systemsteuerung ist als Listentrennzeic...
27.10.2009 23:05:38
Thread-ID: 1112635
3 Beiträge
CSV Format, Delimiter ; (Semikolon), n. Komma
Peter

Guten Tag
Ich möchte eine Datei im CSV Format speichern.
Das klappt mit folgender Codezeile:
.SaveAs SavePath & "\" & File, FileFormat:=xlCSV
allerdings ist der Delimiter ein Komma und nicht wie gewünscht ein Semikolon.
Wie kann das geändert werden?
Danke für jed...
28.12.2009 09:23:04
Thread-ID: 1126047
3 Beiträge
UF Textbox in das richtige Format setzen
Heinz

Hallo Leute
Ich teste jetzt schon ca.3 Stunden um UF Textboxen in das richtige Format zu setzen.
Ich möchte das man nur dasFormat zB. "08,50" oder "12,50" eingeben kann.
Könnte mir bitte jemand helfen ?
Gruß
Heinz
Private Sub txtMoAZvon_Exit(ByVal Cancel As MSForms.Retur...
05.01.2010 20:42:57
Thread-ID: 1127442
5 Beiträge
Textbox Cusor immer in die letzte Zeile setzen
Horst

Hey!
Ich habe eine Textbox (Multiline)
Die protokolliert mir die Ergebnisse verschiedener Makros.
Nun möchte ich aber das der Cursor immer automatisch an die letzte Zeile gesetzt wird.
Um immer gleich die aktuellste Textausgabe mitlesen zu können.
Aber wie erreiche ich das:...
31.03.2010 09:59:49
Thread-ID: 1149537
20 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
2
14
5
1
8
2
2
4
19
4
11
7
2
2
4
10
2
3
1
9
11
3
1
2