Das Archiv des Excel-Forums

formate per makro auf default zurücksetzen



Excel-Version: 97
nach unten

Betrifft: formate per makro auf default zurücksetzen
 von: rainer
Geschrieben am: 11.04.2002 - 09:58:07

Hallo! Wie kann ich per Makro für einen bestimmten Bereich (Range("A1:A5") ) die Formate für Zellinnenfarben und Rahmen auf default zurücksetzen (soll leer sein und keine Linien haben)?
Danke schon mal im voraus
nach oben   nach unten

Re: formate per makro auf default zurücksetzen
 von: Peter H. Erdmann
Geschrieben am: 11.04.2002 - 10:10:48

Hallo

Sub default()
'
' Makro1 Makro
' Makro am 11.04.2002 von Peter H. Erdmann aufgezeichnet
'
Range("A10:A21").Select
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

Gruß aus dem Land der Bayern
Peter

 nach oben
Excel-Beispiele zum Thema "formate per makro auf default zurücksetzen"
Eingabeerleichterung bei Zeitformaten Werte nur mit Zahlenformaten übertragen
Werte aus UserForm-TextBox in bestimmten Formate übertragen Datenmaske mit landesspzifischen oder US-Formaten aufrufen
Tabelle gem. hinterlegten Zahlenformaten formatieren Alle Formate jenseits der letzten benutzten Zelle löschen
Bei UserForm-TextBox-Eingaben Formate erzwingen Auslesen der aktuell in der Zwischenablage vorhandenen Formate
Formate und Zellinhalte ausblenden