Wenn in D15 ein Wert, dann in E15 Wert aus L15

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim Ref As Range Set Target = Target.Cells(1) 'berücksichtig nur die erste Zelle, falls Änderungen per copy-Paste gemacht wurden If Intersect(Range("C15:E43"), Target) Is Nothing Then Exit Sub Application.EnableEvents = False Set Ref = Target.EntireRow.Range("L1") 'relative Adressierung: nur die eine Zeile Select Case Target.Column Case 5 'Spalte "E" If Target.Value = "" Then Target.Value = Ref.Value ElseIf Target.Value Ref.Value Then MsgBox "Darf nicht " & Ref.Value & " unterschreiten." Application.Undo End If Case 3 To 4 'Spalte C bis D Target.Value = Ref.Value Case Else 'nichts. Nur vollständigkeitshalber hinzugefügt End Select Application.EnableEvents = True End Sub

HI
Dieses Verhalten kannst du auch ohne Makros, nur per Formel, erreichen:
allerdings brauchst du für Spalte E drei Spalten (also E, F und G)

in Spalte E kommt diese Formel:
=Wenn(Anzahl2(C1:D1)=2;L1&"";"")
Spalte F ist leer, hier trägst du den von Hand geänderten Wert ein.
in Spalte G dann diese Formel, sie holt den Wert aus F, wenn in F was steht, ansonsten den Wert aus E (dann L1)
=Wenn(F1="";E1;F1)

für die passende Optik solltest du Spalte E so schmal wie möglich ziehen, ohne die Spalte ganz auszublenden (Breite 1 Pixel)
die Spalte E sollte auch gesperrt sein, falls du mit Schreibschutz arbeiten willst, damit diese nicht aus versehen überschrieben wird.

Spalte F ist dann die Spalte, die du für weitere Auswertungen verwenden solltest.
Diese Spalte kannst du ausblenden.

beachte, der Wert für die Anzeige in Spalte E muss ein Text sein, nur dann wird der Inhalt in F weiter geschrieben wenn F leer ist.

Gruß Daniel

Gruß Daniel

Private Sub Worksheet_Change(ByVal Target As Range) Dim Ref As Range Set Target = Target.Cells(1) 'berücksichtig nur die erste Zelle, falls Änderungen per copy-Paste gemacht wurden If Intersect(Range("E15:E43"), Target) Is Nothing Then Exit Sub Application.EnableEvents = False Set Ref = Target.EntireRow.Range("L1") 'relative Adressierung: nur die eine Zeile Select Case Target.Column Case 5 'Spalte "E" If Target.Value = "" Then Target.Value = Ref.Value End If Case 3 To 4 'Spalte C bis D Target.Value = Ref.Value Case Else 'nichts. Nur vollständigkeitshalber hinzugefügt End Select Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim Ref As Range Set Target = Target.Cells(1) 'berücksichtig nur die erste Zelle, falls Änderungen per copy-Paste gemacht wurden If Intersect(Range("C15:E43"), Target) Is Nothing Then Exit Sub Application.EnableEvents = False Set Ref = Cells(Target.Row, "L") Select Case Target.Column Case 5 'Spalte "E" If Target.Value = "" Then Cells(Target.Row, "E").Value = Ref.Value ElseIf Target.Value Ref.Value Then MsgBox "Darf nicht " & Ref.Value & " unterschreiten." Application.Undo End If Case 3 To 4 'Spalte C bis D Cells(Target.Row, "E").Value = Ref.Value Case Else 'nichts. Nur vollständigkeitshalber hinzugefügt End Select Application.EnableEvents = True End Sub

Ja das ist schon sehr gut vielen Dank :)

Ich habe aus deinem Code nur folgendes entfernt:

        ElseIf Target.Value  Ref.Value Then

            MsgBox "Darf nicht " & Ref.Value & " unterschreiten."

            Application.Undo

Das sorgte bei mir für zwei Meldungen hintereinander, da ich dafür ja schon eine Meldung habe.
Außerdem hat er den Wert, der manuell reingeschrieben wurde dann wieder resettet.

So funktioniert es jetzt:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Ref As Range



    Set Target = Target.Cells(1) 'berücksichtig nur die erste Zelle, falls Änderungen per copy-Paste gemacht wurden

    If Intersect(Range("C15:E43"), Target) Is Nothing Then Exit Sub

    Application.EnableEvents = False

    Set Ref = Cells(Target.Row, "L")

    Select Case Target.Column

    Case 5 'Spalte "E"

        If Target.Value = "" Then

            Cells(Target.Row, "E").Value = Ref.Value

        End If

    Case 3 To 4 'Spalte C bis D

            Cells(Target.Row, "E").Value = Ref.Value

    Case Else

        'nichts. Nur vollständigkeitshalber hinzugefügt

    End Select

    Application.EnableEvents = True

End Sub

Zwei kleine optische Feinheiten wären noch schön, wenn es keine Umstände macht:

1. Aktuell wird auch L in E übertragen wenn man nur etwas in D schreibt ohne etwas in C stehen zu haben, schön wäre es als Bedingung dafür einen Eintrag in D und C zu haben.

2. Wenn man etwas in C einträgt kommt direkt in E "#NV" kann man das noch ausschalten? Ist aber wie gesagt nur ne optische Sache.

Viele Grüße

Kai

PS: kann ich meinen Benutzernamen hier im Forum noch ändern ? ^^

Beliebteste Forumthreads (12 Monate)

Wenn in D15 ein Wert, dann in E15 Wert aus L15

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn in D15 ein Wert, dann in E15 Wert aus L15

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread