Tabellenblatt alle Formate bereinigen

Alles so schön bunt hier!

Dieses Motto trifft häufig auf Tabellen zu, welche aus SAP Systemen exportiert wurden.

Hier übergibt SAP (aber auch andere Fremdsysteme) oft wild Farben und Formatierungen.

Um diese vor der Weiterverarbeitung zu bereinigen nutze ich dieses nachstehende Makro. Sub Formateweg() Application.ScreenUpdating = False 'RAHMEN ENTFERNEN With ActiveSheet.UsedRange.Cells .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlNone .Borders(xlEdgeRight).LineStyle = xlNone .Borders(xlInsideVertical).LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlNone End With 'HINTERGRUNDFARBEN WEG With ActiveSheet.UsedRange.Cells.Interior .Pattern = xlNone End With 'SCHRIFTFARBE AUF STANDARD (IDR SCHWARZ) With ActiveSheet.UsedRange.Cells.Font .ColorIndex = xlAutomatic End With 'Diese Formatbereinigung lässt sich natürlich beliebig erweitern 'Zeichnen Sie den entsprechenden Vorgang mit dem Recorder auf und nehmen 'den Code entsprechend hier im Makro mit auf 'Cursor an den Beginn des Tabellenblattes setzen Range("A1").Select Application.ScreenUpdating = True End Sub

Es bereinigt die Farben (zurücksetzen auf Muster – ohne) entfernt Rahmen und Schattierungen und setzt die Schriftart auf die Standardfarbe. Dies lässt sich je nach Bedarf natürlich einfach erweitern.Share on Facebook

Read more http://vba-codeschnipsel.de/tabellenblatt-alle-formate-bereinigen/