VBA lfd. Nr. autom. erzeugen
24.02.2016 07:05:23
Erich
Guten Morgen,
ich habe auf einer Userform einen Button der mir die eingegeben Werte aus den Textboxen in eine Tabelle schreibt. Nun möchte ich, dass wenn ich den Button drücke eine fortlaufende nummer auf einem anderen Tabellenblatt erzeugt wird. Ich habe es zwar schon etwas hinbekommen, aber er schreibt es immer in die Tabelle die gerade aktiv ist.
anbei der Code;
Dim avntInput As Variant, avntOutput() As Variant
Dim lngCount As Long, ialngIndex As Long
avntInput = Range(Cells(2, 2), Cells(Rows.Count, 1).End(xlUp)).Value
ReDim avntOutput(LBound(avntInput) To UBound(avntInput), 0)
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(2, 1).Resize(UBound(avntOutput), 1).Value = avntOutput
End With
könnt ihr mir Helfen?
Danke