Hi an alle,
hab mal wieder ein Problem. Ich bin schon eine ganze Weile am tüfteln, komme aber irgendwie nicht weiter. Ich rufe über eine Schaltfläche eine UserForm auf, in der ich in eine TextBox eine Jahreszahl eingeben muss, damit ein neues Tabellenblatt mit dieser Jahreszahl erstellt wird. Das mache ich mit folgendem Befehl:
Private Sub CommandButton2_Click() Unload UserForm1 Eingabe = TextBox1 Vorjahr = Eingabe - 1 Sheets(Vorjahr).Select Blattname = ActiveSheet.Name If Eingabe = "" Or Len(Eingabe) < 4 Then Select Case MsgBox _ ("Die Jahreszahl muss aus 4 Ziffern bestehen. Bitte Jahreszahl erneut eingeben", _ vbOKOnly, "Fehler") Case 1 'Schaltfläche OK SendKeys "{TAB}" SendKeys "{TAB}" End Select End If If Len(Eingabe) = 4 Then Worksheets("Vorlage").Visible = True Sheets("Vorlage").Copy Before:=Sheets("Vorlage") Sheets("Vorlage (2)").Name = Eingabe Range("G1, Y1") = Eingabe Worksheets("Vorlage").Visible = False ActiveSheet.Protect "" Call Autovervollständigen_Monat End If End Sub
Nun möchte ich, dass in diesem Befehl eine Variable Namens “Blattname“ erzeugt wird, in der ein Tabellenblattname gespeichert werden soll. Diese Variable wird dann in dem Makro, welches am Ende der obigen Anweisung aufgerufen wird, nochmals benötigt. Wenn ich nun die obige Anweisung durch die Schaltfläche abarbeiten lasse, habe ich in der Variablen den Blattnamen. Leider steht in der Variblen der Text nur solange wie die Anweisung aktiv ist. In dem Makro “Autovervollständigen_Monat“ steht in dieser Variablen nichts mehr drin. Woran liegt das? Ich komme einfach nicht drauf.
Ich hoffe, bzw. ich weiß, dass Ihr mir helfen könnt. ;-)
Bin für jeden Tip dankbar und danke Euch schon mal im Voraus,
Oliver