Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1368to1372
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
Inhaltsverzeichnis

VBA: alle Blätter durchgehen

VBA: alle Blätter durchgehen
30.06.2014 12:59:30
Hewad

Hallo zusammen,
was mache ich eigentlich hier falsch. Die Schleife soll alle Blätter durchlaufen und in der Zelle "A1", in jedem einzelnen Blatt des Arbeitsmappe, eine 1 einfügen.
Mit diesem Code geschieht es nur im ersten Sheet.
Vielen Dank im Voraus

Sub WorksheetLoop()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
Range("A1").FormulaR1C1 = "1"
Next I
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: alle Blätter durchgehen
30.06.2014 13:04:34
hary
Moin
Worksheets(I).Range("A1").FormulaR1C1 = "1"
gruss hary

AW: VBA: alle Blätter durchgehen
30.06.2014 13:06:00
Hajo_Zi
Du schreibst es immer in das Aktive.
Es fehlt
Worksheets().
warum Formula, muss uns nicht klar sein.
Warum Text auch nicht.

AW: VBA: alle Blätter durchgehen
30.06.2014 13:06:21
UweD
hallo
so....
Sub WorksheetLoop()
Dim WS
For Each WS In ActiveWorkbook.Sheets
WS.Range("A1").FormulaR1C1 = "1"
Next
End Sub
Gruß UweD

AW: VBA: alle Blätter durchgehen
04.07.2014 11:31:14
Hewad
vielen herzlichen Dank zusammen!!!

AW: VBA: alle Blätter durchgehen
04.07.2014 14:05:43
UweD
Hallo
...
Worksheets(I).Range("A1").FormulaR1C1 = "1"
...

Oder kürzer:
Sub WorksheetLoop2()
Dim WS
For Each WS In ActiveWorkbook.Worksheets
WS.Range("A1").FormulaR1C1 = "1"
Next
End Sub
Gruß UweD

Anzeige

148 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige