Microsoft Excel

Herbers Excel/VBA-Archiv

ein makro für 3 verschiedene Blätter?

Betrifft: ein makro für 3 verschiedene Blätter? von: dieter-j
Geschrieben am: 16.08.2004 20:56:12

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

  


Betrifft: AW: ein makro für 3 verschiedene Blätter? von: Reinhard
Geschrieben am: 16.08.2004 21:10:41

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



 

Beiträge aus den Excel-Beispielen zum Thema "ein makro für 3 verschiedene Blätter?"