Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Makro aktivieren per Zell ein gabe!
#11
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
Antworten Top
#12
Hallo,

setze einfach nach year das ein:


Code:
Cells(Target.Row, 5)
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#13
Ich Danke dir Für deine Hilfe!!!

:19: :19: :19:
Antworten Top
#14
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
Antworten Top
#15
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


Angehängte Dateien
.xlsm   Beispiel1.xlsm (Größe: 16,63 KB / Downloads: 3)
Antworten Top
#16
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
Gruß Stefan
Win 10 / Office 2016
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste