verstanden wie Deine Datei aufgebaut ist
02.03.2012 22:56:32
Tino
Hallo,
dann versuche es mit diesem Code.
kommt als Code in die Tabelle "Auswertung"
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ArrayDaten(), n&, nZaehler&, nLetzte&
Dim rngVorgabe As Range
Set rngVorgabe = Range("N53") 'wo die Zahl steht
If Intersect(rngVorgabe, Target) Is Nothing Then Exit Sub 'andere Zelle
If Not IsNumeric(rngVorgabe.Value) Then Exit Sub 'keine Zahl
With Sheets("data")
nLetzte = .Cells(.Rows.Count, 22).End(xlUp).Row
If nLetzte > 1 Then 'keine Daten, nLetzte = 1
ArrayDaten = .Range("V2", .Cells(nLetzte, 22)).Resize(, 2).Value2
Redim Preserve ArrayDaten(1 To Ubound(ArrayDaten), 1 To 1)
nZaehler = rngVorgabe.Value + 1
For n = 1 To Ubound(ArrayDaten)
nZaehler = nZaehler - 1
ArrayDaten(n, 1) = nZaehler
If nZaehler < 2 Then nZaehler = rngVorgabe.Value + 1
Next n
End If
Application.EnableEvents = False
.Range("K2", .Cells(.Rows.Count, 11)).ClearContents
If nLetzte > 1 Then
.Range("K2").Resize(Ubound(ArrayDaten)) = ArrayDaten
End If
Application.EnableEvents = True
End With
End Sub
Gruß Tino