Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1468to1472
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

Makro: Kopieren Tabellenblatt und ändern Zellbezug

Makro: Kopieren Tabellenblatt und ändern Zellbezug
22.01.2016 16:45:11
Sven
Guten Tag liebe Experten,
ich benötige Unterstützung für ein Problem das ich selbst nicht lösen kann.
Folgendes soll ein Makro machen:
1.) Kopieren des vorheriegen Tabellenblatts
2.) Einfügen des Tabellenblatts an das Ende
3.) Umbenennung des Tabellenblatts mit einer fortlaufenden Ziffer begonnen bei 2
4.) Ändern der Zellbezüge in diesem Tabellenblatt um jeweils einen Wert
5.) Dieser Vorgang soll 61 mal wiederholt werden
Beispiel:
1.) Kopieren des Tabellenblatts 1
2.) Einfügen des Tabellenblatts 1 an das Ende der Exceldatei
3.) Umbenennung des kopierten Tabellenblatts 1 in Tabellenblatt 2
4.) Änderung des Zellbezuges in Zelle
C1 von =+Projektübersicht!B4 auf =+Projektübersicht!B5
C7 von =+Projektübersicht!C4 auf =+Projektübersicht!C5
C9 von =+Projektübersicht!E4 auf =+Projektübersicht!E5
C11 von =+Projektübersicht!G4 auf =+Projektübersicht!G5
5.) Wiederholung des kompletten Vorgangs mit allen Schritten 61 mal
Zu Punkt 4.) die Werte werden jeweils immer um einen Schritt nach oben gezählt.
Ich hoffe es ist verständlich und jemand kann mir hier helfen.
Vielen Dank!

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

Betreff
Datum
Anwender
Anzeige
AW: Makro: Kopieren Tabellenblatt und ändern Zellbezug
24.01.2016 16:28:48
Herbert
Hallo Sven,
mit einer Beispieldatei könnte ich dir viel leichter helfen.
Servus

AW: Makro: Kopieren Tabellenblatt und ändern Zellbezug
26.01.2016 09:21:16
Herbert
Hallo Sven,
es tut mir leid, dass ich dir erst jetzt antworte, aber ich war leider verhindert. Doch jetzt habe ich eine Lösung. Sie probiers mal aus.
Option Explicit
Sub TabellenKopieren()
Dim iCount%
For iCount = 3 To 63
ActiveWorkbook.Sheets(iCount).Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.name = iCount
Range("C1").Formula = "=Projektübersicht!B5"
Range("C7").Formula = "=Projektübersicht!C5"
Range("C9").Formula = "=Projektübersicht!E5"
Range("C11").Formula = "=Projektübersicht!G5"
Next iCount
End Sub
Servus

Anzeige
AW: Makro: Kopieren Tabellenblatt und ändern Zellbezug
27.01.2016 12:12:37
Sven
Hallo Herbert,
danke für deine Mühe. Leider bekomme ich hier folgende Fehlermeldung:
Laufzeitfehler '1004'
Kann einem Blatt nicht den gleichen Namen geben wir einem anderen Blatt, einer Objektbibliothek oder einer Arbeitsmappe, auf die Visual Basic Bezug nimmt.

AW: Makro: Kopieren Tabellenblatt und ändern Zellbezug
27.01.2016 12:23:25
Herbert
Hallo Sven,
da mein Code bei mir keinen Fehler ausgelöst hat, kann es nur an deinem restl. Code liegen. Lade noch mal deine Datei hoch, dann kann ich besser erkennen, woran es liegen könnte.
Servus

AW: Makro: Kopieren Tabellenblatt und ändern Zellbezug
28.01.2016 08:38:29
Sven
Guten Morgen Herbert,
ich habe noch ein wenig rumprobiert. Jetzt hat es geklappt.
Danke für die Unterstützung.
Gruß
Sven

Anzeige
Gerne geschehen! owt
28.01.2016 09:38:19
Herbert
,,

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige