Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Bereiche von bestimmten Tab.Blätt. löschen

Forumthread: Bereiche von bestimmten Tab.Blätt. löschen

Bereiche von bestimmten Tab.Blätt. löschen
09.11.2005 20:48:22
bestimmten
Hallo Leute
Möchte vom Tab.Blatt"Einstellungen" aus die untenstehenden Bereiche von Tab.Blättern "Jänner" bis "Dezember" löschen.
Wie würde BITTE der richtige Code lauten.
Danke Heinz

Private Sub CommandButton1_Click()
Range("D6:P36,D50:P80,D94:P124,D138:P168,D182:P212,D226:P256,D270:P300,D314:P344,D358:P388,D402:P432,D446:P476,D490:P520").Select
Selection.ClearContents
End Sub

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereiche von bestimmten Tab.Blätt. löschen
09.11.2005 21:41:12
bestimmten
Hallo,
Option Explicit
Option Base 1

Private Sub CommandButton1_Click()
Dim arr, i As Byte
arr = Array("Jänner", "Februar", "März") 'usw. bis Dezember
For i = 1 To 3 'hier muss dann 12 stehen
Sheets(arr(i)).Range("D6:P36,D50:P80,D94:P124,D138:P168,D182:P212,D226:P256,D270:P300,D314:P344,D358:P388,D402:P432,D446:P476,D490:P520").ClearContents
Next
End Sub

Gruß K.Rola
Anzeige
AW: Bereiche von bestimmten Tab.Blätt. löschen
10.11.2005 08:09:41
bestimmten
Guten morgen K.Rola
Danke für Deine Hilfe.Funkt.wunderbar
Gruss Heinz
AW: Bereiche von bestimmten Tab.Blätt. löschen
09.11.2005 21:46:08
bestimmten

Private Sub CommandButton1_Click()
Dim myRng As Range, lShtCnt&
Set myRng = Range("D6:P36,D50:P80,D94:P124,D138:P168,D182:P212,D226:P256,D270:P300,D314:P344,D358:P388,D402:P432,D446:P476,D490:P520")
For lShtCnt = 1 To Worksheets.Count
Select Case LCase(Sheets(lShtCnt).Name)
Case "jänner" 'hier noch die anderen Monate eintragen
myRng.Clear
Case Else
End Select
Next lShtCnt
End Sub

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige