Datum

Titel

25.04.2024 23:47:55

Datum ausweisen, wenn definierte Summe erreicht ist

25.04.2024 21:40:53

Excel Datenquelle aus dem Web mit Anmeldung?

25.04.2024 21:21:16

Zellkommentar in UserForm anzeigen und bearbeiten

25.04.2024 21:13:13

Kalenderwochen addieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1192to1196

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

In verschiedene Tabellenblättern Inhalte ändern

Forumthread: In verschiedene Tabellenblättern Inhalte ändern
5 Beiträge zu diesem Forumthread
Anzeige
299 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

Jörn

Hallo,
Kann mir jemand helfen?
wie ändere ich den unten stehenden Code so ab, das ich nicht in den Tabellenblättern 2-13 Inhalte verändere, sondern in den Blättern 2,4,6,8,9,11 und 13.

Sub Makro()
For i = 2 To 13
ThisWorkbook.Sheets(i).Range("C15:C45").Value = "x"
ThisWorkbook.Sheets(i).Range("D15:D45,E15:E45").Value = "0"
ThisWorkbook.Sheets(i).Range("J15:J45").ClearContents
Next
End Sub

Vielen Dank im voraus
Jörn

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: In verschiedene Tabellenblättern Inhalte ändern

Rudi
Bsp: mach 2 Schleifen mit Step 2

Matthias
AW: Bsp: mach 2 Schleifen mit Step 2

Jörn
das Risiko ...

Rudi
AW: das Risiko ...

Jörn

AW: In verschiedene Tabellenblättern Inhalte ändern

06.01.2011 13:50:57

Rudi

Hallo,

Sub Makro()
Dim i
For Each i In Array(2, 4, 6, 8, 9, 11, 13)
With ThisWorkbook.Sheets(i)
.Range("C15:C45").Value = "x"
.Range("D15:D45,E15:E45").Value = "0"
.Range("J15:J45").ClearContents
End With
Next i
End Sub

Gruß
Rudi

Bsp: mach 2 Schleifen mit Step 2

06.01.2011 13:52:39

Matthias

Hallo
hier eine Variante (nicht getestet)

Sub Makro()
For i = 2 To 8 Step 2
ThisWorkbook.Sheets(i).Range("C15:C45").Value = "x"
ThisWorkbook.Sheets(i).Range("D15:D45,E15:E45").Value = "0"
ThisWorkbook.Sheets(i).Range("J15:J45").ClearContents
Next
For i = 9 To 13 Step 2
ThisWorkbook.Sheets(i).Range("C15:C45").Value = "x"
ThisWorkbook.Sheets(i).Range("D15:D45,E15:E45").Value = "0"
ThisWorkbook.Sheets(i).Range("J15:J45").ClearContents
Next
End Sub

Obwohl das Ansprechen der Blätter über deren Index immer ein gewisses Risiko hat.
Gruß Matthias

AW: Bsp: mach 2 Schleifen mit Step 2

06.01.2011 14:59:20

Jörn

Hallo Rudi und Matthias,
vielen Dank für eure schnelle Hilfe.
Beide Codes funktionieren bestens.
Ich werde erstmal mit Rudis Variante arbeiten und Matthias abspeichern, da Matthias ja selber sagt das sein Code ein gewisses Risiko hat.
Welches Risiko weiss ich als Laie natürlich nicht.
Herzlichen Dank nochmal
Jörn

das Risiko ...

06.01.2011 15:12:22

Rudi

Hallo,
besteht darin, dass evtl. Blätter (versehentlich) verschoben wurden. Somit werden dann falsche Blätter geändert.
Das ist auch bei meiner Variante so.
Gruß
Rudi

AW: das Risiko ...

06.01.2011 15:34:12

Jörn

Hallo Rudi,
Danke für die Aufklärung.
Gruß
Jörn