ich habe folgenden Code, bei der mir automatisch die nächste Nummer vergeben wird, wenn in Spalte 2 ein Wert steht.
Funktioniert auch einwandfrei, wenn mehr als ein Wert in der Tabelle steht.
Wenn aber nur ein Wert drinsteht kommt die Fehlermeldung "Typen unverträglich"
Worksheets(Tbl1).Activate
'Positionsnummer vergeben bei jedem Wert, der in Spalte 2 steht
Dim avntInput As Variant, avntOutput() As Variant
Dim lngCount As Long, ialngIndex As Long
avntInput = Range(Cells(20, 2), Cells(Rows.Count, 2).End(xlUp)).Value
ReDim avntOutput(LBound(avntInput) To UBound(avntInput), 0) 'hier kommt der Fehler
For ialngIndex = LBound(avntInput) To UBound(avntInput)
If Not IsEmpty(avntInput(ialngIndex, 1)) Then
lngCount = lngCount + 1
avntOutput(ialngIndex, 0) = lngCount
End If
Next
Cells(20, 1).Resize(UBound(avntOutput), 1).Value = avntOutput
Wie muss man das ändern?
Danke
Gruß Oisse