Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zeichen anfügen

Forumthread: zeichen anfügen

zeichen anfügen
26.01.2005 10:47:09
x_ray2005
hallo, ich habe eine exceltabelle mit 7 spalten und darin stehenden daten. nun möchte ich jeweils an den anfang und an das ende einer jeden spalte ein zeichen einfügen, wenn geht automatisch, da es über 800 ds sind. kann mir jemand helfen, wie ich das machen könnte?
danke schon mal
mfg
x_ray
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zeichen anfügen
26.01.2005 11:37:53
Roland
Hallo x_ray,
da du von 800 ds sprichst, nehme ich an du meinst, in jeder Zelle am Anfang und am Ende Zeichen hinzuzufügen. Dann müsste es das tun:

Sub ZeichenHinzufügen()
Dim rng As Range, Zeichen1 As String, Zeichen2 As String
Zeichen1 = "A"
Zeichen2 = "999"
For Each rng In ActiveSheet.UsedRange
rng.Value = Zeichen1 & rng.Value & Zeichen2
Next
End Sub

Feedback wäre nett :-)
Gruß Roland
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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