Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
468to472
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
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ein makro für 3 verschiedene Blätter?

ein makro für 3 verschiedene Blätter?
16.08.2004 20:56:12
dieter-j
Hallo Forum,
ich habe eine arbeitsmappe mit drei tabellenblättern.
Und ein makro, das auf wunsch zellinhalte löscht.
Die Zellnummern (A1 etc) die glöscht werden sollen
unterscheiden sich aber in den einzelnen blättern.
So soll in einem Blatt die Zellen c26:r28 gelöscht werden.
im anderen Blatt die zellen c27:r29.
wie kann ich das machen?
hier mein makro;
Sub inhaltlöschen()
Set Bereich =
Range("c27:r29,c32:r34,j51:j54,s41,s42,s48,u23,q62,q63")
Bereich.ClearContents
E

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ein makro für 3 verschiedene Blätter?
Reinhard
Hi Dieter,
probiers mal so:

Sub inhaltlöschen()
with worksheets("Tabelle1")
Set Bereich = .Range("c27:r29,c32:r34,j51:j54,s41,s42,s48,u23,q62,q63")
Bereich.ClearContents
end with
with worksheets("Tabelle2")
Set Bereich = .Range("c27:r29,c32:r34,j51:j54,s41,s42,s48,u23,q62,q63")
Bereich.ClearContents
end with
with worksheets("Tabelle3")
Set Bereich = .Range("c27:r29,c32:r34,j51:j54,s41,s42,s48,u23,q62,q63")
Bereich.ClearContents
end with
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige