Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Bereiche von bestimmten Tab.Blätt. löschen
09.11.2005 19: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

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 20: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
AW: Bereiche von bestimmten Tab.Blätt. löschen
10.11.2005 07: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 20: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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige