Makro aktivieren per Zell ein gabe!

[BadDog81]

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.

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

[BoskoBiati]

Hallo,

setze einfach nach year das ein:

Code:

Cells(Target.Row, 5)

[BadDog81]

Ich Danke dir Für deine Hilfe!!!

:19: :19: :19:

[BadDog81]

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

Code:

Target.Row

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

[BadDog81]

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.

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

[Steffl]

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