Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In verschiedene Tabellenblättern Inhalte ändern

Forumthread: In verschiedene Tabellenblättern Inhalte ändern

In verschiedene Tabellenblättern Inhalte ändern
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
Anzeige

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

Betreff
Benutzer
Anzeige
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
Anzeige
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
Anzeige
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
;

Forumthreads zu verwandten Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Tabellenblätter miteinander verknüpfen
Ephraim

Guten Morgen,
leider schaff ich es nicht, zwei Tabellenblätter in einer Datei miteinander zu verknüpfen. Was in Tabellenblatt 1 steht soll auch automatisch in TB2 übertragen werden. Optimalerweise soll in TB 2 lediglich eine Spalte ausgefüllt werden. Der restliche Inhalt soll geschützt sein...
18.08.2008 07:19:00
Thread-ID: 1002497
4 Beiträge
Tabelle mit Daten aus zweiter Tabelle ergänzen
Fritz_W

Hallo VBA-Experten,
die nachfolgend dargestellte Tabelle "Statistik" möchte ich entsprechend der Daten aus der Tabelle "Daten" Bereich E3:E52 jeweils wie nachfolgend beschrieben erweitern:
In der Tabelle "Daten" können im Bereich E3:E52 bis zu 50 Namen stehen.
Das Makro soll diese N...
19.08.2008 19:49:00
Thread-ID: 1003024
10 Beiträge
Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Anzeige
Liste aus Liste erstellen
Ernst

Hallo Vba Profis !
Ich habe folgende Problemstellung und zwar meine Exelliste die ich Auslaufmanagement benannt habe und unter folgendem Link abrufbar ist: https://www.herber.de/bbs/user/54880.zip
besteht aus drei Tabellenblättern (im Tabellenblatt Auslaufmanagement wird eine Nummer ei...
25.08.2008 14:02:00
Thread-ID: 1004448
21 Beiträge
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Werte in anderes Tabellenblatt übertragen
Bibo

Hallo liebe EXCEL-Freunde,
ich habe in der Online-Suche leider kein Makro gefunden, das ich mit meinen minimalen VBA-Kenntnissen hätte selbständig auf meine Problematik anpassen können und bitte Euch deshalb um Eure Hilfe.
In das Tabellenblatt "Kommission" der Beispielmappe, das als Har...
31.08.2008 17:54:00
Thread-ID: 1006231
4 Beiträge
Wert aus Tabellenblättern in ein anderes Blatt übe
Heiderer

Hallo!
Folgende Ausgangssituation: Ich habe ein Excel-Sheet mit 4 Tabellenblättern. In Tabelle1 stehen all meine gesamten Produkte. In Tablle 2 – 4 stehen jeweils einzelne Produkte. Nun möchte ich, dass wenn ich einen Wert in der Tabelle 2 – 4 schreibe, dieser mir automatisch in die Tabelle...
11.09.2008 06:58:00
Thread-ID: 1008960
6 Beiträge
mehrer Tabellen aus wählen (Liste = Listox)
Rocky

Hallo Excelgemeinde,
ich möchte gerne verschiedene Tabellen blätter auswählen um diese zusammen in eine andere (neue) Datei zu kopieren. Die entsprechenden Tabellen werden in einer Listbox angezeigt.
so z.b (Leihenhaft)
sheets.array(Listbox1.list).copy
Danke für eure Hilfe
...
15.09.2008 12:23:27
Thread-ID: 1009754
5 Beiträge
2 Combobox in UF in Tabelle1 u. Daten in Tabelle 2
Bernhard

Guten Abend liebe Excelprofis,
ich komme nicht weiter, folgende Aufgabenstellung zu lösen:
Ich rufe in Tabelle 1 eine Userform auf, die 2 ComboBoxen hat. (ArtikelNr. ArtikelBezeichnung). In Tabelle 2 stehen in Spalte A die ArtikelNrn. und in Spalte B die ArtikelBezeichnungen untereinand...
17.09.2008 21:32:00
Thread-ID: 1010532
5 Beiträge
Wechselbild in der Tabelle
WalterK

Hallo,
die angehängte Tabelle habe ich in der Recherche gefunden, mittels VBA wird ein Wechselbild gesteuert.
2 Fragen hätte ich dazu:
1.) Ich möchte 2 andere Bilder einfügen, wie kann ich diese dann mit dem Makro ansprechen, muss ich den Bildern Namen geben ....?
2.) Das Makro...
18.09.2008 19:50:12
Thread-ID: 1010845
9 Beiträge
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige