Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro, dass alle Tabellenblätter bearbeitet

Makro, dass alle Tabellenblätter bearbeitet
26.04.2006 15:50:31
holden
Hallo,
ich möchte ein Makro schreiben, dass in allen Tabellenblättern die Spalte y löscht.
Mit dem folgenden Makro funktioniert es nur in einem Tabellenblatt:

Sub bereinigen()
Dim  n As Integer
For n = 3 To Worksheets.Count
With Worksheets(n)
Application.ScreenUpdating = False
Columns("Y:Y").Select
Selection.Delete Shift:=xlToLeft
End With
Next
Application.ScreenUpdating = True
End Sub

Weiß jemand, wo der Fehler liegt?
Habe Ähnliches noch mit einzelnen Zellen vor.
Danke für Tipps
Florian

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

Betreff
Datum
Anwender
Anzeige
AW: Makro, dass alle Tabellenblätter bearbeitet
26.04.2006 15:56:03
u_
Hallo,
bei deinem Makro müsstest du erst noch das Sheet selecten.

Sub bereinigen()
Dim  n As Integer
Application.ScreenUpdating = False
For n = 3 To Worksheets.Count
With Worksheets(n)
.Columns("Y:Y").Delete Shift:=xlToLeft
End With
Next
Application.ScreenUpdating = True
End Sub

Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
AW: Makro, dass alle Tabellenblätter bearbeitet
26.04.2006 15:56:43
Leo

Sub bereinigen()
Dim  n As Integer
Application.ScreenUpdating = False
For n = 3 To Worksheets.Count
Worksheets(n).Columns("Y:Y").delete
Next
Application.ScreenUpdating = True
End Sub

Select und activate sind fast nie nötig.
mfg Leo
Anzeige
Danke!!!
26.04.2006 22:16:24
holden
Den . vor columns hab ich wohl vergessen.
@ Leo: die selects und activates kommen aus dem Makrorekorder. Deine Lösung ist natürlich eleganter. Taste mich gerade erst an VBA heran.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige