Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.10.2025 19:07:09
Jahresauflauf über mehrere 3-fach-Monatsspalten Sum/Produkt
27.10.2025 14:50:03
Menüpunkt ausblenden
26.10.2025 19:31:14
Makro wenn sich Zelle ändert
26.10.2025 15:42:26
Inhalte in dynamischer Tabelle wiedergeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1764to1768
1764to1768
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellwert überschreiben wenn Bedingung

Forumthread: Zellwert überschreiben wenn Bedingung

Zellwert überschreiben wenn Bedingung
26.06.2020 10:39:49
Jasmin
Hallo zusammen,
ich habe ein Problem und finde leider keine Lösung.
In meiner Tabelle in der Spalte L kann mittels Dropdown Liste der Eintrag "überarbeitet" ausgewählt werden.
Sollte dies der Fall sein, soll der händisch eingetragene Zelleninhalt von Spalte J durch 0,00 € ersetzt werden.
Müsste mit einem Marko funktionieren, aber VBA ist nicht mein Fachgebiet.
Hat bitte jemand eine Lösung für mich.
Danke vorab
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellwert überschreiben wenn Bedingung
26.06.2020 11:12:30
EtoPHG
Hallo Jasmin,
VBA-Editor öffnen (Alt-F11)
Mit Doppelklick auf das entsprechende Tabellenblatt ein leeres Editierfenster öffnen.
Diesen Code hineinkopieren: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rC As Range
If Target.Column = 12 Then
Application.EnableEvents = False
For Each rC In Target.Cells
If rC.Column = 12 And rC.Text = "überarbeitet" Then rC.Offset(, -2). _
ClearContents
Next rC
Application.EnableEvents = True
End If
End Sub
Gruess Hansueli
Anzeige
AW: Zellwert überschreiben wenn Bedingung
26.06.2020 11:25:44
Jasmin
Hallo Hansueli,
danke für die schnelle Antwort, habe es so gemacht aber es passiert leider nichts.
Bei einem meiner Module kann ich es mit Alt+F8 zum Laufen bringen.
Muss ich nach dem Hineinkopieren noch etwas beachten?
Sorry :(
Grüße
Jasmin
AW: Zellwert überschreiben wenn Bedingung
26.06.2020 11:35:36
EtoPHG
Hallo Jasmin,
Nein. Das ist ein Code, der automatisch greift, wenn in Spalte L eine Zelle verändert wird.
Wird diese mit dem Text "überarbeitet" belegt, wird die Zelle der Spalte J in der gleichen Zeile gelöscht. Aber du wolltest eigentlich 0 eingetragen haben, darum ersetze den Code durch: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rC As Range
If Target.Column = 12 Then
Application.EnableEvents = False
For Each rC In Target.Cells
If rC.Column = 12 And rC.Text = "überarbeitet" Then _
rC.Offset(, -2) = 0
Next rC
Application.EnableEvents = True
End If
End Sub
Wichtig ist, der Code muss im Klassenmodul des richtigen Tabellenblatt stehen und nicht etwa in einem Modul. Mit Alt-F8 kannst Du diesen Code nicht zum Laufen bringen.
Ändere einfach mal eine Zelle in Spalte L auf irgendwas und dann in einem 2ten Schritt auf "überarbeitet" (kleingeschrieben!)
Gruess Hansueli
Anzeige
AW: Zellwert überschreiben wenn Bedingung
26.06.2020 11:58:48
Jasmin
Ok verstanden danke für die Erläuterung.
Funktioniert leider trotzdem nicht :(
AW: Bitte Beispielmappe hochladen...
26.06.2020 12:18:22
EtoPHG
Hallo,
Kannst du eine anonymisierte Beispielmappe hochladen, in dem es nicht funktioniert!
Gruess Hansueli
Na ja, wenn alles anders wird...
26.06.2020 13:52:11
EtoPHG
Jasmin,
kann das nicht funktionieren.
In der Erstanfrage: Spalte L, in der Beispielmappe: Spalte K
In der Erstanfrage: -1 Spalten (J) auf 0 setzten, in der Beispielmappe -1 Spalte (J)
Zudem enthält die Beispielmappe keinen Code, warum?
Also für deine Beispielmappe diesen Code in das Tabellenblatt 1: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rC As Range
If Target.Column = 11 Then
Application.EnableEvents = False
For Each rC In Target.Cells
If rC.Column = 11 And rC.Text = "überarbeitet" Then _
rC.Offset(, -1) = 0
Next rC
Application.EnableEvents = True
End If
End Sub
Gruess Hansueli (...bleib Fröhlich ;-)
Anzeige
;

Forumthreads zu verwandten Themen

Unterschiedliche Werte mit Bedingung
kerberus

Hallo liebes Forum
Ich benötige mal wieder eure Hilfe. Das Ziel: eine Formel die mir die Anzahl unterschiedliche Eintragungen liefert. Folgender Code konnte ich bis jetzt erstellen:
Function ZUnterschiede(Kriterium As String, Kriteriumbereich As Range, Wertebereich As Range) _ As D...
22.08.2008 10:34:00
Thread-ID: 1003771
3 Beiträge
Werte zählen mit Bedingung
Hugo

Hallo,
in Spalte K sollen die in Spalte H aufeinderfolgenden Werte unter Bedingung gezählt werden. Habe händisch eingetragen wie gezählt werden soll. Auch ein kommentar beschreibt wie ich mir denken könnte wie es zu definieren ist. Andere Ideen sind natürlich willkommen.
Danke und Grus...
02.10.2008 18:53:00
Thread-ID: 1013949
4 Beiträge
Anzeige
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
6 Beiträge
Auswertung mit mehr Bedingungen
dieter

Hallo,
ich möchte eine summierte Auswertung erhalten die 2 Bedingungen berücksichtig. Wenn möglich als Formel. Weiß nicht ob das möglich ist. Ich habe 8 unterschiedliche Kategorien.
Tabelle sieht folgend aus:
A / B / C
Jän / a / 10
Jän / b / 10
Jän / a / 15
Feb / b /...
04.01.2009 16:48:00
Thread-ID: 1036762
5 Beiträge
Suche rückwärts nach Wert wenn Bedingung erfuellt
Horst

Hey !
Ich schreibe suchmakros.
Mir find("suchwert") kann ich nache einem bestimmten Inhalt einen Zelle suchen...
O.K.
jetzt möchte ich nach einem Wert in einer zelle suchen der eine bestimmte Bedingung erfüllt.
Zum Bespiel möchte ich nach einem Datum in einer suchen...
...
13.01.2009 07:45:09
Thread-ID: 1039076
5 Beiträge
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
3 Beiträge
Wert in Spalte finden...
Jens

Hallo,
ich bin Neuling im Bereich Excel und möchte folgendes erreichen:
Ich habe eine Tabelle.
In dieser Tabelle soll in der ersten Spalte ein Wert gefunden werden.
Ist dieser Wert gefunden, soll ein Teil der Tabelle in ein neues Tabellenblatt geschrieben werden.
Kann mir je...
26.04.2009 10:31:50
Thread-ID: 1071168
17 Beiträge
Anzahl der häufigsten Werte mit Bedingung
André

Moin zusammen,
ich habe in Spalte A einer Tabelle Artikelbereiche stehen, in Spalte B Artikelkategorien. Ich möchte nun die Anzahl der Zeilen wissen, die einen bestimmten Artikelbereich haben. Aber nur die Anzahl der Artikel, deren Artikelkategorie am häufigsten in diesem Artikelbereich vor...
02.09.2009 12:48:45
Thread-ID: 1100042
8 Beiträge
NIEDRIGSTEN WERT FINDEN
Gerhard

Hallo da draussen
Bin gerade über einer Liste und muss ne Auwertung hierüber machen.
folgender Aufbau:
in Spalte AF: bisheriger Preis
in Spalte AH; AK; AN; AQ; AT - NEUE ANGEBOTSPREISE LIEFERANTEN
Jetzt wäre es klasse wenn ich den niedrigsten Preis aus Spalten AH; AK; AN; AQ...
06.10.2009 10:15:59
Thread-ID: 1107453
9 Beiträge
Modalwert mit Bedingungen
Nico

Einen wunderschönen Guten Morgen und vorab vielen Dank!
Also ich habe ein Problem mit dem Modalwert mit einer Bedingung.
Folgende Formel habe ich bereits gefunden und habe sie auf meine Bereiche angepasst:
{=MODALWERT(WENN($C$19:$AQ$19=AU$1;$C21:$AQ21))}
Das Problem ist, ich bek...
16.10.2009 13:42:23
Thread-ID: 1110042
3 Beiträge
Wert in Spalte finden
alex

hallo forum
ich habe bei meinem excel projekt ein problem bei dem ich nicht weiter komme
vielleicht könntet ihr mir da weiter helfen.
ich brauch ein makro das einen wert in einer zelle (c11) von mappe A mit den werten einer spalte (A) in mappe B vergleicht und bei einem treffer, in...
21.10.2009 22:10:35
Thread-ID: 1111201
4 Beiträge
MIN Wert mit Bedingung
Rene

Hallo leiebe Fornmitglieder.
Ich bin dabei eine Statistik für unser Atenheim zuerstellen und habe folgendes Problem:
Ich habe ein Datenblatt mit verschiedenen Informationen (Name, Pflegestufe, Alter, letzter Aufenthaltsort, Dauer des Aufenhalts, etc.)
Ich möchte nun per MIN den jüng...
23.10.2009 02:14:22
Thread-ID: 1111506
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige