Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1304to1308
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
Inhaltsverzeichnis

Zelle trennen

Zelle trennen
28.03.2013 19:07:56
Hans
Hallo liebe Forumsteilnehmer,
ich habe nach Recherchen im Forum für die Trennung einer Zelle folgenden Code gefunden. Leider funktioniert er nicht so wie ich es mit vorstellte. Kann mit vielleicht jemand helfen bei der Anpassung?
Wert in Zelle: D1 123 dann in Zelle E1 123
Wert in Zelle: D1 123 A456 dann in Zelle E1 123 und in F1 A456
Der Code füllt mir leider nur die Zelle E1 nicht aber F1
VG Hans
Sub splitten()
Dim sTmp As String, i As Long
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
'Trenung in Spalte 4 nach 3 Stellen bzw Leerzeichen
sTmp = Left(Cells(i, 4), 3)
If InStr(sTmp, " ") > 0 Then
sTmp = Left(sTmp, InStrRev(sTmp, " "))
End If
' Zielspalte für Trennung
Cells(i, 5) = Trim(sTmp)
Cells(i, 3) = Trim(Mid(Cells(i, 1), Len(sTmp) + 1, 255))
Next
Application.ScreenUpdating = True
End Sub

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle trennen
28.03.2013 19:29:15
Hajo_Zi
warum nicht einfach Text in Spalten, Trennzeichen Leerstelle.

AW: Zelle trennen
28.03.2013 19:44:07
Hans
Hallo Hajo,
danke für deinen Tipp. Steffen hat mir einen kleinen Code erstellt.
Der macht genau was ich brauche.
Ich danke dir und wünsche schöne Ostern.
VG Hans

auf die Schnelle
28.03.2013 19:29:31
CitizenX
Hi,
Sub trennen()
Dim i&, out
For i = 1 To Cells(Rows.Count, 5).End(xlUp).Row
out = Split(Cells(i, 5), " ")
If UBound(out) >= 0 Then Cells(i, 6).Resize(, UBound(out) + 1) = out
Next
End Sub
Grüße
Steffen

Anzeige
AW: auf die Schnelle
28.03.2013 19:42:30
Hans
Hallo Steffen,
prima kürzerer Code und funktioniert.
Beste Dank!
Schöne Ostern
VG Hans

AW: Zelle trennen
28.03.2013 19:41:56
JoWE
Hallo Hans,
evtl. so?
Sub SplitDemo()
Dim txt As String
Dim x As Variant
Dim sp As Long
Dim ze As Long
For ze = 1 To Cells(1, 4).End(xlDown).Row
txt = Cells(ze, 4)
x = Split(txt, " ")
For sp = 0 To UBound(x)
On Error Resume Next
Cells(ze, 5 + sp) = x(sp)
Next sp
Next ze
End Sub

Gruß
Jochen

AW: Zelle trennen
28.03.2013 19:46:24
Hans
Hallo Jochen,
auch dir vielen Dank. Funktioniert ebenfalls prima.
Jetzt kann ich mal ein wenig basteln.
Schöne Ostern.
VG Hans

Anzeige
AW: Zelle trennen
28.03.2013 19:47:15
fcs
Hallo Hans,
in folgender Version sollte es funktionieren.
Gruß
Franz
Sub splitten()
Dim sTmp() As String, i As Long, SpalteWerte As Long
Application.ScreenUpdating = False
SpalteWerte = 4  'Spalte D - Spalte mit den zu splittenden Werten, ggf. anpassen!!!
For i = 2 To ActiveSheet.Cells(Rows.Count, SpalteWerte).End(xlUp).Row
ReDim sTmp(1 To 2)
'Trenung in Spalte nach 3 Stellen bzw Leerzeichen
With ActiveSheet.Cells(i, SpalteWerte)
If InStr(.Text, " ") > 0 Then
sTmp(1) = Left(.Text, InStr(.Text, " "))
sTmp(2) = Mid(.Text, InStr(.Text, " "))
Else
sTmp(1) = Left(.Text, 3)
sTmp(2) = Mid(.Text, 4)
End If
End With
' Zielspalte für Trennung
Cells(i, 5) = Trim(sTmp(1)) 'in Spalte E den 1. Teil eintragen
Cells(i, 6) = Trim(sTmp(2)) 'in Spalte F den 2. Teil eintragen
Next
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Zelle trennen
28.03.2013 19:57:47
Hans
Hallo Franz,
super jetzt habe ich schon drei zur Auswahl und
alle erfüllen die Funktion.
Vielen Dank auch dir und schöne Ostern.
VG Hans

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige