Tabellenblatt

Guten Tag,
weiß nicht ob, man sowas überhaupt umsetzen kann. Ich frag einfach mal.
habe ein Excel-Dokument mit einem Tabellenblatt. Dieses Tabellenblatt ist meine Vorlage. Dieses Tabellenblatt wird nicht beschrieben, es wird immer nur als Vorlagen-Kopie verwendet.
Möchte mit der Zeit in dem Dokument viele weitere Tabellenblätter erstellen, die immer einer Kopie der Vorlage sind. Soweit kein Problem. Ist ja nicht schwer, einfach rechte Maustaste auf Spielvordruck (meine Vorlage), kopieren und ans Ende stellen.
Nun zu meiner eigentlichen Frage:
Ist es möglich, wenn ich eine Kopie von meiner Vorlage erstelle, dass immer Werte vom vorher erzeugten Tabellenblatt automatisch mit in die neue Vorlage übernommen werden.
Wenn ich jetzt durch Kopie meiner Vorlage das Tabellenblatt 2 (Spielvordruck 2) erstelle, möchte ich, dass vom vorherigen Tabellenblatt immer bestimmte Werte übernommen werden.
Und das dann fortlaufend.
Logischerweise können beim Tabellenblatt 2 keine Werte übernommen werden, weil noch keine Werte vorhanden sind. Ab Tabellenblatt 3 sollen dann die Werte vom vorherigen Tabellenblatt übernommen werden.
Beispiel: Im Tabellenblatt 3 werden dann bestimmte Werte vom Tabellenblatt 2 übernommen.
usw.
Folgende Werte sollen immer übernommen werden:
E28 soll in C8 UND B28 des neuen Tabellenblattes übernommen werden.
G38 soll in G33 des neuen Tabellenblattes übernommen werden.
F45 soll in A45 des neuen Tabellenblattes übernommen werden.
Was noch hinzu kommt, in diesem Excel-Dokument ist schon eine VBA Programmierung enthalten.
Würde mich sehr freuen, wenn jemand eine Lösung darauf hat.
Würde gerne ein Excel Dokument um das es geht anhängen. Finde aber leider die Funktion nicht.
Gruß und DANKE Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Matthias,
danke für deine Mühe.
Klappt leider nicht, kann natürlich auch ein Anwenderfehler sein, weil ich keine große Ahnung habe.
In meinem Excel Dokument befindet sich schon eine VBA Prgrammierung.
Kann man zwei VBA Programmierungen einfach untereinander schreiben?
Habe aber mal versucht nur die von dir geschriebene hineinzukopieren. Und die alte VPA Programmierung gelöscht.
Funktioniert aber irgendwie nicht.
So bin ich vorgegangen:
Entwicklertools geöffnet,Visual Basic geöffnet und dein Programm reinkopiert:
Sub Kopie()
On Error Resume Next
Sheets("Vorlage").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Kopie" & Sheets.Count - 1
With Worksheets("Kopie" & Sheets.Count - 2)
.Range("E28").Copy Destination:=Range("B28")
.Range("E28").Copy Destination:=Range("C8")
.Range("G38").Copy Destination:=Range("G33")
.Range("F45").Copy Destination:=Range("A45")
End With
Daraufhin aus der Vorlage eine Kopie gemacht, dann Eintragungen in E28, G38, F45 vorgenommen.
Dann wieder Vorlage kopiert und in dieser Kopie sollten dann Eintragungen in B28, C8, G33, A45 automatisch von der Kopie zuvor sein.
Hab ich irgendein Fehler gemacht?
Gruss Markus

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("A3:I3,A13:G13,A14:G14,A15:G15,A16:G16,A17:G17,A18:G18,A19:G19,A20:G20, _ G30:H30"), Target) Is Nothing Then Application.EnableEvents = False Target.Value = IIf(Target.Value = "x", "", "x") Application.EnableEvents = True Cancel = True End If End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread