Ich möchte gerne in Zelle "O" wenn ich die 2 Drücke eine Formel schreiben.
Die Formel soll sich der Zeile anpassen O=15
Code:
Cells(Target.Row, 15) =
Wenn ich in "J10" eine 2 Drücke soll in "O10" diese Formel Stehen "=L10
Wenn ich in "J11" eine 2 Drücke soll in "O11" diese Formel Stehen "=L11
Wenn ich in "J12" eine 2 Drücke soll in "O12" diese Formel Stehen "=L12
u.s.w.
Ich habe mal wieder dies bezüglich ein Problem
Die Makros gehen einzeln sehr Gut aber zusammen nicht.
Aber ich möchte in das Makro eine Zweites Makro Setzen
Der Grüne Bereich geht, aber wenn ich das zeite Makro starte zeigt es beim Roten Bereich einen Fehler an.
Ziehe auch Beispiel1 als Datei.
Zitat:Private Sub worksheet_change(ByVal Target As Range) Dim Sperre As String Sperre = Range("A1") ActiveSheet.Unprotect Select Case Sperre Case "0"
Range("A3:A6").Locked = True Range("C2:C10").Locked = True Range("A1").Select Case "1" Range("A3:A4").Locked = False Range("A4").Select Case "2" Range("A5:A6").Locked = False Range("A6").Select Case "3" Range("C2:C10").Locked = False Range("C2").Select End Select ActiveSheet.Protect
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("C2:C10")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
Select Case Target.Value
Case 0
Cells(Target.Row, 5) = "" Cells(Target.Row, 6) = ""
Cells(Target.Row, 7) = ""
Case 1
Cells(Target.Row, 5) = (Cells(2, 2)) Cells(Target.Row, 6) = (Cells(3, 2))
Cells(Target.Row, 7) = (Cells(4, 2))
Case 2
Cells(Target.Row, 5) = (Cells(5, 2)) Cells(Target.Row, 6) = (Cells(6, 2))
Cells(Target.Row, 7) = (Cells(7, 2))
End Select
ActiveSheet.Protect
End Sub
ich weis nicht weiter was ich machen soll denn einzel Gehen beide aber zusammen
das Zweite nicht richtig