Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1472to1476
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
1472to1476
1472to1476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen trennen per VBA beim Speichern

Zellen trennen per VBA beim Speichern
15.02.2016 18:09:45
Heike
Hallo,
per Button speicher ich eine CSV Datei in "Daten.xls", in einem vorgegebenen Verzeichnis. Das klappt. Nun möchte ich, dass beim Speichern eine Spalte gesplittet wird. Die ersten 4 Ziffern bleiben stehen, der Text nach den Ziffern in eine neue Spalte. Eine genaue Beschreibung liegt in der Beispielmappe.
Die CSV-Datei lese ich jede Woche ein und kann unterschiedliche Zeilenanzahlen haben.
https://www.herber.de/bbs/user/103571.xlsx
Würde mich natürlich über Hilfe sehr freuen.
Vielen Dank.
Heike

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen trennen per VBA beim Speichern
16.02.2016 06:08:55
Raphael
Hallo Heike,
versuchs damit 

Option Explicit
Sub Trennen()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Mid(Cells(i, 8), 5, 4) = " ART" Then
Cells(i, 10) = Right(Cells(i, 8), Len(Cells(i, 8)) - 8) 'den Text minus die ersten  _
8 Zeichen schreiben
Cells(i, 8) = Links(Cells(i, 8), 4) ' die ersten 4 Zeichen schreiben
End If
Next i
End Sub
Gruess
Raphael

AW: Zellen trennen per VBA beim Speichern
16.02.2016 11:46:18
Heike
Hallo Raphael,
vielen Dank. Klappt "fast" perfekt :-) Aus dem "Links" habe ich Left gemacht. Soweit so gut. Aaaaber, dein Code überträgt den Text nur in die Spalte J wenn in H eine Nummer bzw ART steht. Ich möchte gerne, dass er immer den Text überträgt, somit steht in H entweder eine Nummer oder sie bleibt leer (blank).
Wäre super, wenn ich da weiterhin deine Hilfe bekommen würde. Dankeschön.
Heike

Anzeige
AW: Zellen trennen per VBA beim Speichern
17.02.2016 17:05:40
Raphael
Hallo Heike,
dann so 

Sub Trennen()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Mid(Cells(i, 8), 5, 4) = " ART" Then
Cells(i, 10) = Right(Cells(i, 8), Len(Cells(i, 8)) - 8) 'den Text minus die ersten  _
8 Zeichen schreiben
Cells(i, 8) = Links(Cells(i, 8), 4) ' die ersten 4 Zeichen schreiben
Else
Cells(i, 10) = Cells(i, 8)
Cells(i, 8) = ""
End If
Next i
End Sub

Klasse :-)
17.02.2016 23:11:54
Heike
Hallo Raphael,
das ist super, klappt perfekt. Ganz herzliches Dankeschön für deine Mühe.
Viele Grüße
Heike

81 Forumthreads zu ähnlichen Themen

Formelsuche Zelleninhalt trennen
Christian

Hallo,
ich bräuchte 3 Formel die mir einen Zelleninhalt trennen
...habs nie so mit der Finden-formel :-)
Zelleneintrag in A1 : 6 / 0  (6)
soll getrennt werden
B1:6
C1:0
D1:6
Es gibt nie Leereinträge!
Danke für Hilfe
06.10.2008 10:21:22
Thread-ID: 1014349
3 Beiträge
Anzeige
Teil bis zum ersten blank
walter

Moin moin,
ich habe Textfelder, xxxxxx yyy cc, wobei ich nur die ersten Zeichen mit zum ersten Blank per Teil() separieren möchte.
Kann mir jemand helfen und sagen, wie ich die Formel aufbauen muß, sodaß der Extract mit zum ersten balnk verläuft ?
Danke im Voraus
mfg
Walter...
06.04.2009 11:55:39
Thread-ID: 1067075
3 Beiträge
Von rechts kopieren bis zum ersten ";"
Flo

Eine kurze Frage,
ich habe Zellen in meiner Tabelle,
in denen mehrere Werte stehen. Diese Werte sind durch ";" getrennt.
Also z.B. Zelle A1: "1;2;3"
Nun will ich, dass es mir in einer anderen Zelle nur die letzte Ziffer, also in diesem Fall 3 anzeigt.
Ich habe es mit der fo...
08.04.2009 15:19:13
Thread-ID: 1067754
16 Beiträge
Anzeige
Excel 2003: Nach Leerzeichen trennen
Florian

Mahlzeit zusammen.
Folgende Aufgabenstellung versuche ich zu lösen:
Liste mitz ca. 5.000 Zeilen, bestehend aus Artikelnummer, Bezedichnung und Preis.
Die Länge der Datensätze ist unterschiedlich, die Anzahl der Leerstellen dazwischen auch.
Ich möchte nun die Artikelnummer (alph...
01.07.2009 14:35:01
Thread-ID: 1085734
6 Beiträge
Filtern nach Teilen eines Zelleintrags
Boris

Hallo Forum,
Ich suche eine Möglichkeit einen Filter zu setzten auf Teile eines Zelleintrags.
Hier ein Beispiel
leiter.......Teilnehmer............... Gruppe
FP............otto1........................1
ES............otto1, otto6.............4
FP............ otto1,otto2,...
22.09.2009 12:19:11
Thread-ID: 1104606
4 Beiträge
Springen bis zum ersten leeren Feld
Gerd

Guten Morgen,
ich möchte gerne in der Spalte A von oben das erste Feld suchen, das leer ist. Dann soll dieses Feld markiert werden. Es wäre mir eine große Hilfe, wenn ich nicht immer von Hand dieses Feld suchen müßte.
Dies ist ein super Forum, macht weiter so.
Viele Grüße
Gerd
22.02.2010 08:50:36
Thread-ID: 1140209
7 Beiträge
Textformat mit Leerzeichen
Ralf_P

Hallo,
ich möchte in einem Schleifendurchlauf den Zellen einen Text mit 10 Zeichen zuordnen.
Das heißt, wenn der Zellwert "ABC" ist, müssen 7 Leerzeichen vorangestellt werden.
Wenn der Zellwert ABCDE" ist, müssen 5 Leerzeichen vorangestellt werden.
Geht das auch über Cells(x, 1)...
19.04.2010 13:12:19
Thread-ID: 1152575
7 Beiträge
Leerzeichen nach Text in Zelle löschen
Helmut

Liebe Forenuser,
ich habe noch eine Frage für heute:
Wie kann ich die Leerzeichen nach einem Text in allen Zellen in einem Tabellenblatt löschen?
Genauer:
Wenn ich z.B. in eine Zelle hineingehe, dann stehe ich oft nicht genau nach dem letzten Zeichen in der Zelle, sondern weiter...
07.05.2010 13:54:48
Thread-ID: 1156080
3 Beiträge
Anzeige

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