wie lese ich den aktuellen Worksheetnamen in eine Variable ein?
variable = activeworksheet.value
funktioniert nicht
wie lese ich den aktuellen Worksheetnamen in eine Variable ein?
variable = activeworksheet.value
funktioniert nicht
gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Lösungsansätze zu EXCEL und mehr
Arbeitsblatt = activeworksheet.Name
ich bekomme aber einen 424 fehler : object erforderlich
die variable soll hier eingefügt werden
Verweis_Rechnung = InputBox("Bitte Datum der Rechnung angeben: dd.mm.yy", , Arbeitsblatt)
gruß
andreas e
es wird automatisch eine mahnung zu einer bestehenden rechnung generiert.
zur zeit geht es nur wenn ich das rechnungsdatum in eine inputbox reinschreibe. ich hätte nun noch gerne das er dieses rechnungsdatum als vorschlag in die inputbox reinschreibt.
dazu hab ich die variable arbeitsblatt benutzt.
Sub Mahnungerstellen()
Dim Blattname As String '"Re" + Datum nach Inputfeld
Dim Blatt_Zusatznummer As Integer 'wenn mehr als eine Rechnung pro Tag - zusätzliche Nummer für Tabellenblattnamen
Dim Rechnungsdatum As String 'umfomatiertes Datum für Rechnungsnummer
Dim Bearbeitungsnummer As Integer 'Anzahl der täglichen Rechnungen - letzte Zahl der Rechnungsnummer
Dim Mahnungssnummer As String 'engültige Rechnungsnummer für Feld D21
Dim Verweis_Rechnung As String
Dim Ergebnis As String
Dim Übergabe_ReNr As String
Dim Arbeitsblatt As String
Vorschlag_Datum = Format(Date, "dd.mm.yy") 'aktuelles Datum wird ermittelt
Rechnungsdatum = Format(Date, "yymmdd") 'Datum wird für Re-Nr. umformatiert
Sheets("3.MA").Select
Sheets("3.MA").Copy After:=Sheets(Worksheets.Count)
Definitives_Datum = InputBox("Bitte geben Sie das Datum für die neue 3.MA ein: Generierung einer Nummer nur bei heutigem Datum - sonst manuelle Nachbesserung ", , Vorschlag_Datum)
Blattname = "3.MA " & Definitives_Datum
Bearbeitungsnummer = InputBox("Bitte geben sie die heutige Bearbeitungsnummer ein:")
Mahnungssnummer = Rechnungsdatum & Bearbeitungsnummer
Arbeitsblatt = activeworksheet.Range("d33")
If Blattname = "" Then Exit Sub
On Error GoTo Errorhandler
'MsgBox "Das Blatt wird unter 3.MA " & Definitives_Datum & " gespeichert!" 'Bestätigung
ActiveSheet.Name = "3.MA " & Definitives_Datum 'Tabellenblattname wird generiert
Verweis_Rechnung = InputBox("Bitte Datum der Rechnung angeben: dd.mm.yy", , Arbeitsblatt)
Reload:
Übergabe_Summe = "='Re " & Verweis_Rechnung & "'!I40"
Übergabe_Datum = "='Re " & Verweis_Rechnung & "'!I21"
Übergabe_ReNr = "='Re " & Verweis_Rechnung & "'!D21"
Range("A3") = FormatDateTime(Definitives_Datum) 'Datum wird formatiert in Zelle A3 geschrieben
Range("D21") = Mahnungssnummer
Range("H33") = Übergabe_Summe
Range("D33") = Übergabe_Datum
Range("F33") = Übergabe_ReNr
End
Errorhandler:
Blatt_Zusatznummer = InputBox("3.MA am " & Definitives_Datum & " bereits vorhanden. Bitte geben Sie eine zusätzliche Blattnummer ein:")
ActiveSheet.Name = "3.MA " & Definitives_Datum & " (" & Blatt_Zusatznummer & ")" 'Blattname wird generiert und Nummer wird dazugezählt
Verweis_Rechnung = InputBox("Bitte Datum der Rechnung angeben: dd.mm.yy")
GoTo Reload
End Sub
ich möchte auf der rechnung einen button haben der die mahnung erstellt. daher müsste activesheet funktionieren weil das makro ja aus diesem tabellenblatt aufgerufen wird. später wird aber ein neues activesheet benutzt.
vielleicht so:
Sub Aufruf()
Dim Blattname As String
Blattname = ActiveSheet.Name
Frage = InputBox("Verzeichnis:", , Blattname & " " & Format(Date, "yymmdd"))
End Sub
Gruß
Björn
mein quelltext ist auch verwirrend
das problem ist allerdings doch recht einfach.
er soll mir den aktuellen worksheetnamen in eine variable lesen und dann an anderer stell einfügen
Arbeitsblatt = activeworksheet.Name
Verweis_Rechnung = InputBox("Bitte Datum der Rechnung angeben: dd.mm.yy", , Arbeitsblatt)
hierbei kommt ein laufzeitfehler.
Arbeitsblatt = ActiveSheet.Name
Und dann läuft es...
Gruss
Urs