VBA Loop über Dropdownliste
28.09.2020 11:40:46
Lara
ich habe folgende Ausgangssituation:
In einer Basisdatei (wbDB) liegen die Rohdaten und die Steuerung des Makros. Dieses Marko öffnet eine Masterdatei (wbMA), die wiederum ein Steuerungsblatt (MA_Steuerung) enthält. auf diesem MA_Steuerung befindet sich in B3 ein Dropdownfeld.
Mein Makro soll für jeden Inhalt dieses Dropdownfelds die unten aufgeführten Schritte durchführen.
Das Makro klappt auch soweit, nur wird nicht in die ForEach-Schleife gegangen. Anbei mein Code. Seht ihr vielleicht, warum meine Schleife nicht läuft?
Vielen Dank und schöne Grüße,
Lara
Sub TeilTest1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim dvCell As Range
Dim inputRange As Range
Dim c As Range
Dim Name
Name = wbMA.Worksheets("MA_Steuerung").Range("B3")
Dim Path
Path = wbDB.Worksheets("DB_Steuerung").Range("C4")
Dim wbMA As Workbook
Dim wbDB As Workbook
Set wbDB = ActiveWorkbook
Dim Masterfile As String
Masterfile = ActiveWorkbook.Worksheets("DB_Steuerung").Range("C3")
Workbooks.Open Filename:=Masterfile
Set wbMA = ActiveWorkbook
Set dvCell = wbMA.Worksheets("MA_Steuerung").Range("B3")
Set inputRange = Evaluate(dvCell.Validation.Formula1)
For Each c In inputRange
dvCell = c.Value
Sheets("Einzelposten").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Kostenjournal").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveWorkbook.SaveAs Filename:=Path & "\" & Name
Next c
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub