Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bestimmte Zellen auf allen Datenblättern löschen

Bestimmte Zellen auf allen Datenblättern löschen
23.06.2005 23:10:06
Dirk
Hallo zusammen,
habe ein Problem beo dem ich nicht weiterkomme.
Ich möchte in Tabelle 10 einen Button klicken, so dass die Zellen A1:F20 in den Tabellen 1-9 gelöscht werden.
hat da jemand ne Idee ?
Excel gut - VBA fortgeschrittener anfänger.
Gruß Dirk

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zellen auf allen Datenblättern löschen
23.06.2005 23:50:39
Beni
Hallo Dirk,
Gruss Beni

Sub Dirk()
Dim s  As String
Dim sh As Integer
For sh = 1 To 9
With Sheets("Tabelle" & sh)
Range(.Cells(1, 1), .Cells(20, 6)) = ""
End With
Next sh
End Sub

AW: Bestimmte Zellen auf allen Datenblättern löschen
24.06.2005 00:13:44
Dirk
Range für das Objekt Worksheet fehlgeschlagen.
Habe es schonmal mit einer Rangefunktion Versucht wie nun auch mit Deiner Version
Bekomme aber immer den Fehler
Gruß
Dirk
AW: Bestimmte Zellen auf allen Datenblättern lösch
24.06.2005 00:23:02
Matthias
Hallo Dirk,

Sub Dirk()
Dim s  As String
Dim sh As Integer
For sh = 1 To 9
With Sheets("Tabelle" & sh)
.Range(.Cells(1, 1), .Cells(20, 6)) = ""
End With
Next sh
End Sub

Ein keines Pünktchen vor Range...
Wobei ich sagen muss, unter Excel XP läuft es auch ohne Punkt.
Gruß Matthias
Anzeige
AW: Bestimmte Zellen auf allen Datenblättern lösch
24.06.2005 00:29:26
Dirk
Danke Dir Mathias
AW: Bestimmte Zellen auf allen Datenblättern löschen
24.06.2005 00:21:27
PeterW
Hallo Dirk,
schau dir das mal an:

Sub Dirk()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Range("A1:F20").ClearContents
Next
End Sub

Gruß
Peter
AW: Bestimmte Zellen auf allen Datenblättern löschen
24.06.2005 00:28:09
Dirk
Du bist der Hammer Peter !
Super ich Danke Dir und dem Beni natürlich auch .
Jetzt kann ich ruhig schlafen ;-)
Gute N8

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige