Probleme bei DIESE ARBEITSMAPPE

Moin Leute,
ich bin am verzweifeln. Ich habe ein Problem bei dem ich glaube das die Ursache das Makro in DIESE ARBEITSMAPPE ist.
Das Problem ist ziemlich kompliziert, jedenfalls für mich, zu erklären. Ich möchte es hier mal versuchen.
Ich habe mir, nachdem ich eine Menge von euch gelernt habe schon einiges zusammenbasteln können. Unter anderem diese Datei. Die Funktion ist recht simpel. Per Knopfdruck erscheint ein neues Tabellenblatt und dabei werden ebenfalls neue Ordner angelegt.
Die Eingaben in den Blättern (derzeit in Spalte D) werden dann in den Sheets LISTE und INFO gespiegelt und das permanent. Da ich immer wieder solche Dateien mit unterschiedlichen Layouts erstellen muss, wollte ich eine möglichst dynamische Datei entwerfen. Deshalb kann man die Zellen in der Spalte D überall hinziehen. Diese werden dann in Spalte B übertragen und von dort (Wie in G19 und G21) , werde an die Listen übergeben.
Das alles funktioniert auch hervorragend. Bis ich folgende Aktionen durchführe. Zu beachten ist, das es völlig egal ist, ob diese Aktionen die zu übertragenden Tabellen beeinflussen oder nicht.
-Füge ich in eine der neuen Folien die Formel =HEUTE() ein, dann stürzt Excel ab.
-Gebe ich Zellen einen Namen und verwende diese dann weiter
(siehe das Beispiel mit den gelben Feldern - mit Bezug zu den zu übertragenden Feldern
oder den orangenen Felder - ohne Bezug zu den zu übertragenden Feldern)
dann kann ich keine neue Folie mehr anlegen. Auf einmal wird das Sheet LISTE mit der nächsten Sheetnummer
überschrieben und das Programm stoppt weil es das neue Sheet nicht finden kann.
Zum testen einfach mal das "=" in eine der Formeln hinzufügen und über die Startseite eine neue Folie hinzufügen.
-Benutze ich einfache Formeln, dann funktioniert alles (Siehe rot eingefärbte Felder)
Wie ich drauf komme, das DIESE ARBEITSMAPPE die Ursache ist? Wenn ich das Makro ausschalte, dann ist das oben beschriebene auf einmal kein Problem mehr.
Ich hoffe jemand kann mir sagen was ich da falsch gemacht habe.
Die Datei hänge ich an.
https://www.herber.de/bbs/user/135237.zip
Liebe Grüße
Steve

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal target As Range) Dim rngZiel As Range, ShRange As Range Set ShRange = Range("N_Daten") If Not IsNumeric(Sh.Name) Then Exit Sub Application.ScreenUpdating = False Set rngZiel = Worksheets("Startseite").Columns(2).Find(Sh.Name, LookIn:=xlValues, lookat:= _ xlWhole) If rngZiel Is Nothing Then Exit Sub Else Range("N_Daten").Copy Worksheets("Startseite").Range("D" & rngZiel.Row).PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=True End If Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal target As Range) Dim rngZiel As Range, ShRange As Range Set ShRange = Range("N_Daten") If Not IsNumeric(Sh.Name) Then GoTo Beenden Application.ScreenUpdating = False Application.EnableEvents = False Set rngZiel = Worksheets("Startseite").Columns(2).Find(Sh.Name, LookIn:=xlValues, _ lookat:=xlWhole) If rngZiel Is Nothing Then GoTo Beenden Else Range("N_Daten").Copy Worksheets("Startseite").Range("D" & rngZiel.Row).PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=True End If Application.CutCopyMode = False Beenden: Application.ScreenUpdating = True Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread