Code durch Code einfügen

Hallo Excelgemeinde
im Archiv fand ich wenig zu meinem Problem, und das Wenige verstehe ich nicht ;-((
Ich habe eine größere Mappe als Mutterdatei, aus der automatisiert durch Löschen aller Blätter bis auf eins ein Formular entsteht. Dies wird als Ausschreibungsunterlage per Email verschickt.
Es soll beim Öffnen dieser Ausschreibungsdatei beim Empfänger eine Inputbox erscheinen, in die er seinen Firmennamen eingibt.
Das ließe sich ja einfach lösen, indem ich in der Mutterdatei bei DieseArbeitsmappe im Workbook_Open zB InputBox "Bitte geben Sie Ihren Firmennamen ein" hinterlege. Leider erscheint diese Box auch dann, wenn die Mutterdatei geöffnet wird.
Ich will also den Code für die InputBox erst dann einbauen, wenn die Ausschreibungsdatei erstellt wird, also zB durch den Code, der die Blätter löscht. Dafür wüßte ich gern die Syntax, die dafür sorgt, daß in einem bestimmten Modul einige Zeilen eingefügt werden.
Kann mir jemand auf die Sprünge helfen?
Grüße - Jörg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Horst,
danke für deine Idee - ich hab deinen Vorschlag mal eingebaut, mit einer kleinen Änderung bei Count. Seltsamerweise wird das völlig ignoriert: Obwohl ich hundert Blätter habe, erscheint die Inputbox.
So sieht das in der Workbook_Open Proz aus:
Dim FileSaveNameAnbieter As Variant
Dim MldgFa As String
Dim strAnbieterName As String
MldgFa = "Bitte geben Sie Ihren Firmennamen ein"
strAnbieterName = InputBox(MldgFa, "Speicherhilfe")
If Me.Sheets.Count > 3 Then
Exit Sub
ElseIf strAnbieterName = "" Then
Exit Sub
Else
FileSaveNameAnbieter = Application.GetSaveAsFilename(InitialFileName:=strAnbieterName, FileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls", Title:="Dateiname für die Ausschreibung")
End If
Jetzt wollte ich einen Haltepunkt setzen, aber beim Workbook_Open geht das wohl nicht? Jedenfalls ist er nach Speichern und Öffnen verschwunden.
Frage 1: Warum wird nicht bei If Me.Sheets.Count > 3 Then die Proz verlassen?
Frage 2: Die Speicherung soll auch den bereits vorhandenen Dateinamen beinhalten - das strAnbieterName soll also hinzugesetzt werden. Mit welchem Befehl hole ich mir denn den aktuellen Dateinamen?
Grüße, Jörg

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code durch Code einfügen

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread