Formel wird bei Eingabe überschrieben

Hallo Freaks,
folgendes Problem:
In Zelle A19 Steht "Notendurchschnitt"
In Zelle A21 habe ich die folgende Formel hinterlegt:
=WENN(A19="Notendurchschnitt:";">";"")
Der Notendurchschnitt wird durch die Gültigkeitsprüfung 1-6 auf die korrekte Zahleneingabe abgeprüft.
Wenn nun in Zelle A21 ein korrekter Wert eingegeben und anschließend wieder gelöscht wurde, wird damit meine Formel überschrieben. Ich möchte aber erreichen, dass immer wenn hier kein Wert steht, und wenn in Zelle A19 das Wort "Notendurchschnitt" steht, der Text ">"erscheint.
Leider kann ich die Zelle A21 nicht schützen, da sonst die Zahleneingabe nicht mehr möglich ist.
Folgende Ideen habe ich hierzu:
1. Idee: Von einer Benachbarten Zelle aus prüfen ob die beiden Bedingungen (A19="Notendurchschnitt" und A21="") erfüllt sind und dann den Wert ">" in die Zelle A21 eintragen.
Da ich glaube, dass dieses Problem nicht mit Formeln lösbar wäre, wäre mein zweiter Ansatz dies über VBA zu lösen.
Leider funktioniert mein bisheriger Code nicht wie gewünscht:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If ActiveSheet.Range("A19").Value = "Notendurchschnitt:" Then
If ActiveSheet.Range("C19").Value = "" Then
ActiveSheet.Range("C19").Value = "<< Dieses Feld muss ausgefüllt werden! >>"
End If
End If
End Sub

Kann mir jemand helfen?
Vielen Dank im Voraus.
Marco

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address <> "$A$21" Then Exit Sub If Range("A19").Value = "Notendurchschnitt:" Then If Range("A21").Value = "" Then Range("A21").Value = "<< Dieses Feld muss ausgefüllt werden! >>" End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If ActiveSheet.Range("A19") = "Notendurchschnitt:" and ActiveSheet.Range("A21")= "" Then ActiveSheet.Range("A21") = "<< Dieses Feld muss ausgefüllt werden! >>" End If End Sub

Hallo Werner, hallo Volker,
erstmal vielen Dank für die schnelle Antwort. Ich bin echt von dem Engagement hier im Forum begeistert :-)
Leider funktioniert es noch nicht so wie gewünscht. Warscheinlich habe ich die Zellabhängigkeiten meines Problems unterschätzt.
In der Zelle A19 ist die folgende Formel hinterlegt:
=WENN(ODER(C18=">";C18="kein Schulabschluss");"";"Notendurchschnitt:")
In Zelle C18 befindet sich eine Auswahlliste mit den Kriterien:
>
Mittlere Reife
Fachhochschulreife
Abitur/ Hochschulreife
Kein Schulabschluss
Ich wollte meine Frage anfangs so einfach wie möglich gestalten, deshalb ging ich davon aus, dass in A19 nur "" oder "Notendurchschnitt:" steht.
Das Makro von Euch und meines funktionieren so weit korrekt. Wenn allerdinigs in Zelle C18 ">" bzw. "Kein Schulabschluss" ausgewählt wird, trägt es in Zelle C19 ">" ein, obwohl die Zelle A19 leer bleibt.
Habe ich vielleicht bei meiner wenn/oder Abfrage etwas falsch gemacht, oder habt Ihr noch eine Idee?
Herzliche Grüße
Marco

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address <> "$C$19" Then Exit Sub If Range("A19").Text = "Notendurchschnitt:" Then If Range("C19").Value = "" Then Range("C19").Value = "<< Dieses Feld muss ausgefüllt werden! >>" End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Formel wird bei Eingabe überschrieben

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread