|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Excel CSV Output bis 900 Zeilen |
26.09.2018 09:00:44 |
Markus |
|
|
|
26.09.2018 09:01:53 |
Gast16843 |
|
|
|
26.09.2018 09:16:59 |
Gast99813 |
|
|
|
26.09.2018 12:46:36 |
Markus |
|
|
|
26.09.2018 12:52:49 |
Gast99789 |
|
|
|
26.09.2018 14:16:54 |
Markus |
|
|
|
26.09.2018 16:18:34 |
Gast80472 |
|
|
|
28.09.2018 11:39:01 |
Markus |
|
|
|
28.09.2018 11:40:17 |
Markus |
|
|
|
28.09.2018 11:42:07 |
Markus |
|
|
|
28.09.2018 11:42:07 |
Markus |
|
|
|
28.09.2018 11:42:08 |
Markus |
|
|
|
28.09.2018 11:42:09 |
Markus |
|
|
|
28.09.2018 11:42:09 |
Markus |
|
|
|
28.09.2018 11:42:11 |
Markus |
|
|
|
28.09.2018 14:39:41 |
Gast91576 |
|
|
Von:
Markus |
Datum:
26.09.2018 09:00:44 |
Views:
824 |
Rating:
|
Antwort:
|
Thema:
Excel CSV Output bis 900 Zeilen |
|
Hallo zusammen,
ich bin auf der Suche nach einem Code welcher mir aus einer Excel Datei mit ca. 30.000 Zeilen jeweils nach 900 Zeilen eine separate CSV Datei erstellt. Dabei hatte ich bisher einige Stolpersteine wie z.B. das Trennzeichen "," oder ";" - also ich muss schon auf Semikolon bleiben, damit die spätere CSV die Zellentrennung beibehält. Dann soll das Makro im Prinzip die Tabelle abarbeiten bis keine Zeile mehr da ist. Immer 900 Zeilen markieren -> Export als CSV. Fertig.
Hier mal mein bisheriger (gegoogelter) Code - die Eingabefenster müssen nicht sein - die waren jetzt halt dabei:
Sub Exportiere_Bereich_in_CSV()
Dim bisZeile As Long, zeile As Long
Dim bisSpalte As Integer, Spalte As Integer
Dim Trennzeichen As String, ExportBereich As String, Ausgabe As String
Dim NewFileName
Close #1
NewFileName = Application.GetSaveAsFilename(fileFilter:="CSV Files (*.csv), *.csv")
If NewFileName <> False Then
Open NewFileName For Output As #1
' Hier Trennzeichen eingeben
Trennzeichen = InputBox("Bitte Trennzeichen wählen")
If Trennzeichen = "" Then
'Standard-Trennzeichen Semikolon
Trennzeichen = ","
End If
'Zu exportierender Bereich
ExportBereich = InputBox("Bitte den zu exportierenden bereich eingeben: ", "C:\Users\mditzel\Documents", _
ActiveSheet.UsedRange.Address(False, False))
If ExportBereich = "" Then
'Wenn leer, dann benutzten Bereich exportieren
ExportBereich = ActiveSheet.UsedRange.Address
End If
bisZeile = ActiveSheet.Range(ExportBereich).Rows.Count + ActiveSheet.Range(ExportBereich) _
.Row - 1
bisSpalte = ActiveSheet.Range(ExportBereich).Columns.Count + ActiveSheet.Range( _
ExportBereich).Column - 1
For zeile = ActiveSheet.Range(ExportBereich).Row To bisZeile
Ausgabe = ""
For Spalte = ActiveSheet.Range(ExportBereich).Column To bisSpalte
Ausgabe = Ausgabe & ActiveSheet.Cells(zeile, Spalte).Value
If Spalte <> bisSpalte Then
Ausgabe = Ausgabe & Trennzeichen
End If
Next Spalte
Print #1, Ausgabe
Next zeile
Close #1
End If
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Excel CSV Output bis 900 Zeilen |
26.09.2018 09:00:44 |
Markus |
|
|
|
26.09.2018 09:01:53 |
Gast16843 |
|
|
|
26.09.2018 09:16:59 |
Gast99813 |
|
|
|
26.09.2018 12:46:36 |
Markus |
|
|
|
26.09.2018 12:52:49 |
Gast99789 |
|
|
|
26.09.2018 14:16:54 |
Markus |
|
|
|
26.09.2018 16:18:34 |
Gast80472 |
|
|
|
28.09.2018 11:39:01 |
Markus |
|
|
|
28.09.2018 11:40:17 |
Markus |
|
|
|
28.09.2018 11:42:07 |
Markus |
|
|
|
28.09.2018 11:42:07 |
Markus |
|
|
|
28.09.2018 11:42:08 |
Markus |
|
|
|
28.09.2018 11:42:09 |
Markus |
|
|
|
28.09.2018 11:42:09 |
Markus |
|
|
|
28.09.2018 11:42:11 |
Markus |
|
|
|
28.09.2018 14:39:41 |
Gast91576 |
|
|