Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

leerzeichen in text einfuegen

Forumthread: leerzeichen in text einfuegen

leerzeichen in text einfuegen
06.09.2002 15:57:55
Steffen
Hallo Leute ich möchte zwischen jedem Zeichen was ich in eine Zellen eingebe (auch Buchstaben) ein Leerzeichen oder besser das Zeichen "|" schreiben!

Kann man das über Format lösen oder VBA wie?!

Danke schonmal

Steffen

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: leerzeichen in text einfuegen
06.09.2002 16:23:14
ChristianG
Hallo Steffen,

es geht bestimmt noch einfache, aber probier mal das hier:

Sub leerz()
Dim A As Integer
Dim B As String

For A = 1 To Len(Cells(1, 1))
B = B & Right(Left(Cells(1, 1), A), 1) & " "
Next A
Cells(2, 1) = B
End Sub

mfg
Christian

P.S.: Dieses Beispiel ist aus der englischen Excel-Version. Evtl. mußt Du "Left" und "Right" gegen "Links" und "Rechts" austauschen.

Anzeige
mit UDF kannst du
06.09.2002 19:45:50
L.Vira
dir das zeichen aussuchen:

Function Zeichen_einf(Text As String, Zeichen As String) As String
Dim L%, Z$, T$
T = Text
For L = 1 To Len(T)
Z = Z & Right(Left(T, L), 1) & Zeichen
Next
Z = Left(Z, (Len(Z) - 1))
Zeichen_einf = Z
End Function

Anpassen --> neuer Thread
07.09.2002 11:07:16
Steffen
Vielen dank erst mal,

aber ich musste einen neuen Thread machen, weil ich nicht weis wie ich dieses Script anpassen kann!

Vielleicht könnt Ihr nochmal einen Blick drauf werfen

Danke


Steffen

Anzeige
;
Anzeige

Infobox / Tutorial

Leerzeichen in Text einfügen in Excel


Schritt-für-Schritt-Anleitung

Um Leerzeichen oder ein bestimmtes Zeichen, wie das "|" Zeichen, zwischen den Zeichen eines Textes in Excel einzufügen, kannst du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf Einfügen und wähle Modul.

  3. Füge den folgenden VBA-Code in das Modul ein:

    Sub leerz()
       Dim A As Integer
       Dim B As String
    
       For A = 1 To Len(Cells(1, 1))
           B = B & Right(Left(Cells(1, 1), A), 1) & " "
       Next A
    
       Cells(2, 1) = B
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Gib in Zelle A1 den Text ein, den du bearbeiten möchtest.

  6. Führe das Makro leerz aus, um die Leerzeichen in Zelle A2 anzuzeigen.


Häufige Fehler und Lösungen

  • Fehler: Der VBA-Code funktioniert nicht.

    • Lösung: Stelle sicher, dass du die richtige Excel-Version verwendest. Der Code ist möglicherweise für die englische Version optimiert. Du musst Left und Right durch Links und Rechts ersetzen, wenn du eine deutsche Version verwendest.
  • Fehler: Die Leerzeichen erscheinen nicht.

    • Lösung: Überprüfe, ob die Zelle, in der du den Text eingegeben hast, tatsächlich A1 ist. Andernfalls musst du die Zellenreferenz im Code anpassen.

Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du auch die Funktion TEXTVERKETTEN (in neueren Excel-Versionen) oder VERKETTEN nutzen:

  1. TEXTVERKETTEN:

    =TEXTVERKETTEN(" "; WAHR; A1; B1; C1)
  2. VERKETTEN:

    =VERKETTEN(A1; " "; B1; " "; C1)

Diese Methoden sind nützlich, wenn du Leerzeichen zwischen spezifischen Zellen einfügen möchtest.


Praktische Beispiele

  • Beispiel 1: Wenn in Zelle A1 der Text "HalloWelt" steht und du Leerzeichen einfügen möchtest, kannst du das Makro ausführen, um "H a l l o W e l t" in Zelle A2 zu erhalten.

  • Beispiel 2: Um ein anderes Zeichen, wie "|" einzufügen, kannst du den VBA-Code wie folgt anpassen:

    For A = 1 To Len(Cells(1, 1))
       B = B & Right(Left(Cells(1, 1), A), 1) & "|"
    Next A

Tipps für Profis

  • Wenn du häufig Leerzeichen in Text einfügen musst, erstelle eine benutzerdefinierte Funktion (UDF) für mehr Flexibilität. Hier ist ein Beispiel:

    Function Zeichen_einf(Text As String, Zeichen As String) As String
       Dim L As Integer, Z As String
       For L = 1 To Len(Text)
           Z = Z & Mid(Text, L, 1) & Zeichen
       Next L
       Zeichen_einf = Left(Z, Len(Z) - Len(Zeichen))
    End Function
  • Diese Funktion ermöglicht es dir, das Zeichen, das du einfügen möchtest, flexibel auszuwählen, was besonders nützlich ist, wenn du mit verschiedenen Daten arbeitest.


FAQ: Häufige Fragen

1. Wie kann ich Leerzeichen zwischen Text und Zahl in Excel einfügen?
Um Leerzeichen zwischen Text und Zahlen einzufügen, kannst du eine Kombination aus den oben genannten Methoden verwenden. Ein Beispiel wäre die Nutzung von TEXTVERKETTEN, um Text und Zahlen zu kombinieren.

2. Kann ich auch Leerzeichen in einer IBAN einfügen?
Ja, du kannst die gleiche Technik verwenden, um Leerzeichen in einer IBAN einzufügen. Stelle sicher, dass du die richtige Zellreferenz im VBA-Code angibst, um die IBAN zu formatieren.

Beliebteste Forumthreads (12 Monate)

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