Einstellung der Anzahl der Elemente, die in der Drop-down-Liste aufgeführt sind, in die Variable

Question

Derzeit wird eine Nachricht angezeigt, wenn Elemente in PDF exportiert werden. Sie möchten die Gesamtmenge der Elemente aus dem Dropdown-Menü abrufen, um den x-Wert von (x von x exportieren) darzustellen. Momentan haben Sie einen festen Wert.

Const SAVE_PATH = "C:\SC\" 

Sub SCtoPDF() 
    Dim inputRange As Range 
    Dim cell As Range 

    Set inputRange = Evaluate(Range("G11").Validation.Formula1) 

    For Each cell In inputRange 
     If cell.Value <> "" Then 
      counter = counter + 1 
      Application.StatusBar = "Exporting Scorecard: " & counter & " of " & "32" 

      [G11] = cell.Value 
      ActiveSheet.Calculate 
      ActiveSheet.ExportAsFixedFormat _ 
       Type:=xlTypePDF, _ 
       Filename:=SAVE_PATH & cell.Value, _ 
       Quality:=xlQualityStandard, _ 
       IncludeDocProperties:=True, _ 
       IgnorePrintAreas:=False, _ 
       OpenAfterPublish:=False 
     End If 
    Next cell 
End Sub 

Answer 1

Unter der Annahme, dass keine Prüfliste Reihen leer sind:

inputRange.Rows.Count