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
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