Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
348to352
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Sheets nutzen

Alle Sheets nutzen
08.12.2003 11:08:50
Frodo
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

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Sheets nutzen
08.12.2003 11:11:14
Nike
Hi,

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


Bye

Nike
AW: Alle Sheets nutzen
08.12.2003 11:12:26
Tom
Ok. dein vorschlag ist besser ;).
AW: aber..
08.12.2003 11:16:45
Galenzo
.. nur wenn du alle Blätter willst...
AW: Alle Sheets nutzen
08.12.2003 11:11:44
Tom
einfach eine schleife nehmen und durchlaufen lassen :

for i=anfang to ende
Sheets(i).Select
Columns("A:D").Select
Selection.ClearContents
Next i
AW: Alle Sheets nutzen
08.12.2003 11:16:19
Josef Ehrensberger
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
Anzeige
wieder zu langsam! o.T.
08.12.2003 11:17:31
Josef Ehrensberger
/
AW: dafür ausführlich, daher Kopf hoch ;-)
08.12.2003 11:23:26
Nike
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
AW: nur für bestimmte Sheets
08.12.2003 11:24:10
Frodo
Ja es sollte nur für bestimmte Sheets genutzt werden, nicht für alle.
Danke ich probier gleich mal :)

Frodo
AW: nur für bestimmte Sheets
08.12.2003 11:56:13
Karl-Otto Reimann
Hallo Frodo
versuch 'mal dies:

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

Gruß KO

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige