Blattname in Makro aus einer Liste

Hallo VBA-Experten,
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 verschiedenen 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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub sortieren() Dim Blatt As String Blatt = Sheets("Auswahl").Range("B14") With Sheets(Blatt) .Select .Unprotect .Range("$A$3:$A$1503").AutoFilter Field:=1, Criteria1:="" .Range("A1").Select End With End Sub

Option Explicit Dim j As Integer, z As Integer Dim Sht As String 'Blattname 'Makro zum alle Tabellen auflisten 'Bereich ist variable, selbst festlegen Sub Tabellen_auflisten() With Worksheets("Kasse") z = 2 '1.Zeile beim auflisten For j = 1 To Worksheets.Count If Worksheets(j).Name .Name Then .Cells(z, "B") = Worksheets(j).Name z = z + 1 End If Next j End With End Sub 'Makro zum Tabellen Namen zürückladen Sub Test_Tabellenliste() With Worksheets("Kasse") z = 2 '1.Zeile beim zurückladen For j = 1 To Worksheets.Count Sht = .Cells(z, "B").Value Worksheets(j).Select z = z + 1 MsgBox Sht Next j End With End Sub

Sub sortieren() ' Filter1 Makro Dim Blatt As String Blatt = Sheets("Auswahl").Range("B9") With Sheets(Blatt) .Select .Unprotect .Range("$A$3:$A$1003").AutoFilter Field:=1, Criteria1:="" .Range("A1").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Blatt = Sheets("Auswahl").Range("B14") With Sheets(Blatt) .Select .Unprotect .Range("$A$3:$A$1003").AutoFilter Field:=1, Criteria1:="" .Range("A1").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Blatt = Sheets("Auswahl").Range("B21") With Sheets(Blatt) .Select .Unprotect .Range("$A$3:$A$1003").AutoFilter Field:=1, Criteria1:="" .Range("A1").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Blatt = Sheets("Auswahl").Range("B22") With Sheets(Blatt) .Select .Unprotect .Range("$A$3:$A$1003").AutoFilter Field:=1, Criteria1:="" .Range("A1").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End With End Sub

Sub sortieren() Dim Arr, z, Blatt As String Arr = Array("B14", "B21", "B22", "B29") 'usw For Each z In Arr Blatt = Sheets("Auswahl").Range(z) With Sheets(Blatt) .Select .Unprotect .Range("$A$3:$A$1003").AutoFilter Field:=1, Criteria1:="" .Range("A1").Select .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End With Next End Sub

Sub Test() ' Test Makro Dim Arr, z, Blatt As String Arr = Array("B2", "B3", "B4", "B5", "B6", "B7", "B8", "B9", B10) For Each z In Arr Blatt = Sheets("Auswahl").Range(z) With Sheets(Blatt) .Select .Unprotect .Range("$A$3:$A$1003").AutoFilter Field:=1, Criteria1:="" .Range("A1").Select .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End With Sheets("Vorfälle").Select Range("B3").Select Next End Sub

Sub Test() ' Test Makro Dim Arr, z, Blatt As String Arr = Array("B2", "B3", "B4", "B5", "B6", "B7", "B8", "B9", "B10", "B11", "B12", "B13", " _ B14", "B15", "B16", "B17", "B18", "B19", "B20", "B21", "B22") For Each z In Arr Blatt = Sheets("Auswahl").Range(z) With Sheets(Blatt) .Select .Unprotect .Range("$A$3:$A$1003").AutoFilter Field:=1, Criteria1:="" .Range("A1").Select .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End With Sheets("Vorfälle").Select Range("B3").Select Next End Sub

Sub Test() Dim TB, Rng As Range Set Rng = Sheets("Auswahl").Range("B2:B22") For Each TB In Worksheets 'ist der Blattname in B2:B22 aufgelistet If WorksheetFunction.CountIf(Rng, TB.Name) > 0 Then With TB .Select .Unprotect .Range("$A$3:$A$1003").AutoFilter Field:=1, Criteria1:="" .Range("A1").Select .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End With End If Sheets("Vorfälle").Select Range("B3").Select Next End Sub

Beliebteste Forumthreads (12 Monate)

Blattname in Makro aus einer Liste

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Blattname in Makro aus einer Liste

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread