Problem bei Worksheet_Change
30.07.2014 11:33:22
Florian
ich habe folgendes Problem, bei dem ich nicht mehr weiter komme:
Mein Excel-Sheet hat 2 Spalten.
In Spalte A stehen Namen
In Spalte B Beträge
Ich möchte nun in ein anderes Arbeitsblatt (Ausschluss) die Namen übernehmen, bei denen der Wert manuell auf 0,00 geändert wurde.
Was ich nicht hinbekomme ist, dass der Name immer in die nächste nächste freie Zeile in diesem Arbeitsblatt schreibe.
kann mir da jemand helfen?
Derzeit sieht mein bißchen Code wie folgt aus (die "?" stehen für die dynamische Angabe der nächsten freien Zeile):
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B1:B500")) Is Nothing Then
If ActiveCell.Offset(-1, 0).Value = 0 Then
Worksheets("Ausschluss").Cells(?, 1).Value = ActiveCell.Offset(-1, -1).Value
End If
End If
End Sub
Vielen Dank im Voraus!Florian