Verkürzung möglich?
31.08.2003 09:43:51
Erich M.
ich möchte in einer Datei für bestimmte Tabellen u.a. die Inhalte löschen.
Da nur bestimmte Tabellen betroffen sind, muss ich diese bestimmen.
Derzeit mache ich das so, es geht aber bestimmt noch kürzer, da ich
viermal den gleichen Text wiederhole:
Sub Leeren_Start()
Worksheets("Fehlende").Activate
Cells.Clear
Range("2:8").Select
Selection.RowHeight = 13
Columns("A:D").Select
Selection.ColumnWidth = 11
ActiveWindow.FreezePanes = False
Worksheets("NichtGefunden").Activate
Cells.Clear
Range("2:8").Select
Selection.RowHeight = 13
Columns("A:D").Select
Selection.ColumnWidth = 11
ActiveWindow.FreezePanes = False
Worksheets("Gefunden").Activate
Cells.Clear
Range("2:8").Select
Selection.RowHeight = 13
Columns("A:D").Select
Selection.ColumnWidth = 11
ActiveWindow.FreezePanes = False
Worksheets("Doppelte").Activate
Cells.Clear
Range("2:8").Select
Selection.RowHeight = 13
Columns("A:D").Select
Selection.ColumnWidth = 11
ActiveWindow.FreezePanes = False
Range("A1").Select
End Sub
Code eingefügt mit: Excel Code Jeanie
Besten Dank für eine Hilfe!
mfg
Erich
Anzeige