Zeichen durch Tab ersetzen?

Forumthread: Zeichen durch Tab ersetzen?

10.09.2004 13:57:46

Andi

Hallo,
ich habe folgende Frage:
Weiss jemand, wie man Koordinaten, die in einer Zelle stehen und durch Kommas getrennt sind (z.B 18, 17, 56, 58, 98) durch einen VBA Befehl (Komma durch TAB ersetzen?) in einzelne, hintereinander liegende Zellen schreiben kann (z.B. 18 tab 17 tab 56 ...)?
Versuche leider schon erfolglos seit 2 Stunden dahinter zu kommen. =(
Vielen Dank!!!
Andi

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeichen durch Tab ersetzen?

Nike
AW: Zeichen durch Tab ersetzen?

10.09.2004 16:45:48

Andi

AW: Zeichen durch Tab ersetzen?

Nike

Hi,
waehle die Spalte aus und geh ueber das Menue Daten/Text in Spalten
und waehle Komma als Trenner...
Bye
Nike

AW: Zeichen durch Tab ersetzen?

10.09.2004 16:45:48

Andi

habe selbst schon fast die Lösung. hier zur Info:
Thanks to slowdown,
Andi
'Split coordinates
For k = 1 To last
strCoords = Cells(k, 1) 'koordinaten
spl = Split(strCoords, "t") 'erzeuge ein feld aus strCoords mit dem “Teiler” ‘t”
Cells(k, 2).value = spl(0) 'schreibe werte
Cells(k, 3).value = spl(1)
'Cells(k, 4).value = spl(2)
Next k

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um Zeichen durch Tabs in Excel zu ersetzen, kannst Du die folgenden Schritte befolgen:

Daten vorbereiten: Stelle sicher, dass die Daten, die Du bearbeiten möchtest, in einer Excel-Spalte stehen.
Text in Spalten verwenden:
- Wähle die Spalte mit den Daten aus.
- Gehe zum Menü Daten und wähle Text in Spalten.
- Wähle den Trennzeichen-Option und setze ein Häkchen bei Komma als Trenner.
- Klicke auf Fertigstellen.

VBA-Code verwenden: Wenn Du ein Tab-Zeichen direkt durch einen VBA-Befehl ersetzen möchtest, kannst Du folgenden Code nutzen:

Sub TabErsetzen()
   Dim last As Long
   Dim strCoords As String
   Dim spl As Variant

   last = Cells(Rows.Count, 1).End(xlUp).Row

   For k = 1 To last
       strCoords = Cells(k, 1).Value ' Koordinaten in der ersten Spalte
       spl = Split(strCoords, vbTab) ' Erzeuge ein Array aus strCoords mit dem "Teiler" vbTab
       For i = LBound(spl) To UBound(spl)
           Cells(k, i + 2).Value = spl(i) ' Schreibe Werte in die nächsten Spalten
       Next i
   Next k
End Sub

Häufige Fehler und Lösungen

Problem: Tab-Zeichen nicht erkannt
- Lösung: Stelle sicher, dass Du vbTab im VBA-Code verwendest, um das Tab-Zeichen korrekt zu erkennen.
Problem: Daten werden nicht richtig aufgeteilt
- Lösung: Überprüfe, ob die Daten tatsächlich durch Tabs oder Kommas getrennt sind. Manchmal kann es notwendig sein, die Daten zuerst zu bereinigen.

Alternative Methoden

Du kannst auch die Suchen und Ersetzen-Funktion in Excel nutzen:

Markiere die Zellen, die Du bearbeiten möchtest.
Drücke Strg + H, um das Suchen-und-Ersetzen-Fenster zu öffnen.
Gib in das Feld „Suchen nach“ das Zeichen ein, das Du ersetzen möchtest (z.B. Komma).
Gib in das Feld „Ersetzen durch“ ein Tab-Zeichen ein, indem Du die Tab-Taste drückst.
Klicke auf Alle ersetzen.

Diese Methode eignet sich besonders, wenn Du einfache Zeichen wie Kommas oder Leerzeichen durch Tabs ersetzen möchtest.

Praktische Beispiele

Beispiel für das Ersetzen von Leerzeichen durch Tabs: Angenommen, Du hast die folgende Zelle: 18 17 56 58 98. Um die Leerzeichen durch Tabs zu ersetzen, kannst Du die Suchen-und-Ersetzen-Methode verwenden.
Beispiel mit VBA: Wenn Du mehrere Zellen mit Koordinaten hast, die durch Kommas getrennt sind, kannst Du den oben genannten VBA-Code benutzen, um die Koordinaten in separate Zellen zu schreiben, die durch Tabs getrennt sind.

Tipps für Profis

Nutze die Text in Spalten-Funktion, um schnell große Datenmengen zu bearbeiten.
Achte darauf, dass Du vor größeren Änderungen immer eine Sicherungskopie Deiner Daten machst.
Verwende VBA für automatisierte Prozesse, besonders wenn Du regelmäßig mit großen Datenmengen arbeitest, die spezielle Formatierungen erfordern.

FAQ: Häufige Fragen

1. Wie kann ich ein Tab-Zeichen in einer Excel-Zelle entfernen?
Um ein Tab-Zeichen zu entfernen, kannst Du die Suchen-und-Ersetzen-Funktion nutzen. Suche nach dem Tab-Zeichen (drücke die Tab-Taste) und lasse das Feld „Ersetzen durch“ leer.

2. Gibt es eine Möglichkeit, mehrere Zeichen gleichzeitig zu ersetzen?
Ja, Du kannst entweder die Suchen-und-Ersetzen-Funktion mehrmals nutzen oder ein VBA-Skript erstellen, das mehrere Ersetzungen in einem Durchgang durchführt.

Beliebteste Forumthreads (12 Monate)