Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1740to1744
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
1740to1744
1740to1744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text hinzufügen

Text hinzufügen
19.02.2020 09:36:59
Marc
Hallo, ich brauche ein Makro mit dem ich Text einfügen kann.
In Spalte C ab Zeile 2 steht ein beliebiger Text dem ich ein Text "S_" davorsetzen möchte.
Das Ganze sollte in der aktiven Mappe funktionieren.
Ich danke schonmal im Voraus!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text hinzufügen
19.02.2020 10:13:50
Matthias
Hallo
Als Ansatz: 
ActiveCell.Replace What:=ActiveCell, Replacement:="S_" & ActiveCell, LookAt:=xlPart
Gruß Matthias
AW: Text hinzufügen
19.02.2020 10:36:17
Marc
Okay danke!
aber ich meinte in der Ganzen Spalte C und das ab Zeile 2.
AW: Text hinzufügen
19.02.2020 10:40:09
Marc
Erledigt danke!
AW: Text hinzufügen
19.02.2020 10:17:57
Raimund
Hi Marc.
Sub hinzufügen()
Dim Zelle As Range
For Each Zelle In Range("C2:C100") 'hier den Zielbereich eingeben
Zelle.Value = "S_" & Zelle.Value
Next Zelle
End Sub

Gruß
Raimund
AW: Text hinzufügen
19.02.2020 10:39:17
Marc
Okay danke!
Damit kann ich arbeiten...
AW: Text hinzufügen
19.02.2020 11:14:33
Raimund
Hi Marc.
Oder so:
Sub hinzufügen()
Dim Zelle As Range
Dim lngLetzte As Long
lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows.Count)
For Each Zelle In Range("C2:C" & lngLetzte)
Zelle.Value = "S_" & Zelle.Value
Next Zelle
End Sub

Gruß
Raimund
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige