Frage zu Range
14.04.2006 17:05:22
Jürgen
habe da mal eine kleine Frage. Mit folgendem Code füge ich vor jeden Eintrag in einer Zelle ein Hochkomma ein. Nachteil ist aber, dass jede Zelle separat angesprungen und bearbeitet wird.
Public
Sub Hochkomma_einfügen()
Dim strFertig As String
Do Until ActiveCell.Value = ""
strFertig = "'" & ActiveCell.Value
ActiveCell.Value = strFertig
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Jetzt wollte ich das mit "Range" probieren, weiß aber die Befehlszeile nicht.
Public
Sub Bereich2()
Dim rng As Range
Set rng = Selection
With rng '.? muss hier noch was hin? oder reicht rng
'Hier möchte ich gerne in jeder Zelle ein
'Hochkomma vor dem Wert haben.
End With
End Sub
Kann mir vielleicht jemand diese Zeile nennen?
Danke im voraus, Gruß Jürgen