Next ohne For

[excl50]

Hallo zusammen,

beim folgendem Makro kommt die Fehlermeldung: Anwendungs- oder objektdefinierter Fehler. Findet jemand den Fehler?

Danke für die Hilfe.



Sub Makro2()
   Dim AnzahlDropDown, a As Integer

   Tabelle9.Columns("A:Z").EntireColumn.Clear
   For a = 4 To Tabelle8.Cells(Rows.Count, 1).End(xlUp).Row
      For AnzahlDropDown = 1 To Tabelle8.Cells(a, 8).Value
         Tabelle9.Cells(AnzahlDropDown + 1, a - 3).Value = AnzahlDropDown
         With Tabelle8.Cells(a, 10).Validation
             .Delete
             .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
             Formula1:="='Tabelle9'!" & Range(Tabelle8.Cells(2, a - 3), Tabelle8.Cells(AnzahlDropDown, a - 3)).Address
             .IgnoreBlank = True
             .InCellDropdown = True
         End With
      Next AnzahlDropDown
   Next a
End Sub

[Glausius]

Hallo,

in welcher Zeile kommt denn die Fehlermeldung?

[schauan]

Hallo Günter,

vielleicht ist das genau die Frage

Spaß beiseite - @excl50, mit der Information wäre eine Antwort einfacher. So kann man nur raten - eventuell steht hier ein negativer Wert? Tabelle8.Cells(a, 8).Value