Alle Sheets nutzen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Alle Sheets nutzen
von: Frodo
Geschrieben am: 08.12.2003 11:08:50

Guten Morgen,

ich habe ein Miniscript, mit dem ich Inhalte von Sheets löschen will.
Im Moment funktioniert es nur für eines, nur wollte ich gern mit diesem einen Button mehrere Sheets ansprechen (im Moment nur Sheet xyz):


Private Sub CommandButton8_Click()
    Sheets("xyz").Select
    Columns("A:D").Select
    Selection.ClearContents
End Sub



Grüße und Dank,
Frodo
Bild


Betrifft: AW: Alle Sheets nutzen
von: Nike
Geschrieben am: 08.12.2003 11:11:14

Hi,

Sub loesch()
dim wks as worksheet
for each wks in activeworkbook.worksheets
wks.Columns("A:D").ClearContents
next
End Sub


Bye

Nike


Bild


Betrifft: AW: Alle Sheets nutzen
von: Tom
Geschrieben am: 08.12.2003 11:12:26

Ok. dein vorschlag ist besser ;).


Bild


Betrifft: AW: aber..
von: Galenzo
Geschrieben am: 08.12.2003 11:16:45

.. nur wenn du alle Blätter willst...


Bild


Betrifft: AW: Alle Sheets nutzen
von: Tom
Geschrieben am: 08.12.2003 11:11:44

einfach eine schleife nehmen und durchlaufen lassen :

for i=anfang to ende
Sheets(i).Select
Columns("A:D").Select
Selection.ClearContents
Next i


Bild


Betrifft: AW: Alle Sheets nutzen
von: Josef Ehrensberger
Geschrieben am: 08.12.2003 11:16:19

Hallo Frodo,

wenn du das Makro für alle Sheets verwenden willst,
dann z.B. so.


Private Sub CommandButton8_Click()
Dim wksh as WorkSheet
For Each wksh in ThisWorkbook.Sheets
    wksh.Columns("A:D").ClearContents
Next
End Sub


Wenn Du nur bestimmte Blätter ansprechen willst,
dann z.B. so.


Private Sub CommandButton8_Click()
Dim intC as Integer
For intC = 3 to 7  'Blatt 3 bis 7 (Index)
    Sheets(intC).Columns("A:D").ClearContents
Next
End Sub


Gruß Sepp


Bild


Betrifft: wieder zu langsam! o.T.
von: Josef Ehrensberger
Geschrieben am: 08.12.2003 11:17:31

/


Bild


Betrifft: AW: dafür ausführlich, daher Kopf hoch ;-)
von: Nike
Geschrieben am: 08.12.2003 11:23:26

Hi,

Deine Antwort kam zwar später, hat aber doch ihr gutes,
da sie noch ausführlicher ist, daher ist es doch ganz ok...

Bye

Nike


Bild


Betrifft: AW: nur für bestimmte Sheets
von: Frodo
Geschrieben am: 08.12.2003 11:24:10

Ja es sollte nur für bestimmte Sheets genutzt werden, nicht für alle.
Danke ich probier gleich mal :)

Frodo


Bild


Betrifft: AW: nur für bestimmte Sheets
von: Karl-Otto Reimann
Geschrieben am: 08.12.2003 11:56:13

Hallo Frodo
versuch 'mal dies:

Sub Blatt_select()
    Sheets(Array("Tab1", "Tab4",))Select
End Sub

Gruß KO


Bild

Beiträge aus den Excel-Beispielen zum Thema " Datei Speichern"