Excel VBA-Forum - Das Forum zu Microsoft Excel VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Copy Worksheet Range in neues Workbook als csv	21.11.2022 22:38:11	Ulli
Copy Worksheet Range in neues Workbook als csv	21.11.2022 23:09:07	xlKing
Copy Worksheet Range in neues Workbook als csv	22.11.2022 10:05:03	ulli
Copy Worksheet Range in neues Workbook als csv	22.11.2022 12:08:59	ulli
Copy Worksheet Range in neues Workbook als csv	22.11.2022 14:19:09	ulli
Copy Worksheet Range in neues Workbook als csv	23.11.2022 15:01:28	ulli
Copy Worksheet Range in neues Workbook als csv	23.11.2022 16:57:24	ulli

Ansicht des Beitrags:

Von:
ulli

Datum:
22.11.2022 14:19:09

Views:
179

Rating:

Antwort:

Thema:
Copy Worksheet Range in neues Workbook als csv

Hi,

ich hab es gefunden. Mein Gewurschtel ist zu finden unter www.max-mg.de

Nochmals vielen Dank für Deine Hilfe
Ulli / Leopoldi

Option Explicit
                                ' Projekt Buecherlisten per ISBN-Scan´s erstellen für BOOKcook- Import
Sub RangetoCSV_Export()         ' Speichert markierte Zellbereiche in eine Semikolongetrennte *.CSV-Datei
                                
Dim Rng As Range
Dim WorkRng As Range            'Markierter Zellbereich aus Kopfzeilen + Datenzellen
Dim xFile As Variant
Dim CSVName As String
CSVName = "CSV-Transfer3"        'Dateiname der zu erstellenden CSV

On Error Resume Next
Set WorkRng = Application.Selection
Application.ActiveSheet.Copy        'Kopiert in neues Workbook unter "Mappe_n)
Application.ActiveSheet.Cells.Clear 'löscht alle Zellen in neuer Mappe_n
WorkRng.Copy Application.ActiveSheet.Range("A1") 'Kopiert "Bereich/Range" ab A1 in Mappe_n

Application.ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & CSVName, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
Application.ActiveWorkbook.Close True
           
End Sub

Ihre Antwort

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:		Name:		Email:

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
Copy Worksheet Range in neues Workbook als csv	21.11.2022 22:38:11	Ulli
Copy Worksheet Range in neues Workbook als csv	21.11.2022 23:09:07	xlKing
Copy Worksheet Range in neues Workbook als csv	22.11.2022 10:05:03	ulli
Copy Worksheet Range in neues Workbook als csv	22.11.2022 12:08:59	ulli
Copy Worksheet Range in neues Workbook als csv	22.11.2022 14:19:09	ulli
Copy Worksheet Range in neues Workbook als csv	23.11.2022 15:01:28	ulli
Copy Worksheet Range in neues Workbook als csv	23.11.2022 16:57:24	ulli