Hallo Excel- und VBA-Experte,
es geht um folgende Herausforderung: Ich habe mir persönlich in Excel ein kleines Buchhaltungsprogramm gestrickt. Das hätte ich zwar auch einfacher irgendwo anders herbekommen, hatte aber Spaß dran, es zu bauen. Die gesamte Arbeitsmappe besteht aus insgesamt 26 Arbeitsblättern, der größte
Teil davon sind die verscheidenen Konten. Ich habe mir schon einige Makros gestrickt, die z. B. die Umsätze der einzelnen Konten nach beschriebenen Zeilen filtert (alos ohne leere), damit beim Ausdruck nur die beschriebenen Zeilen angesprochen werden. Am Ende funktioniert dass alles recht stabil und befüllt auch die Jahresendbilanzen perfekt.
Wenn ich allerdings den Namen eines Tabellenblattes ändern will/muss, dann muss ich den neuen Blattnamen in allen Makros anpassen, was zwar kein so großen Problem, aber am Ende eher unbequem und fehlerbehaftet ist. Ich habe nun folgende Idee bzw. Vorstellung: Ich würde gerne den Blattnamen für das Makro aus einer Tabelle in einem ganz bestimmten Auswahlblatt übernehmen, in dem die bestehenden Blattnamen in einer Liste aufgeführt werden. Ändert sich jetzt ein Blattname, dann müsste ich den nur noch in der Tabelle und nicht mehr in allen Makros ändern.
Sub sortieren()
'
' Filter1 Makro
'
'
Sheets("Kasse").Select
ActiveSheet.Unprotect
ActiveSheet.Range("$A$3:$A$1503").AutoFilter Field:=1, Criteria1:="<>"
Range("A1").Select
End Sub
Ich stelle mir nun vor, dass ich den Wunsch, in das Blatt "Kasse" zu gelangen, über die Auswahlliste realisieren kann, die im Blatt Auswahl vorhanden ist (z. B. Sheets("=B14 Blatt Auswahl")..Gibt es diese Möglichkeit überhaupt und wenn ja, wie müsste das Makro aussehn? Ich bin kein VBA-Spezialist und habe mir die Makros durch Aufzeichnungen gestrickt. Ich verwende Office 2007 in Windows 10 64bit.
Schon jetzt vielen Dank für jede Hilfe
Alexander
|