Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
552to556
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
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige