Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.11.2025 15:24:59
Welche Masseinheit zeigt die Zeilenhöhe
08.11.2025 06:12:31
Automatisierte Grafische Lösung -Preisvergleich/ Ersparnis
07.11.2025 12:58:46
Fehlersuche Ereignismakro
07.11.2025 12:34:41
Datum aus Blatt- und Dateinamen bilden.
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
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