Range in allen ausgewählten Tabellen ClearContens
Peter
Ich habe eine Datei mit zahlreichen gleichen Tabellen.
Nun möchte ich in allen Tabellen gleichzeitig in bestimmten Bereichen die Daten löschen.
Doch obwohl ich eine Mehrfachauswahl habe, werden die Bereiche nur in der aktiven Tabelle geleert.
Wie muss ich den Code anpassen, dass beim Löschen alle ausgewählten Tabellen mitberücksichtigt werden?
Der ermittelte Bereich, in Range("ContentsWeg" ist beispielsweise
$G$6:$G$67,$Q$6:$W$67,$Y$6:$Y$67,$AA$6:$AA$67,$AC$6:$AI$67,$AK$6:$AL$67
Danke und Gruss, Peter
Sub BestimmteInhalteWeg()
Dim rGross As Range, sSH As String
''''alle betroffenen Tabellen werden ausgewählt - Mehrfachauswahl
Call Tagestabellen
''''Range wird definiert, der in allen Tabellen zu löschen ist
Call DefBereichNichtinBereich(RGross, "ContentsWeg", sSH, "Fix")
Range("ContentsWeg").ClearContents
End Sub