Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1008to1012
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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
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
Anzeige

300 Forumthreads zu ähnlichen Themen

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
Anzeige
Zeichen in Zelle automatisch kürzen
Andreas

Guten Tag,
ich habe Zellen mit jeweils 12 Stellen ausgefüllt (z.B. 000012345678) Davon hätte ich nun gerne automatisch die ersten 4 gelöscht (sodaß in diesem Beispiel dann in der Zelle nur 12345678 verbleibt)
Ist das mit Excel-Bordmitteln machbar?
Danke für Hilfe voarab,
Andreas...
09.10.2008 13:57:00
Thread-ID: 1015344
4 Beiträge
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Anzeige
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 Beiträge
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
3
4
2
3
4
2
2
5
2
11
11
2
4
4
1
2
4
5
10
2
1
2
2