Hallo Edgar
Nur noch ein kleine Ergänzung:
Das Makro ist schon Perfeckt auser das ich noch hinter "Zinsen" noch das Aktuelle Jahr sehen haben möcht.
Zitat:Case 3
Cells(Target.Row, 6) = "Zinsen" Hier die Jares Zahl von zelle E (Zeiile E In Datum)
Das Datum gebe ich manuell in zelle E ein.
Gibt es da auch noch eine Möglichkeit?
MfG BD
Hallo,
setze einfach nach year das ein:
Code:
Cells(Target.Row, 5)
Ich Danke dir Für deine Hilfe!!!
:19: :19: :19:
Hallo
Ich komme mal wieder nicht weiter:
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.
So wie
So das ich die zahl nur na der zeile anpast!
Code:
Case 2
Cells(Target.Row, 6) = "Nebenkosen Abrechnung " & Year(Cells(Target.Row, 5)) - 1
Cells(Target.Row, 15) = .............
Cells(Target.Row, 11) = ""
Kann mir da bitte nochmal jemand Hälfen?
MfG BD
Hallo Excel Freund
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
Bitte um Hilfe!
MfG BD
Hallo,
ein Eintrag in eine Zelle löst das Change-Ereignis ein weiteres Mal aus. Du mußt die Ereignisse ausschalten.
Code:
Private Sub worksheet_change(ByVal Target As Range)
Dim Sperre As String
Sperre = Range("A1")
ActiveSheet.Unprotect
Select Case Sperre
Case "0"
'Range("A1").Locked = False
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
Application.EnableEvents = False
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
Application.EnableEvents = True
ActiveSheet.Protect
End Sub