Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
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
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in Spalten per VBA

Forumthread: Text in Spalten per VBA

Text in Spalten per VBA
03.07.2018 12:04:44
arek
Hallo zusammen,
ich habe eine CSV Datei wo in Spalte A in den jeweiligen Zeilen der Text (mit Punkten getrennt) steht und ich möchte die "Text in Spalten"-Formel durch einen Button ersetzen, den man drückt und anschließend wird das ganze in einer neuen Datei auf dem Desktop in der gewünschten Form abgespeichert.
Könnt ihr mir hier weiterhelfen mit einem VBA-Code?
Braucht ihr noch weitere Informationen?
Vielen Dank im Voraus!
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Spalten per VBA
03.07.2018 14:17:03
Bernd
Servus arek,
nach folgendem Prinzip sollte es funktionieren:

Sub csv()
Dim CSV_Pfad As String
Dim Ausgabe As String
Dim WB As Workbook
Dim strSrcFile$, strTmp$, strDelimit$
Dim intFile%, i&, arrSrc
Application.DisplayAlerts = False
Set WB = Workbooks.Add
CSV_Pfad = Application.GetOpenFilename(FileFilter:="CSV-Dateien(*.csv), *.csv", Title:= " _
CSV-Datei zum einlesen")
If CSV_Pfad = "" Or CSV_Pfad = "Falsch" Then
MsgBox "Bitte eine CSV-Datei auswählen"
Exit Sub
End If
i = 0
strDelimit = "." ' Trennzeichen der CSV-Datensätze
intFile = FreeFile()
Open CSV_Pfad For Input As #intFile
Do While Not EOF(intFile)
Line Input #intFile, strTmp
arrSrc = Split(strTmp, strDelimit)
Cells(i + 1, 1) = arrSrc(0)
Cells(i + 1, 2) = arrSrc(1)
Cells(i + 1, 3) = arrSrc(2)
Cells(i + 1, 4) = arrSrc(3) ' nahezu beliebig erweiterbar...
i = i + 1
Loop
Close
Do
Ausgabe = InputBox("Bitte neuen Dateinamen angeben:", "Ausgabedatei")
Loop While Ausgabe = "" Or Ausgabe = "Falsch"
ChDir "C:\Users\bieberbe\Desktop"
WB.SaveAs Filename:="C:\Users\Username\Desktop\" & Ausgabe & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ' Desktop-Pfad noch  _
anpassen
WB.Close False
Set WB = Nothing
Application.DisplayAlerts = True
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
@viele meinungen: spaltenangaben in vba
Herbert

hallo,
wie macht ihr denn das: wenn ich in einem vba-code spaltenangaben mache, und in der tabelle dann spalten einfügen oder entfernen muss, muss ich alle spaltenangaben im code manuell ändern. und wehe, ich vergesse das, dann stimmt das ganze makro nicht mehr.
beispiel:
With Sheet...
08.10.2008 19:41:00
Thread-ID: 1015156
6 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
csv-Datei öffnen + Daten gleich in Spalten
Hermann

Hallo,
auf meinem alten PC konnte ich csv-Dateien öffnen, so dass die durch Kommata getrennte Texte gleich in Spalten einsortiert wurden. Dazu öffnete ich zuerst eine EXCEL-datei und klickte dann die csv-datei an.
Das geht jetzt bei meinem neuen PC nicht auf Anhieb. Warum?
Wie kann...
14.11.2008 14:42:00
Thread-ID: 1024599
7 Beiträge
Text autom. in Excel-Spalten einsortieren
Annalena49

Hallo,
habe eine (für mich) ungewöhnliche Datendatei, ähnlich CSV ist aber keine CSV. Hier ein Beispiel einer Excel-Zeile:
10153-8158 10194 1023007 1025250000 102950600 1030LP 1032EUR 1029880000 1032EUA 11010100001 1102UM 110105586724 1102KN 11019783815860847 1102EN 11013815860849 110...
05.12.2008 20:54:02
Thread-ID: 1030586
3 Beiträge
Anzeige
Linien, wenn Text in Zeile - VBA
Wolfgang

Hallo,
in einer Arbeitsmappe hatte ich bislang bis ca. Zeile 6000 für die Spalten A-Q das Format für die Linien direkt über Zellenformat vorgegeben. Das macht die Datei wohl doch relativ fett.- Gäbe es eine Möglichkeit, evtl. über VBA zu steuern, dass ausschließlich die Zeilen, in denen au...
07.12.2008 09:58:34
Thread-ID: 1030803
2 Beiträge
Spalten in VBA anpassen
Markus

Hallo zusammen,
eine vermutlich blöde Frage.
Ich lese aus einem Anwendungsfenster Daten in bestimmte Zellen aus. Wenn alle Daten (je nach Anwendung bis zu 30 Spalteneinträge) ausgelesen sind, erfasse ich die Zeit mit ActiveCell.Offset(0, 10).Value = Format(Date & " " & Time)
10.12.2008 20:45:20
Thread-ID: 1031825
9 Beiträge
Filter - Text in Spalten
LD

Hallo,
habe hier eine Adressliste aus welcher ich nur die email adr. rausziehen will.
Habe schon einen Filter angewendet um alle Zeilen mit @ anzuzeigen, allerdings
steht vor den adr. "email an" und ich bekomme das nicht weg. Wenn ich Text
in Spalten mache, sind alle anderen Zei...
13.03.2009 13:50:22
Thread-ID: 1059860
6 Beiträge
Text in Spalten Makro
Steffen

Guten Morgen!
folgendes problem: in Spalte E stehen datumswerte die aus einer anderen datei kopiert wurden,diese datumswerte werden mit einer bedingten formatierung belegt .da diese nach dem kopieren nicht als datumswert in der spalte stehn ,hab ich ein text in spalten makro aufgezeichnet s...
31.03.2009 12:08:50
Thread-ID: 1065568
3 Beiträge
Text in Spalten
Dieter

Hallo zusammen,
ich habe mit dem Recorder ein Makro aufgezeichnet,
um Daten mit der Funktion "Text in Spalten zu trennen.
Das Makro sieht so aus....
Sub DatenSpalten() Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, Con...
11.04.2009 14:30:27
Thread-ID: 1068301
6 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