Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1772to1776
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
1772to1776
1772to1776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

csv-Datei mit Zahlen, Semikolon als Tr.

csv-Datei mit Zahlen, Semikolon als Tr.
06.08.2020 15:15:42
Christian
Hallo noch einmal,
bezogen auf die Antwort von Franz im Thread
https://www.herber.de/forum/cgi-bin/callthread.pl?index=1774416#1774437
müsste ich den CSV-Bereich (A5:AB25) der ausgewählten Datei - eingegrenzt - einlesen und auch wieder in einen bestimmten Bereich des Tabellenblattes "Blatt 2" (ab A11) wieder einfügen.
Kann mir das bitte noch jemand in den 1. Code ergänzen?
Viele Grüße und Danke für Eure Unterstützung
Christian

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: csv-Datei mit Zahlen, Semikolon als Tr.
06.08.2020 21:11:44
fcs
Hallo Christian,
versuche dein Glück mal mit dieser Variante - achte auf die Schreibweise der Blattnamen!!!
LG
Franz 
Private Sub CommandButton2_Click()
Dim strFileName As String, lngLast As Long
Dim wkbCSV As Workbook
FilePath = "C:\Ablage\"  ' anpassen
Filename = "*" & ThisWorkbook.Worksheets("Blatt1").Range("A1") & "*"  'anpassen
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Datei wählen"
.InitialFileName = FilePath & Filename
.Filters.Add "CSV-Dateien", "*.csv", 1
.Filters.Add "Alle-Dateien", "*.*", 2
If .Show = -1 Then
strFileName = .SelectedItems(1)
End If
End With
If strFileName  "" Then
Application.ScreenUpdating = False
'CSV-Datei schreibgeschützt öffnen, mit Parameter Local:=True werden lokales _
Trennzeichen(;) und Dezimalzeichen (,) verwendet.
Set wkbCSV = Application.Workbooks.Open(strFileName, ReadOnly:=True, Local:=True)
With ThisWorkbook.Worksheets("Blatt 2")
wkbCSV.Worksheets(1).Range("A5:AB25").Copy
.Range("A11").PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
wkbCSV.Close savechanges:=False
End If
End Sub

Anzeige

305 Forumthreads zu ähnlichen Themen

CSV Trennzeichen Semikolon
Ralf

Hallo liebes Excelforum,
ich bin schier am verzweifeln mit meinem CSV Semikolon Problem. eigentlich alt bekannt, ich kriegs aber nicht hin. Hab auch schon in der Registriy wie beschrieben den Eintrag wegen dem US-Standard ergänzt... Der scheint aber nur für Excel2000 gültig zu sein.
Ich...
30.08.2008 16:09:22
Thread-ID: 1006065
16 Beiträge
Anzeige
*. 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
CSV File mit 2 Semikolons am Schluss
Flo

Hallo, ich habe folgendes Problem:
Ich muss eine normale Tabelle als CSV-File Exportieren. Dass sollte denk ich mit SaveAs ja kein Problem sein, nur müssen am Ende jeder Zeile zum Abschluss 2 Semikolons stehen, da das ganze dann in eine externe DB geladen wird und das dort Bedingung ist. Le...
29.04.2009 10:49:13
Thread-ID: 1071820
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
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
csv mit semikolon temporär erstellen + verschicken
Peter

Hallo,
ich möchte eine csv-Datei temporär erstellen und per outlook verschicken, Trennzeichen muss ein Semikolon sein. Habe folgenden Code (Auszug), aber leider bekomme ich immer ein Komma als Trenner:
'CSV-Datei versenden
Dim strMailEmpfaenger As String
i = Application.ActiveWo...
29.09.2010 11:52:37
Thread-ID: 1179878
4 Beiträge
csv mit Semikolon erzeugen
sabrina

Wie kann ich aus einem Tabellenblatt eine csv-Tabelle mit Semikolons erzeugen?
29.05.2002 10:48:38
Thread-ID: 124498
6 Beiträge
CSV mit Komma und Texterkennung "
Vilim

Ich muss eine Excel-Tabelle als CSV speichern, allerdings nimmt Excel immer automatisch ein Semikolon als Delimiter, ich brauche aber zwingend ein Komma! Ebenso brauche ich ein " als Terterkennungszeichen. Den Umweg über Access möchte ich nicht gehen, da es sich nicht um einen Einzelfall handel...
07.06.2002 14:14:23
Thread-ID: 126923
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
15
2
1
2
6
2
2
3
5
2
4
4
2
1
1
15
2
5
1
1
1
6
3
1
1