Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

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"


 

 

Eine Tabelle periodisch mit dem Standard-Emailprogramm versenden
  

Bei Öffnen Standardschriftgröße prüfen und Zoom festlegen
  

 



Löschen von Code aus Klassen- und Standardmodulen
  

Makros aus einem Standardmodul in ComboBox einlesen
  

 



Standardmailprogramm über Word feststellen
  

Arbeitsblatt mit Standardmodul in neue Arbeitsmappe kopieren
  

 



Arbeitslblatt-Menü-, Format- und Standardsymbolleiste einblenden