Wie kann ich innerhalb eines VBA Code erreichen, dass wenn in den Zellen A1:A5 ein Wert steht
ein (*) vor dem Wert gesetzt wird.
Nur bei Zelle die einen Wert haben die anderen nicht.
z.b. vorher 315
nachher *315
Danke für die Hilfe
Gruss
Steve
Sub SternEinfuegen()
Dim MeAr
Dim LCount As Long
Dim rBereich As Range
'A2 wenn A1 eine Überschrift, sonst A1
Set rBereich = Range("A2", Cells(Rows.Count, 1).End(xlUp))
MeAr = rBereich
For LCount = 1 To Ubound(MeAr)
If MeAr(LCount, 1) <> "" And Not MeAr(LCount, 1) Like "[*]*" Then _
MeAr(LCount, 1) = "*" & MeAr(LCount, 1)
Next LCount
rBereich = MeAr
End Sub
Gruß Tino