Makro das 52 Tabellenblätter ändert

Forumthread: Makro das 52 Tabellenblätter ändert

01.12.2003 11:48:51

Markus H.

Moin!

ich habe mir dieses Script aufgezeichnet:

Range( _
"D4,F4,H4,J4,L4,N4,N9,L9,J9,H9,F9,D9,D14,F14,H14,J14,L14,N14,N19,L19,J19,H19,F19,D19" _
).Select
Range("D19").Activate
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="u;f;s;u, a;f, a;s, a;x;k"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte Zeichen aus auswählen!"
.ShowInput = True
.ShowError = True

und habe dazu 52 Tabellenblätter (1.KW - 52.KW) über die das Script laufen soll.

wie stlel ich das am günstigsten an?

(das script sollte sich nach seiner ausführung automatisch löschen)

MfG

Markus

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro das 52 Tabellenblätter ändert

01.12.2003 11:53:51

Nike
AW: Makro das 52 Tabellenblätter ändert

01.12.2003 12:00:45

Markus H.
geht nit..

01.12.2003 13:02:03

Markus H.
AW: Was geht nit?

01.12.2003 13:05:13

Nike
AW: Was geht nit?

01.12.2003 13:50:11

Markus H.
AW: Was geht nit?

01.12.2003 14:13:08

Nike
Teillösung

01.12.2003 11:56:40

Russi

AW: Makro das 52 Tabellenblätter ändert

01.12.2003 11:53:51

Nike

Hi,


Sub loescher()
Dim wks As Worksheet
For i = 1 To 52
Set wks = Worksheets(i)
With wks.Range( _
"D4,F4,H4,J4,L4,N4,N9,L9,J9,H9,F9,D9,D14,F14,H14,J14,L14,N14,N19,L19,J19,H19,F19,D19" _
).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="u;f;s;u, a;f, a;s, a;x;k"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte Zeichen aus auswählen!"
.ShowInput = True
.ShowError = True
End With
Next
End Sub

Aber vielleicht sollte ich warten bis Hajo sich auf deine andere
Anfrage gemeldet hat ;-)

Bye

Nike

AW: Makro das 52 Tabellenblätter ändert

01.12.2003 12:00:45

Markus H.

moin.

ja eigentlich hast recht! aber ich steh enorm unter zeitdruck! udn der fehler ist mir heute erst aufgefallen!

thx erst ma!

geht nit..

01.12.2003 13:02:03

Markus H.

der script geht nicht.. :(

AW: Was geht nit?

01.12.2003 13:05:13

Nike

Hi,
ein bischen genauer mußt du schon schreiben, was wo nicht funkt,
über die Schulter kann ich dir nicht schauen...
Hast du die Blätter von der ersten bis zu 52ten sortiert und entschützt???

Ansonsten poste mal die Datei...

Bye

Nike

AW: Was geht nit?

01.12.2003 13:50:11

Markus H.

Der Script wird nicht ausgeführt..

ich habe die zellen die verändert werden nicht zellgeschützt..

und die Tabellenblätter heißen 1.KW

bis

52.KW

die datei wäre leicht zu groß^^

:D

mfg

AW: Was geht nit?

01.12.2003 14:13:08

Nike

Hi,

dann mal so versuchen
For i = 1 To 52
Set wks = Worksheets(i & ".KW")

Ansonsten mußt du ggf die Tabelle entsperren,
auch wenn die eigentlichen Zellen nicht gesperrt sind,
nur damit du auf der Tabelle "rumfingern" kannst ;-)

Das mit der Größe sollte per .zip kein Problem darstellen ;-)

Bye

Nike

Teillösung

01.12.2003 11:56:40

Russi

Hallo Markus!

Packe Deinen Code in eine Schleife:

Dim TabBlatt as Integer
For TabBlatt = 1 to 52
Sheets(TabBlatt).Select

[Dein Code]

Next TabBlatt

Leider weiß ich nicht, wie man den Makrocode nach Ausführung löschen kann, sorry!

Russi

Beliebteste Forumthreads (12 Monate)

Makro das 52 Tabellenblätter ändert

Forumthread: Makro das 52 Tabellenblätter ändert

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread