Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text hinzufügen

Forumthread: 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!
Anzeige

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

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