Diesmal würde ich gerne mein Workbook und meine Worksheets Umbenennen.
Mein Versuch:
Private Sub Workbook_Open()
Dim WSEinstellungen, WSEinfach, WSVSG, WSMIG As Worksheet
Dim WBBook As Workbook
Set WBBook = ThisWorkbook
With WBBook
Set WSEinstellungen = .Worksheets("Tabelle1")
Set WSEinfach = .Worksheets("Tabelle2")
Set WSVSG = .Worksheets("Tabelle3")
Set WSMIG = .Worksheets("Tabelle4")
End With
Lasse ich es mit F8 durchlaufen, tritt an der Stelle "Set WSEinstellungen =.Worksheets("Tabelle1")" ein Laufzeitfehler '9' auf.
Was habe ich falsch gemacht?
Ebenso bin ich für Vorschläge von vernünftigen Abkürzungen sehr dankbar, ich weiß, dass ich da nicht so der einfallsreichste bin :D
Vielen Dank vorab ;)