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

Forumthread: Zeichen an bestimmte Stelle hinzufügen ?

Zeichen an bestimmte Stelle hinzufügen ?
22.09.2008 11:05:00
Selma
Hallo Leute,
wie kann ich für die Zelleninhalte der Spalte D (ab Zeile 2) an zweite und an zehnte Stelle ein Unline "_" hinzufügen?
Beispiel vorher:
D
168
169
170
171
172

Beispiel nachher:
E
168
169
170
171
172

Vielen Dank im Voraus !
Liebe Grüße,
Selma
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeichen an bestimmte Stelle hinzufügen ?
22.09.2008 11:18:00
David
Hallo Selma,
für A1:

=LINKS(A1;1)&"_"&TEIL(A1;2;7)&"_"&RECHTS(A1;LÄNGE(A1)-8)


und runterkopieren.
Anschließend kannst du, wenn gewünscht, per Kopieren und Inhalte einfügen den Originalbereich überschreiben.
Gruß
David

Anzeige
AW: Zeichen an bestimmte Stelle hinzufügen ?
22.09.2008 11:33:03
Selma
Hallo David,
danke erstmal. Geht dies auch per VBA (ohne Hilfsspalten) für den Bereich D2:D bis letzte gefüllte Zelle der Spalte A ? :)
Besten Dank !
LG,
Selma
AW: Zeichen an bestimmte Stelle hinzufügen ?
22.09.2008 11:52:00
David
Hallo Selma,
prinzipiell so:

Option Explicit
Sub test()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim i As Long, wert As String
For i = 1 To Range("A65536").End(xlUp).Row
wert = Format(Range("D" & i), "@")
If wert  "" Then wert = Left(Cells(i, 1), 4) & "_" & Mid(Cells(i, 4), 2, 7) & "_" & Right( _
Cells(1, 1), Len(Cells(i, 4)) - 8)
Range("D" & i) = wert
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


Habe allerdings festgestellt, dass das Makro mit Fehler abbricht, wenn die Zelle eine Zahl enthält. Ich habe versucht, das mit =Format(..., "@") zu lösen, aber das funzt leider nicht. Wenn das bei dir vorkommen könnte, musst du mal die anderen VBA-Experten fragen (ich habe leider nur Level "VBA bescheiden").
Alternativ kannst du natürlich auch an den Anfang ein
On Error Resume Next
setzen, dann bügelt er den Fehler weg und die entsprechende Zelle bleibt so, wie sie ist.
Gruß
David

Anzeige
AW: Zeichen an bestimmte Stelle hinzufügen ?
22.09.2008 14:02:00
Selma
Hallo David,
leider sieht das Ergebnis so aus:
D
168
169
170
171
172

LG,
Selma
Anzeige
AW: Zeichen an bestimmte Stelle hinzufügen ?
22.09.2008 14:13:21
David
Hallo Selma,
kleine Korrektur (ich hatte eine 1 übersehen, die eigentlich i heißen sollte):

Option Explicit
Sub test()
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error Resume Next
Dim i As Long, wert As String
For i = 1 To Range("A65536").End(xlUp).Row
wert = Format(Range("D" & i), "@")
If wert  "" Then wert = Left(Cells(i, 1), 4) & "_" & Mid(Cells(i, 4), 2, 7) & "_" & Right( _
Cells(i, 1), Len(Cells(i, 4)) - 8)
Range("D" & i) = wert
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


Nur nochmal zur Sicherheit:
Es werden alle Zeilen durchlaufen, die in Spalte A einen Wert haben und dabei wird der Wert in Spalte D entsprechend deiner Vorgabe verändert.
Gruß
David

Anzeige
AW: Zeichen an bestimmte Stelle hinzufügen ?
22.09.2008 15:13:30
Selma
Hallo David,
meine Daten sind in Spalte D. Ich möchte den Zellenbereich D2:D bis letzte gefüllte Zelle der Spalte A markieren und dann das Zeichen "_" an der zweite und zehnte Stelle (siehe Beispiel) hinzufügen.
Beispiel vorher:
D
168
169
170
171
172

Beispiel nachher:
D
168
169
170
171
172

Liebe Grüße,
Selma
Anzeige
AW: Zeichen an bestimmte Stelle hinzufügen ?
22.09.2008 15:24:35
David
Hallo Selma,
man sollte halt nicht mit irgendwelchen Daten anfangen und sie dann später ändern wollen, ich habe mich ein wenig "verhaspelt" mit den Zeilen/Spalten.
(im übrigen ist es oft hilfreich, ein Beispiel zur Verfügung gestellt zu bekommen [Wink mit dem Zaun])
Jetzt sollte es aber wirklich passen:
https://www.herber.de/bbs/user/55576.xls
Eine Markierung der zu bearbeitenden Zellen ist im übrigen nicht notwendig.
Gruß
David
Anzeige
AW: Zeichen an bestimmte Stelle hinzufügen ?
22.09.2008 15:35:00
Selma
Hallo David,
jetzt ist alles richtig ;)
Vielen Dank !
Liebe Grüße,
Selma
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeichen an bestimmte Stelle in Excel einfügen


Schritt-für-Schritt-Anleitung

Um in Excel Zeichen an einer bestimmten Stelle einzufügen, kannst du eine Formel oder ein VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung für beide Methoden.

1. Zeichen an bestimmter Stelle mit einer Formel einfügen:

Angenommen, du möchtest in der Zelle D1 ein Zeichen "_" an der zweiten und zehnten Stelle hinzufügen. Verwende die folgende Formel:

=LINKS(D1;1) & "_" & TEIL(D1;2;7) & "_" & RECHTS(D1;LÄNGE(D1)-8)

2. Formel nach unten kopieren:

Klicke auf den kleinen Anfasser in der unteren rechten Ecke der Zelle und ziehe ihn nach unten, um die Formel auf die weiteren Zellen anzuwenden.

3. Ergebnis überprüfen:

Stelle sicher, dass das Ergebnis deinen Erwartungen entspricht. Du kannst die Ergebnisse dann per "Kopieren" und "Inhalte einfügen" in die Originalzellen übertragen.


Häufige Fehler und Lösungen

  • Fehler: Zelle enthält eine Zahl.

    • Lösung: Verwende On Error Resume Next in deinem VBA-Code, um den Fehler zu ignorieren und die Zelle unverändert zu lassen.
  • Fehler: Formel gibt unerwartete Ergebnisse zurück.

    • Lösung: Überprüfe die Zellreferenzen in der Formel. Stelle sicher, dass die Formel korrekt auf die Zelle verweist, die du bearbeiten möchtest.

Alternative Methoden

VBA-Methode:

Wenn du keine Hilfsspalten verwenden möchtest, kannst du ein einfaches VBA-Makro schreiben. Hier ist ein Beispiel:

Option Explicit
Sub ZeichenEinfügen()
    Application.ScreenUpdating = False
    Dim i As Long
    For i = 2 To Range("A65536").End(xlUp).Row
        If Not IsEmpty(Range("D" & i)) Then
            Range("D" & i) = Left(Range("D" & i), 1) & "_" & Mid(Range("D" & i), 2, 7) & "_" & Right(Range("D" & i), Len(Range("D" & i)) - 8)
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Füge diesen Code in ein neues Modul im VBA-Editor ein und führe das Makro aus.


Praktische Beispiele

  • Beispiel 1: Zeichen hinter einer Zahl einfügen

    • Wenn du "1234" in Zelle A1 hast und "_" nach der Zahl hinzufügen möchtest:
    =A1 & "_"
  • Beispiel 2: Text am Anfang einer Zelle einfügen

    • Um "Start_" vor dem Inhalt von B1 zu setzen:
    ="Start_" & B1

Tipps für Profis

  • Verwende benutzerdefinierte Formatierungen, um Zeichen in numerischen Zellen anzuzeigen, ohne die tatsächlichen Werte zu verändern.
  • Experimentiere mit den Funktionen TEXT und VERKETTEN, um komplexere Formatierungen zu erstellen.
  • Nutze die Möglichkeit, Zeichen in allen Zellen einer Spalte hinzuzufügen, indem du die Formel in die erste Zelle eingibst und nach unten ziehst.

FAQ: Häufige Fragen

1. Wie kann ich ein Leerzeichen an einer bestimmten Stelle hinzufügen? Um ein Leerzeichen an einer bestimmten Stelle einzufügen, kannst du eine ähnliche Formel verwenden, aber einfach ein Leerzeichen anstelle des Zeichens einsetzen.

2. Ist es möglich, mehrere Zeichen gleichzeitig einzufügen? Ja, du kannst die Formel anpassen, um mehr als ein Zeichen an verschiedenen Stellen einzufügen, indem du mehrere &-Operatoren verwendest.

3. Kann ich dies auch für eine ganze Spalte gleichzeitig machen? Ja, indem du die Formel in die oberste Zelle einer Spalte eingibst und sie dann nach unten ziehst, kannst du das Zeichen in jeder Zelle hinzufügen.

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