Microsoft Excel

Herbers Excel/VBA-Archiv

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"