Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro > Text in Spalten

Forumthread: Makro > Text in Spalten

Makro > Text in Spalten
Mandy
Hi,
ich suche eine Funktion (Makro) , die etwar das gleiche macht, wie "Text in Spalten"
Ich habe eine grosse Tabelle, die in etwar so aussieht:
In Spalte A steht ein String:
2009-01-01 12:39 Eingang:Raum - 1234567;B2233445566 -> B1B2B3B4
NUn möchte ich den String zerschneiden in verschiedene Teile.
In Spalte B soll dann nachher shten:
"2009-01-01 12:39"
In Spalte C soll dann nachher shten:
"Eingang"
In Spalte D soll dann nachher shten:
"Raum"
In Spalte E soll dann nachher shten:
"1234567"
In Spalte F soll dann nachher shten:
"B2233445566"
In Spalte G soll dann nachher shten:
"B1B2B3B4"
Dabei sollen folgende Trennzeichen definiert werden:
Spalte B: nach 20 Zeichen
Spalte C: bis ":" kommt
Spalte D: bis "-" kommt
Spalte E: bis Semikolon kommt
Spalte F: bis "->" kommt
Spalte G: Rest
Ein Makro deswegen, weil die Funktion öftern (immer wieder) ausgeführt werden soll und dass die Trennpunkte immer gleich sind.( Egal, wer die Daten trennt)
Kann man das per Makro definieren ?
Danke mal
Mandy
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro > Text in Spalten
08.07.2009 09:37:26
David
Hallo Mandy,
vielleicht reicht dir auch eine Formellösung:
Tabelle1
 ABCDEFG
12009-01-01 12:39 Eingang:Raum - 1234567;B2233445566 -> B1B2B3B42009-01-01 12:39EingangRaum1234567B2233445566B1B2B3B4
22009-01-01 12:39 Eingang:Raum - 1234567;B2233445566 -> B1B2B3B42009-01-01 12:39EingangRaum1234567B2233445566B1B2B3B4
3  WAHRWAHRWAHRWAHRWAHRWAHR

verwendete Formeln
Zelle Formel
B2 =LINKS(A2;16)
C2 =GLÄTTEN(WECHSELN(LINKS(A2;SUCHEN(":";A2;20)-1);B2;""))
D2 =TEIL(A2;SUCHEN(":";A2;20)+1;SUCHEN("-";A2;20)-SUCHEN(":";A2;20)-2)
E2 =TEIL(A2;SUCHEN("-";A2;10)+2;SUCHEN(";";A2)-SUCHEN("-";A2;10)-2)
F2 =TEIL(A2;SUCHEN(";";A2)+1;SUCHEN("->";A2)-SUCHEN(";";A2)-2)
G2 =TEIL(A2;SUCHEN("->";A2)+3;99)
B3 =IDENTISCH(B1;B2)
C3 =IDENTISCH(C1;C2)
D3 =IDENTISCH(D1;D2)
E3 =IDENTISCH(E1;E2)
F3 =IDENTISCH(F1;F2)
G3 =IDENTISCH(G1;G2)

Tabellendarstellung in Foren Version 1.8


Gruß
David
Anzeige
AW: Makro > Text in Spalten
08.07.2009 09:42:21
Chris
Servus Mandy,
als Makro würd ich's so machen (Hier ab Zeile 1 bis zur letzten in Spalte A):

Sub t()
Dim Teilstring As String, i As Long, lngLetzte As Long, TeilName As Variant, Index As Variant
lngLetzte = Cells(65536, 1).End(xlUp).Row
For i = 1 To lngLetzte
Teilstring = Cells(i, 1)
Range("B" & i) = "'" & Left(Teilstring, 16)
TeilName = Right(Teilstring, Len(Teilstring) - Len(Range("B" & i)))
Index = Split(TeilName, ":")
Range("C" & i) = Trim(Index(0))
TeilName = Trim(Index(1))
Index = Split(TeilName, "-")
Range("D" & i) = Trim(Index(0))
TeilName = Trim(Index(1)) & "-" & Index(2)
Index = Split(TeilName, ";")
Range("E" & i) = Trim(Index(0))
TeilName = Trim(Index(1))
Index = Split(TeilName, "->")
Range("F" & i) = Trim(Index(0))
Range("G" & i) = Trim(Index(1))
Next i
End Sub


Das Makro ist ohne Fehlerbehandlung, falls der String mal abweicht gibt's einen Fehler.
Gruß
Chris

Anzeige
AW: Makro > Text in Spalten
08.07.2009 10:54:32
Mandy
Hallo Chris,
danke, ein Teil funktioniert mal. Nur nochg eins:
ich habe gerade in meinen Daten gesehen, dass e svorkommen kann, dass ein Teil-String mal fehlt. ZB es steht nichtso drin:
2009-01-01 12:39 Eingang:Raum - 1234567;B2233445566 -> B1B2B3B4
sondern
2009-01-01 12:39 Eingang:Raum - -> B1B2B3B4.
also der Block 1234567;B2233445566 fehlt (bzw ist leer)
Wenn ich dann den Code ausführe, rutscht der Teilstring B1B2B3B4 im eine Spalte weiter nach links , wahrscheinlich aus der Folgerung heraus, weil da nichts drin steht.
Die Teilstrings sollten aber immer untereinander stehen. Sprich, wenn mal ei Teil fehlt, solte der nachfolgende Teil-String nicht in dessen Zellle rutschen.
Kann man das noch irgend wie verhindern ?
Sonst Danke
Mandy
Anzeige
AW: Makro > Text in Spalten
08.07.2009 17:53:21
Chris
Servus Mandy,
für den angegebenen Fall (2009-01-01 12:39 Eingang:Raum - -> B1B2B3B4) geht es so. Hier kann auch der Pfeil fehlen. Sollten aber das - oder der : fehlen gibt es trotzdem Verschiebungen, da ich diese dann nicht richtig zuordnen kann.
Sub t()
Dim Teilstring As String, i As Long, lngLetzte As Long, TeilName As Variant, Index As Variant,  _
k As Long, bol As Boolean
lngLetzte = Cells(65536, 1).End(xlUp).Row
For i = 1 To lngLetzte
Teilstring = Cells(i, 1)
Range("B" & i) = "'" & Left(Teilstring, 16)
TeilName = Right(Teilstring, Len(Teilstring) - Len(Range("B" & i)))
On Error Resume Next
For k = 1 To Len(TeilName)
If Mid(TeilName, k, 1) = ":" Then
bol = True
Exit For
End If
Next k
If bol Then
Index = Split(TeilName, ":")
Range("C" & i) = Trim(Index(0))
TeilName = Trim(Index(1))
bol = False
End If
For k = 1 To Len(TeilName)
If Mid(TeilName, k, 1) = "-" And Mid(TeilName, k + 1, 1)  ">" Then
bol = True
Exit For
End If
Next k
If bol Then
Index = Split(TeilName, "-")
Range("D" & i) = Trim(Index(0))
If UBound(Index) = 2 Then
TeilName = Trim(Index(1)) & "-" & Index(2)
Else
TeilName = Trim(Index(1))
End If
bol = False
End If
For k = 1 To Len(TeilName)
If Mid(TeilName, k, 1) = ";" Then
bol = True
Exit For
End If
Next k
If bol Then
Index = Split(TeilName, ";")
Range("E" & i) = Trim(Index(0))
TeilName = Trim(Index(1))
End If
For k = 1 To Len(TeilName)
If Mid(TeilName, k, 1) = "-" And Mid(TeilName, k + 1, 1) = ">" Then
bol = True
Exit For
End If
Next k
If bol Then
Index = Split(TeilName, "->")
Range("F" & i) = Trim(Index(0))
Range("G" & i) = Trim(Index(1))
bol = False
End If
On Error GoTo 0
Next i
End Sub
probier's mal aus.
Gruß
Chris
Anzeige
Danke Chris, so ist es OK
09.07.2009 07:45:20
Mandy
..Danke Dir, damit kann ich super leben.
Vielen Dank
Mandy
Sorry, habe einen kleinen Fehler gemacht...
09.07.2009 10:12:18
Mandy
Hi Chris,
habe gerade gesehen, ich habe einen kleinen Fehler bei der Aufteilung der Teilstrings gemacht:
Hier noch mal mein Beispiel:
2009-01-01 12:39 Eingang:Raum - 1234567;B2233445566 -> B1B2B3B4
in meinem forigen Trade habe ich geschrieben , dass ich den Teilstring: 1234567;B2233445566 geteilt haben will, das war falsch, soll zusammen bleiben.
Hier nochmal die Aufteilung:
2009-01-01 12:39
Eingang
Raum
1234567;B2233445566
B1B2B3B4
Sorry, war mein Fehler. was muss ich denn ändern ?
Danke
Mandy
Anzeige
AW: Sorry, habe einen kleinen Fehler gemacht...
09.07.2009 18:27:37
Chris
Servus Mandy,
nimm diesen Teil aus dem Makro: 
Sub t()
For k = 1 To Len(TeilName)
If Mid(TeilName, k, 1) = ";" Then
bol = True
Exit For
End If
Next k
If bol Then
Index = Split(TeilName, ";")
Range("E" & i) = Trim(Index(0))
TeilName = Trim(Index(1))
End If
End Sub
und ändere:
Sub t()
If bol Then
Index = Split(TeilName, "->")
Range("F" & i) = Trim(Index(0))
Range("G" & i) = Trim(Index(1))
bol = False
End If
On Error goTo 0
End Sub
in:
Sub t()
If bol Then
Index = Split(TeilName, "->")
Range("E" & i) = Trim(Index(0))
Range("F" & i) = Trim(Index(1))
bol = False
End If
On Error goTo 0
End Sub

ich gehe davon aus, dass dann in Spalte G nichts mehr steht, da ja ein Teilstring fehlt.
Gruß
Chris
Anzeige
AW: Nachtrag
09.07.2009 18:36:51
Chris
Servus,
ändere den letzten Teil so:
Sub t()
If bol Then
Index = Split(TeilName, "->")
Range("E" & i) = Trim(Index(0))
Range("F" & i) = Trim(Index(1))
bol = False
Else
For k = 1 To Len(TeilName)
If Mid(TeilName, k, 1) = ";" Then
bol = True
Exit For
End If
Next k
If bol Then
Range("E" & i) = Trim(TeilName)
End If
End If
On Error GoTo 0
End Sub
Dann wird auch der Teilstring in E mit dem ;(xxx;yyy) gesetzt, wenn der -> fehlt.
Gruß
Chris
Anzeige
AW: Nachtrag
13.07.2009 08:51:13
Mandy
Hallo Chris,
Sorry, war unterwegs.
So , habe mal Deinen Code getestet, ich hoffe , habe alles richtig gemacht. Ein kleines Problem habe ich noch: wenn ein Teilstring E ("1234567;B2233445566") leer ist, dann wird F (Teilstring hinter dem "->")
nicht geschrieben.
Wenn E vorhanden, wird auch F aufgelöst.
Kannst Du sehen, warum ? Hier nochmal der Complete Code:
Danke
Private Sub CommandButton2_Click()
Dim Teilstring As String, i As Long, lngLetzte As Long, TeilName As Variant, Index As Variant,  _
_
k As Long, bol As Boolean
lngLetzte = Cells(65536, 1).End(xlUp).Row
For i = 1 To lngLetzte
Teilstring = Cells(i, 1)
Range("B" & i) = "'" & Left(Teilstring, 16)
TeilName = Right(Teilstring, Len(Teilstring) - Len(Range("B" & i)))
On Error Resume Next
For k = 1 To Len(TeilName)
If Mid(TeilName, k, 1) = ":" Then
bol = True
Exit For
End If
Next k
If bol Then
Index = Split(TeilName, ":")
Range("C" & i) = Trim(Index(0))
TeilName = Trim(Index(1))
bol = False
End If
For k = 1 To Len(TeilName)
If Mid(TeilName, k, 1) = "-" And Mid(TeilName, k + 1, 1)  ">" Then
bol = True
Exit For
End If
Next k
If bol Then
Index = Split(TeilName, "-")
Range("D" & i) = Trim(Index(0))
If UBound(Index) = 2 Then
TeilName = Trim(Index(1)) & "-" & Index(2)
Else
TeilName = Trim(Index(1))
End If
bol = False
End If
If bol Then
Index = Split(TeilName, "->")
Range("E" & i) = Trim(Index(0))
Range("F" & i) = Trim(Index(1))
bol = False
Else
For k = 1 To Len(TeilName)
If Mid(TeilName, k, 1) = ";" Then
bol = True
Exit For
End If
Next k
If bol Then
Range("E" & i) = Trim(TeilName)
End If
End If
On Error GoTo 0
Next i
End Sub

Anzeige
AW: Nachtrag
13.07.2009 15:40:38
Chris
Servus,
so sollte es passen:
Private Sub CommandButton2_Click()
Dim Teilstring As String, i As Long, lngLetzte As Long, TeilName As Variant, Index As Variant,  _
k As Long, bol As Boolean
lngLetzte = Cells(65536, 1).End(xlUp).Row
For i = 1 To lngLetzte
Teilstring = Cells(i, 1)
Range("B" & i) = "'" & Left(Teilstring, 16)
TeilName = Right(Teilstring, Len(Teilstring) - Len(Range("B" & i)))
On Error Resume Next
For k = 1 To Len(TeilName)
If Mid(TeilName, k, 1) = ":" Then
bol = True
Exit For
End If
Next k
If bol Then
Index = Split(TeilName, ":")
Range("C" & i) = Trim(Index(0))
TeilName = Trim(Index(1))
bol = False
End If
For k = 1 To Len(TeilName)
If Mid(TeilName, k, 1) = "-" And Mid(TeilName, k + 1, 1)  ">" Then
bol = True
Exit For
End If
Next k
If bol Then
Index = Split(TeilName, "-")
Range("D" & i) = Trim(Index(0))
If UBound(Index) = 2 Then
TeilName = Trim(Index(1)) & "-" & Index(2)
Else
TeilName = Trim(Index(1))
End If
bol = False
End If
For k = 1 To Len(TeilName)
If Mid(TeilName, k, 1) = "-" And Mid(TeilName, k + 1, 1) = ">" Then
bol = True
Exit For
End If
Next k
If bol Then
Index = Split(TeilName, "->")
Range("E" & i) = Trim(Index(0))
Range("F" & i) = Trim(Index(1))
bol = False
Else
For k = 1 To Len(TeilName)
If Mid(TeilName, k, 1) = ";" Then
bol = True
Exit For
End If
Next k
If bol Then
Range("E" & i) = Trim(TeilName)
End If
End If
On Error GoTo 0
Next i
End Sub
Gruß
Chris
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
Anzeige
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
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
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
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 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
Anzeige
Automatisches Einlesen von text-Datein
text-Datein

Moin Moin
ich möchte gerne Daten aus einer Text-Datei lesen. Dies soll beim öffnen des Excel Formulars automatisch geschehen.
Die Datei hat die folgene Struktur:
[GROUP]
101;102;103;201;202;203;301;302;303;401;402;403;501;502;503;601;602;603; usw...
In den eckigen Klammern...
01.04.2009 11:03:29
Thread-ID: 1065906
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Excel: Text in Spalten mit VBA aufteilen

Schritt-für-Schritt-Anleitung

Um mit VBA die Funktion "Text in Spalten" zu automatisieren, kannst Du das folgende Makro verwenden. Es zerlegt einen String in mehrere Teile und platziert diese in verschiedenen Spalten.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Wähle im Projektfenster die gewünschte Arbeitsmappe aus und füge ein neues Modul hinzu (Einfügen > Modul).
  3. Füge den folgenden Code in das Modul ein:
Sub TextInSpaltenVBA()
    Dim Teilstring As String, i As Long, lngLetzte As Long, TeilName As Variant, Index As Variant
    lngLetzte = Cells(65536, 1).End(xlUp).Row
    For i = 1 To lngLetzte
        Teilstring = Cells(i, 1)
        Range("B" & i) = "'" & Left(Teilstring, 16) ' Datum und Uhrzeit
        TeilName = Right(Teilstring, Len(Teilstring) - Len(Range("B" & i)))

        ' Aufteilen der Teilstrings
        On Error Resume Next
        Index = Split(TeilName, ":")
        Range("C" & i) = Trim(Index(0)) ' Eingang
        TeilName = Trim(Index(1))

        Index = Split(TeilName, "-")
        Range("D" & i) = Trim(Index(0)) ' Raum
        TeilName = Trim(Index(1)) & "-" & Index(2)

        Index = Split(TeilName, ";")
        Range("E" & i) = Trim(Index(0)) ' 1234567;B2233445566
        TeilName = Trim(Index(1))

        Index = Split(TeilName, "->")
        Range("F" & i) = Trim(Index(0)) ' B2233445566
        Range("G" & i) = Trim(Index(1)) ' B1B2B3B4
    Next i
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Führe das Makro aus, indem Du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Häufige Fehler und Lösungen

  • Fehler: Teilstrings rutschen in die falschen Spalten.

    • Lösung: Stelle sicher, dass in den Daten die erwarteten Trennzeichen wie ":", "-", ";" vorhanden sind. Ansonsten kann es zu Verschiebungen kommen.

  • Fehler: Teilstrings fehlen oder sind leer.

    • Lösung: Implementiere eine Fehlerbehandlung im Code, um sicherzustellen, dass bei fehlenden Teilstrings die nachfolgenden Strings in den richtigen Spalten bleiben.

Alternative Methoden

Wenn Du keine VBA-Lösung verwenden möchtest, kannst Du auch die integrierte Funktion "Text in Spalten" in Excel nutzen:

  1. Markiere die Zelle(n) mit den Daten.
  2. Gehe zu Daten > Text in Spalten.
  3. Wähle Getrennt und klicke auf Weiter.
  4. Wähle die gewünschten Trennzeichen (z.B. Semikolon, Leerzeichen) und klicke auf Fertig stellen.

Praktische Beispiele

Hier sind einige Beispiele, um zu zeigen, wie das Makro funktioniert:

A (Original) B (Datum) C (Eingang) D (Raum) E (Nummer) F (B2233445566) G (B1B2B3B4)
2009-01-01 12:39 Eingang:Raum - 1234567;B2233445566 -> B1B2B3B4 2009-01-01 12:39 Eingang Raum 1234567;B2233445566 B2233445566 B1B2B3B4
2009-01-01 12:39 Eingang:Raum - -> B1B2B3B4 2009-01-01 12:39 Eingang Raum B1B2B3B4

Tipps für Profis

  • Nutze On Error Resume Next, um Fehler zu ignorieren, aber sei vorsichtig, da dies auch wichtige Fehler übersehen kann.
  • Du kannst das Makro erweitern, um weitere Trennzeichen zu berücksichtigen oder es an spezifische Anforderungen anzupassen.
  • Für eine effizientere Arbeit mit großen Datenmengen kannst Du die Berechnungseinstellungen während der Makroausführung auf xlCalculationManual setzen und nach Abschluss zurück auf xlCalculationAutomatic ändern.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, wenn die Struktur der Daten anders ist? Passe die Trennzeichen im Split-Befehl an, um die neuen Strukturen zu berücksichtigen.

2. Funktioniert das Makro auch in Excel Online? Nein, VBA-Makros sind nicht in Excel Online verfügbar. Du musst Excel Desktop verwenden.

3. Was mache ich, wenn ich ein Fehler im Makro bekomme? Überprüfe die Struktur deiner Daten und die verwendeten Trennzeichen. Stelle sicher, dass alle erwarteten Trennzeichen vorhanden sind.

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