Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1764to1768
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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

304 Forumthreads zu ähnlichen 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
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
5
4
4
2
16
7
8
2
3
4
4
5
1
3
5
2
4
6
4
2
8
3
4