Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bereich mehrere Blätter löschen Array

Bereich mehrere Blätter löschen Array
08.09.2004 15:28:18
Silvi
Hallo!
Komm grad nicht weiter. Möchte in einer Datei bestehend aus mehreren Blättern den Bereich A3:A400 löschen, funktioniert aber nur immer in einem Blatt. Kann mir jemand helfen?
...
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Range("A3:A400").select
selection.ClearContents
Sheets("Tabelle1").Activate
'hier soll anschließend wieder was reinkopiert werden
Range("A2").Select
ActiveSheet.Paste
Krieg das einfach nicht hin!
Gruß
Silvi
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich mehrere Blätter löschen Array
geri
Silvi
mit XP ist Code i.O und funkt, kann mit 97 nicht testen
könnte es sein das ARRAY im 97 anders gehandhabt wird ?
gehe doch auf Begriff ARRAY in VBA und drücke F1 (Hilfe)
gruss geri
AW: Bereich mehrere Blätter löschen Array
Beate
Hallo Silvi,
dieser Code löscht Inhalt Zellen A3:A400 in allen Blättern:

Sub Alle_Blätter_Bereich_löschen()
Dim j As Byte
For j = 1 To Worksheets.Count
With Worksheets(j).Range("A3:A400").ClearContents
End With
Next
'Hier dein Restcode
End Sub

Gruß,
Beate
Anzeige
AW: Bereich mehrere Blätter löschen Array
Silvi
Hallo Beate!
Vielen Dank erstmal. Leider funktioniert es noch nicht so ganz
Bei: With Worksheets(j).Range("A3:A400").ClearContents
kommt immer Fehlermeldung "Object erforderlich"
Gruß
Silvi
AW: Bereich mehrere Blätter löschen Array
08.09.2004 16:57:12
Nepumuk
Hallo Silvi,
da war Beate etwas zu großzügig mit der With - Anweisung. Auch den Datentyp Byte geb es in Excel97 noch nicht. Und nicht jedes Sheet ist ein Worksheet mit Zellen. So sollte es laufen:


Sub Alle_Blaetter_Bereich_loeschen()
    Dim myWorksheet As Worksheet
    For Each myWorksheet In ThisWorkbook.Worksheets
        myWorksheets.Range("A3:A400").ClearContents
    Next
    'Hier dein Restcode
End Sub


Gruß
Nepumuk
Anzeige
AW: Bereich mehrere Blätter löschen Array
Bert
"Auch den Datentyp Byte geb es in Excel97 noch nicht"
?
Bert
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige