Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
620to624
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
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellwerterhöhung mit Bedingung

Zellwerterhöhung mit Bedingung
Norb
Hallo Leute!
Ich habe eine Frage: Ich habe diesen Code hier gefunden und es ist beinahe genau das, was ich gesucht habe.
Private 

Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("B1") = Range("B1") + Target.Value
End Sub

Aber ich würde gerne eine kleine Veränderung vornehmen: Ich möchte, dass zB in der Zelle C1 der Tag ausgelesen wird und dadurch wird die Zelle, in der der Wert summiert wird, beeinflusst.
Soll heißen:
Ich trage in Zelle A1 einen Wert ein
Es wird geprüft welcher Tag in Zelle C1 eingetragen ist
Wenn "Montag" in Zelle C1 steht, wird der Wert zu B1 addiert
Wenn "Dienstag" in Zelle C1 steht, wird der Wert zu B2 addiert
usw...
Kann mir jemand helfen? Ich wäre euch sehr zu Dank verbunden. Danke im Vorraus.
Norb

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellwerterhöhung mit Bedingung
05.06.2005 16:24:06
ransi
hallo norbert
versuchs mal so:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
[b1] = [b1] - ([a1] * ([c1].Text = "Montag"))
[b2] = [b2] - ([a1] * ([c1].Text = "Dienstag"))
End Sub

ransi
AW: Zellwerterhöhung mit Bedingung
05.06.2005 16:37:53
Norb
Hallo Ransi,
1000 Dank für das alles und das auch noch so schnell.
Gibt es eigentlich ein wirkliches Anfänger-Buch für VBA oder sonst etwas? Alles funktioniert aber um ehrlich zu sein, habe ich keinen Plan, was das jetzt genau bedeutet... ;)
Ich würde das alles sehr gerne lernen bzw. vor allem verstehen. Sozusagen um euch Arbeit zu ersparen. ;)
Auf jeden Fall noch einmal ein dickes Danke.
Norb
Anzeige
versuch einer Erklärung..
05.06.2005 17:10:33
ransi
hallo norbert
freut mich das du den code nicht einfach kommentarlos ohne rückfrage übernimmst.
ich versuch mal eine erläuterung:
If Target.Address "$A$1" Then Exit Sub
sollte nachzuvollziehen sein.
[b1] = [b1] - ([a1] * ([c1].Text = "Montag"))
ist schon schwieriger:
([c1].Text = "Montag") ist ein wahrheitswert der excelintern in eine zahl
umgerechnet wird.
für wahr -1
für falsch 0
wenn c1 = montag hiesse das für die formel:
b1=b1-(a1*(-1))
=
b1=b1-(-a1)
=
b1=b1+a1
wenn c1 = dienstag hiesse das für die formel:
b1=b1-(a1*0)
=
b1=b1-(0)
=
b1=b1
für die zelle b2 entsprechend
In sachen Literatur kann ich dir nicht weiterhelfen.
Bin Autodidakt.
Versuch im Forum die Probleme die hier geschildert werden zu verstehen und Lösungen zu erarbeiten.
Wenn andere Lösungsvoschläge eingehen versuche diese nachzuvollziehen.
Die Zaubertaste (F1) hat auch eine ziemlich hohe trefferquote.
(wenn man weiss wonach man suchen soll)
Hoffe ich konnte helfen.
ransi
Anzeige
Noch eine Frage
06.06.2005 21:20:32
Norb
Ich hoffe, das hier wird noch gelesen,
Ich habe jetzt noch eine Frage. Ich versuche nun diese Formel in Tabelle1 einzusetzen und es funktioniert alles (Danke nochmal!)
Ich möchte nun in eine andere Zelle zB A2 Daten eintragen und in sollen diese summiert werden zb in B14 eingefügt wenn C1 Montag ergibt und in B15 wenn C1 Dienstag ergibt. Alles in allem das Gleiche wie schon angegeben aber alles bis auf C1 ändert sich.
Ich habe einfach versucht das ganze zu kopieren und die Werte zu ändern. Aber egal wie ich es drehe und wende bzw. Versuche ein Ergebnis zusammenzubasteln, es will nicht funktionieren. Liegt es an dem "If Target.Address "$A$1" Then Exit Sub"? Soll heißen dass alle Werte bis auf A1 (warum eigentlich die Dollarzeichen für einen fixen Bezug. Ich habe es ohne versucht und es funktioniert nicht aber warum?) einfach komplett ignoriert werden wegen "then exit sub".
Ich versuche mir irgendwie etwas logisches zusammenzubasteln aber wirklich entwickeln tut sich das nicht. Ich hatte bis zu diesem Beispiel hier gar nichts mit VB zu tun.
Ich hoffe, man hilft mir nochmal. Danke im Vorraus.
Norb
Anzeige

317 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
Variable Gültigkeitsliste ohne doppelte Werte
Susi

Hallo liebe Excel-Freunde,
ich möchte gerne aus einer Datentabelle den Inhalt einer Spalte für eine Auswertung über eine Variable Gültigkeitsliste ziehen.
Zur Verdeutlichung hier ein einfaches Spiel-Beispiel:
Spalte A Spalte B
Äpfel 10
Äpfel 20
Birnen...
28.11.2008 10:08:27
Thread-ID: 1028603
5 Beiträge
Anzeige
kkleinste ohne doppelte werte
gisela

Hallo zusammen,
nach einigen Stunden Recherche benötige ich noch mal Eure Hilfe.
Verschiedene Datumsangaben (siehe Datei) sollen aufsteigend ohne doppelte Werte angezeigt werden.
Meine Formel funktioniert nur bedingt. Irgendetwas stimmt nicht.
Kann mir bitte jemand helfen?
h...
31.01.2009 23:47:11
Thread-ID: 1045792
2 Beiträge
Gültigkeite - Liste ohne doppelte Werte
susi

Hallo,
ich habe eine kleines, eher optisch unschönes Problem. In einer Tabelle wird von den Nutzern auf dem ersten TB eine Liste mit Werte al la ABC1000; ABC1010 ... eingetragen. Nun können sich aber diese Werte auch wiederholen. Auf einem zweiten TB habe ich eine Spalte die sich über DATEN...
13.08.2009 07:57:25
Thread-ID: 1095462
2 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
(Spezial-) Formel für dyn. Liste ohne Duplikate
Reinhard

Hallo Wissende,
Auf http://excelformeln.de/formeln.html?welcher=194 steht zwar der Satz:
"Es gibt Array-Formeln ohne Hilfsspalte für überschaubare Bereiche."
Der nützt mir aber nix, bräuchte ich dies Arrayformeln, wobei die vielleicht nicht ausreichen weil mein Anliegen ist speziell...
14.10.2009 23:08:51
Thread-ID: 1109696
6 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
1
1
7
5
2
4
5
1
3
4
3
1
8
4
6
2
4
7
6
2