Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1940to1944
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
1940to1944
1940to1944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in Zellen am Anfang einfügen und Resttext belassen

Text in Zellen am Anfang einfügen und Resttext belassen
05.08.2023 10:45:24
Dieter(Drummer)
Guten Morgen an alle ...

ich suche einen Code, der am Anfang - also links- in der Zelle, den Text "AW: " in rot einfügt und den Resttext jeweils drin lässt. Dies soll für einen vorher markierten Zellbreich, nur gleiche Spalte, möglich sein. Mein jetziger Code fügt den Text am Ende der Zelle ein und geht auch für mehrere markierten Zellen nicht. Hier meine Musterdatei: https://www.herber.de/bbs/user/162192.xlsm
Ich habe in der Musterdatei mein Wunschproblem nochmal beschrieben ...

Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)

Code: 
Sub Text_rein()

Cells(4, 2).Value = Cells(4, 2).Value + "AW: "

End Sub


9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Zellen am Anfang einfügen und Resttext belassen
05.08.2023 11:17:07
hary
Moin Dieter
Das muesstest du doch schon kennen ;-) 
Dim Zelle As Range

For Each Zelle In Selection

  Zelle.Value = "AW: " & Zelle.Value

  Zelle.Characters(1, 3).Font.Color = vbRed '--das kennst du doch

Next

Evtl. vorher pruefen ob AW schon drin steht.
gruss hary
AW: Code etwas erweitert, Resttext wird blau
05.08.2023 11:36:41
Dieter(Drummer)
Hall Harry,

habe deinen Code noch erweitert, dass der jeweilige Resttext blau ist. Funktioniert auch prima. Danke nochmal und

Gruß, Dieter(Drummer)

Jetziger Code: 
'Herber:  hary 05.08.2023 11:17:07

'AW: Text in Zellen am Anfang einfügen und Resttext belassen

Sub Text_rein()

Dim Zelle As Range



'Ergänzung von Mx

Selection.Font.Color = 16711680 'Nach AW: Restext blau

'Ende Mx



For Each Zelle In Selection

  Zelle.Value = "AW: " & Zelle.Value

  Zelle.Characters(1, 3).Font.Color = vbRed '--das kennst du doch

Next

End Sub

Anzeige
Code etwas erweitert, Resttext wird blau
05.08.2023 11:43:47
RPP63
Damit niemand sagen kann, dass ich nicht gewarnt hätte!
Excel ist keine Textverarbeitung!
Format-Wirrwar (zumal in einer Zelle) wird die Datei mit der Zeit langsam werden lassen.
Später schmiert sie Dir ohne Vorwarnung ab!

Gruß Ralf
Code etwas erweitert, Resttext wird blau
05.08.2023 12:06:25
Dieter(Drummer)
Danke Ralf für Hinweis

und werde ihn berücksichtigen, soweit wie möglich.

Gruß, Dieter(Drummer)



AW: Danke Harry, perfekte Lösung ...
05.08.2023 11:20:46
Dieter(Drummer)
Hallo Harry,

Danke für perfekte Lösung und funktioniert prima :-).

Gruß, Dieter(Drummer)
AW: Text in Zellen am Anfang einfügen und Resttext belassen
05.08.2023 11:05:57
GerdL
Hallo Dieter,

das Plus-Zeichen ist der Operator für Additionen. 
Sub Verketten_links()



    Const cstrLinks As String = "AW:"

    

    For Each C In Selection.Cells

        C = cstrLinks & C.Text

    Next



End Sub

Gruß Gerd
Anzeige
AW: Text in Zellen am Anfang einfügen und Resttext belassen
05.08.2023 11:18:01
Dieter(Drummer)
Danke Gerd für Rückmeldung.

Dein Code zeigt einen Fehler: "Fehler beim Kompilieren: Variable nicht definiert" und "C" wird markiert: 
Sub Verketten_links()



    Const cstrLinks As String = "AW: "

    

    For Each C In Selection.Cells

        C = cstrLinks & C.Text

    Next



End Sub


Hast du ncoh eine Lösung?

Gruß, Dieter(Drummer)
Text in Zellen am Anfang einfügen und Resttext belassen
05.08.2023 11:20:54
GerdL
Ui, ja. C muss man als (Dim C As Range) deklarieren. Sorry ich habs vergessen.
Gruß Gerd
AW: Danke Gerd ...
05.08.2023 11:38:57
Dieter(Drummer)
... für deine Hilfe, habe den Code von Harry genutzt.
Dennoch danke für deine Hilfe ...

Gruß, Dieter(Drummer)
Anzeige

351 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
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
in spalte müssen 2 gleiche zahlen vorh. sein ...
Jessi

hallo zusammen,
suche nach einem makro, dass in spalte A überprüft ob von den dort geschriebenen zahlen jeweils zwei gleiche vorhanden sind. es geht um eine doppelbelegung eines zimmers. die zahl ist die zimmer-nr.
wäre z.b. nur einmal eine zahl in der spalte, wäre es möglich in das jew...
04.10.2008 15:33:00
Thread-ID: 1014154
5 Beiträge
Anzeige
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
Eine Zahl mit vorhandener Zahlenliste vergleichen
Niklas

Hallo Leute!
Es geht darum, eine eingegebene Zahl mit einer vorhandenen Zahlenliste vergleichen und die beiden nächstgelegenen Zahlen der Zahlenliste verwenden!
zur veranschaulichung:
ich habe die die zahlenliste : 1 , 2, 3, 4, 5, 6, 7
der eingegebene Wert ist z.B 1.5 dann soll...
17.10.2008 09:49:22
Thread-ID: 1017045
8 Beiträge
vorgegebene Summe aus Zahlen berechnen
mArsupiLami

Moin!
Ich benötige um regelmäßige Fehlerkorrekturen laufen zu lassen ein Script, dem ich eine Summe vorgebe und eine Range aus Zahlen (von mir aus Zellen A:A), das mir die Zusammenstellung aus Zahlen berechnet, die meine gesuchte Summe ergeben (Noch besser: Alle Kombinationen aus der Zahlen...
21.11.2008 11:25:35
Thread-ID: 1026668
6 Beiträge
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
Autofilter - Anzahl vorh. Sätze
KViertel

Hallo in die Runde,
In einem Tabellenblatt wird In VBA ein Autofilter gesetzt. Die dabei angezeigten Sätze sollen in ein anderes Tabellenblatt kopiert werden. Wenn jetzt keine Sätze vorhanden sind, wird die Sub abgebrochen. In der Recherche habe ich einen Hinweis zu Subtotal gefunden, weiß...
11.12.2008 11:45:00
Thread-ID: 1031999
3 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame

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
11
3
4
3
4
7
5
3
2
4
2
2
5
2
7
11
2
4
4
3
4
5
10
2