ich habe eine Tabelle, bei der Transaktionen fotlaufend hinzugefügt werden. In der Spalte Monat wird der Monat in dem die Transaktion gebucht wurde notiert. Wenn ein Monat eingetragen wird, der vorher noch nicht aufgetaucht ist, soll je nach Monat ein makro aktiviert werden. Bisher habe ich diesen code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Isect As Range
For i = 0 To 39
Set Isect = Intersect(Target, Cells(15 + i, 2))
If Not Isect Is Nothing And Cells(15 + i, 2).Value Cells(15 + i, 2).Offset(-i, 0). _
Value Then
Select Case Target.Value
Case Is = "Jan"
Call Jan
[repeated For all months]
End Select
Else
End If
Next i
End Sub
Das heißt die Linie
If Not Isect Is Nothing And Cells(15 + i, 2).Value Cells(15 + i, 2).Offset(-i, 0).Value Then
muss verändert werden.Im moment wird der makro aktiviert wenn der Monat eingetragen wird, es sei denn der selbe Monat steht bereits in der ersten Zelle (B15). Außerdem lösen Monate in der Zelle B 15 nie den makro aus, was auch nicht richtig ist. Ich habe im Moment keine Ideen wie ich das im VBA lösen kann, und bin dankbar für jeden Vorschlag :)
Vielen Dank!