VBA Skript - Update Problem
11.10.2003 22:27:13
Daniel
OliveR hat mir folgendes Skript für mein Problem gegeben:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%
If Intersect(Target, Range("F13")) Is Nothing Then Exit Sub
If Target.Value = "Automatisch" Then
For i = 13 To 24 Step 1
Cells(i, 24) = Cells(i, 19)
Next i
ElseIf Target.Value = "Manuell" Then
Range("X13:AA24").ClearContents
MsgBox ("Bitte geben Sie die Sendungen pro Monat manuell ein")
ElseIf Target.Value <> "" Then
MsgBox ("Automatisch oder Manuell wählen")
Range("F13").ClearContents
Range("F13").Select
End If
End Sub
Sie funktioniert auch prächtig, allerdings wenn F13 auf Automatisch ist und ich die Zellen (13,19) - (24,19) ändere, werden die Zahlen in den Zellen (13,19) - (24,19) nicht automatisch geupdatet, nur dann wenn ich F13 wieder auf Automatisch stelle (ist ein Gültigkeit/Daten Dropdown).
Gibt es eine Lösung dafür das die Zellen bei einer Änderung der Quelle auch automatisch dementsprechend geändert werden. Vielen Dank im voraus
Daniel.