Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Verkürzung möglich?

Verkürzung möglich?
31.08.2003 09:43:51
Erich M.
Hallo zusammen,

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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verkürzung möglich?
31.08.2003 09:59:09
Josef Ehrensberger
Morgen Erich,

eine verkürzte Variante könnte so aussehen:


Sub Leeren_Start()
Dim myArr As Variant
Dim Icnt As Integer
myArr = Array("Fehlende", "NichtGefunden", "Gefunden", "Doppelte")
Application.ScreenUpdating = False
For Icnt = 0 To 3
With Worksheets(myArr(Icnt))
.Activate
Cells.Clear
Range("A2:D8").RowHeight = 13
Range("A2:D8").ColumnWidth = 11
ActiveWindow.FreezePanes = False
End With
Next
Application.ScreenUpdating = True
End Sub


Vieleicht kannst Du anstelle eines Arrays auch mit dem
Sheets-Index arbeiten.

Ich hoffe es hilft Dir weiter,

Gruß Sepp
Anzeige
DANKE - Sepp: funktioniert perfekt!! o.T.
31.08.2003 10:34:46
Erich M.
.
Danke für die Rückmeldung! o.T.
31.08.2003 10:51:03
Josef Ehrensberger
o.T.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige