Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Export in CSV mit bestimmter Spaltenanzahl

Forumthread: 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
Anzeige

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
Anzeige
;

Forumthreads zu verwandten 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
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
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
*. csv mit excel dateinamen speichern
eric1

Hallo,
komm hier nicht weiter, die *.xls oder *.xlsx werden geöffnet, dann werden sie in verschieden Formaten und Verzeichnissen gespeichert, die CSV soll Dateiname und Datum/Uhrzeit als Dateiname bekommen, Code wie folgt :
Public Sub exceldateioeffnen() Const LW = "F:\" Const Pfad =...
03.03.2009 22:52:42
Thread-ID: 1056138
2 Beiträge
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 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
Anzeige
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
Anzeige
Textzeichen in einer Zelle ersetzen
Hugo

Hallo zusammen
Ich habe zB folgenden Text in einer Zelle:
Die vorgenannte Email-Adressse$muss zwar bei jeder Nachricht im$Forum angegeben werden, sie wird$aber vom Formular aus nicht$weitergegeben
Die $-Zeichen stellen den Umbruch dar.
Ich möchte nun jedes Zweite $-Zeichen in de...
09.12.2010 20:37:26
Thread-ID: 1190853
12 Beiträge
Anzeige
Uhrzeit mit Text einsetzen
walter

Hallo zusammen,
ich habe gerade dies für das einsetzen der Uhrzeit gefunden:
(von Hajo 2003) Private Sub UserForm_Initialize() Dim ByI As Byte For ByI = 1 To 23 ' Stunden eintragen ComboBox1.AddItem ByI Next ByI For ByI = 1 To 59 ' Minute eintragen ComboBox2....
24.01.2011 14:21:02
Thread-ID: 1197036
8 Beiträge
CSV Datei , mit Semikolon speichern
rene

Hallo zusammen
ich versuche eine CSV datei aus Excel heraus mit lotus notes zu versenden , funktioniert soweit auch , Probleme habe ich damit das csv file als semikolon getrennt zu speichern. Hat jemand eien Idee wie der Code geändert werden sollte?
Sub send() Dim stFileName As String...
23.10.2012 12:33:09
Thread-ID: 1283435
5 Beiträge
Anzeige
Zahlenformat Fließkomma mit Textzusatz
Barbara

Einfache Frage, doch keine Lösung in Sicht, nachdem ich fast alle Kombinationen durchprobiert habe.
Eine Zelle soll so formatiert sein, dass sie so aussieht:
Wert: 12
Aussehen: 12 Stk
Wert 12,3
Aussehen: 12,3 Stk
Wert 12,37741
Aussehen: 12,37741 Stk
Was stelle...
29.10.2012 11:26:40
Thread-ID: 1284290
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige