ich nutze folgendes Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Intersect(Range("a2:a5"), Target)
If Not Bereich Is Nothing Then
Application.EnableEvents = False
With Bereich
ActiveSheet.Unprotect
.Offset(5, 0).Value = "0:30"
' ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Application.EnableEvents = True
End If
End Sub
Jetzt soll aber bei .Offset(5, 0).Value = "0:30" der Inhalt aus der betreffenden Zeile eingetragen, wo ich gerade was geändert habe.
Beispiel:
In A2 wird 5 eingetragen, dann soll in A7 auch die 5 automatisch eingetragen werden. Bei A3 dann halt A8 usw.
Zweite Herausforderung:
Wenn ich in A2 die 5 eintragen, dann soll dies nicht nur in A7 sondern auch in A12, A17 und A22 passieren. Jetzt kommt aber die Herausforderung: Trägt man in A7 was ein, dann soll dies nur in A12, A17 und A22 auch automaisch passieren. Bei A12 dann nur in A17 und A22.
Und das betrifft natürlich A3, A4 und A5 ebenso.
Wer kann mir hier helfen? Habe nicht viel Ahnung von VBA und bin auf Eure Hilfe angewiesen.
Im Voraus vielen Dank!
LG
Claudia