Zelleninhalt löschen und auf standard
Betrifft: Zelleninhalt löschen und auf standard
von: Andy
Geschrieben am: 16.08.2004 14:51:09
Hi Freunde der VBA,
habe einen VBA Code um bei Aktiven Zellen den Inhalte zu löschen. Das Problem ist das er mir die Farbe die vorher in der Zelle war nicht ändert auf Standard schwarz und nicht Fett. Kann mir jemand helfen das wenn ich den Zelleninhalt lösche das Format der Zelle auf Schrift Schwarz und nicht Fett oder Kursiv also Standard gesetzt wird.
Sub Zelleleeren()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Locked = False Then Zelle = xlPlotted
Next Zelle
End
Sub
Hoffe ihr könnt mir helfen
Gruß Andreas
Betrifft: AW: Zelleninhalt löschen und auf standard
von: Ulf
Geschrieben am: 16.08.2004 14:56:29
Wo hast du denn diese Konstante her, xlPlotted?
Sub Zelleleeren()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Locked = False Then Zelle.clear
Next Zelle
End
Sub
Ulf
Betrifft: Danke Ulf . O.T.
von: Andreas
Geschrieben am: 16.08.2004 15:22:32
o.T
Betrifft: AW: Zelleninhalt löschen und auf standard
von: harry
Geschrieben am: 16.08.2004 15:03:36
hi andreas,
Sub Zelleleeren()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Locked = True Then
Zelle.Clear
Zelle.ColorIndex = xlAutomatic
Zelle.Font.Bold = False
Zelle.Font.Italic = False
End If
Next Zelle
End Sub
liebe grüße,
harry
Beiträge aus den Excel-Beispielen zum Thema "Zelleninhalt löschen und auf standard"