Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Bereich mehrere Blätter löschen Array

Betrifft: Bereich mehrere Blätter löschen Array von: Silvi
Geschrieben am: 08.09.2004 15:28:18

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

  


Betrifft: AW: Bereich mehrere Blätter löschen Array von: geri
Geschrieben am: 08.09.2004 15:38:18

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


  


Betrifft: AW: Bereich mehrere Blätter löschen Array von: Beate Schmitz
Geschrieben am: 08.09.2004 15:49:20

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


  


Betrifft: AW: Bereich mehrere Blätter löschen Array von: Silvi
Geschrieben am: 08.09.2004 16:06:25

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


  


Betrifft: AW: Bereich mehrere Blätter löschen Array von: Nepumuk
Geschrieben am: 08.09.2004 16:57:12

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


  


Betrifft: AW: Bereich mehrere Blätter löschen Array von: Bert
Geschrieben am: 08.09.2004 18:32:12

"Auch den Datentyp Byte geb es in Excel97 noch nicht"

?????????????????????????????????????????????????????

Bert


 

Beiträge aus den Excel-Beispielen zum Thema "Bereich mehrere Blätter löschen Array"