Vorlage einfügen

Hallo,
es geht um Folgendes:
Ich habe eine Excel Datei, bei der auf der Übersichtsseite ein Button vorkommt. Wenn auf diesen geklickt wird, dann öffnet sich ein weiteres Tabellenblatt, aber kein leeres, sondern eines, welches schon eine Formatierung, Hilfstexte, verschiedene Bilder ... besitzt. Nun möchte ich auf dieser Seite eine Änderung vornehmen, sodass sich in Zukunft, bei Klick auf den Button fortan die geänderte Seite öffnet. Ich verstehe jedoch leider nicht, wo sich dieses Blatt "versteckt" hat. Ich habe die "Formulare" und "Module" schon durchsucht. Was ich erwartet hätte, wäre, etwas ähnliches wie eine UserForm vorzufinden, dessen Äußeres man ja auch einfach ändern kann. Das ist jedoch nicht der Fall.
Leider darf ich die Excel-Datei nicht hochladen.
Hat jemand vielleicht eine Idee, wie dieses, sich neu öffnende Tabellenblatt, zustande kommt? Eine allgemeine Erklärung sollte reichen.
Hoffe, ich konnte mich verständlich ausdrücken.
Gruß
Idence

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
jetzt verstehe ich, was du meintest. Tatsächlich gab es ein verstecktes Blatt, welches ich nun eingeblendet habe. Allerdings schaut dieses Blatt ganz anders aus, als die Vorlage. So sind keinerlei Texte vorhanden, die Formatierungen sind anders...
Der Code, der startet, wenn ich auf den Button klicke, ist Folgender:
Die Stelle an der die Vorlage eingefügt wird, ist mit ################ fügt Vorlage ein ################ gekennzeichnet. Das, was danach folgt, ist "unwichtig".

Sub addSheet()
Application.ScreenUpdating = False
Dim hInd As Integer
hInd = 0
'Find highest index
For Each sh In Sheets
ind = sh.name
If IsNumeric(ind) Then
If ind > hInd Then hInd = ind
End If
Next sh
hInd = hInd + 1
Dim wsNew As Worksheet
Set ws = Sheets("blank")
ws.Visible = xlSheetVisible
ws.Copy After:=Sheets("Uebersicht")      '################ fügt Vorlage ein ################
Set wsNew = ActiveSheet
wsNew.name = hInd
wsNew.Range("C2").Value = "#" & hInd Call addCircle
'Call addShapes(hInd)
ActiveSheet.Range("A28").Select
ws.Visible = xlSheetHidden
Application.ScreenUpdating = True
End Sub

Gruß
Idence

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vorlage einfügen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread