Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1644to1648
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
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Zellen Frage

Excel Zellen Frage
21.09.2018 09:48:04
Thomas
Hallo,
ich habe folgende Fragen:
1. ich habe Buttons gesetzt, welche individuell in anderen Zellen den Wert verändern um je +1. Nun möchte ich in einer anderen einzelnen Zelle den sich ständig veränderten Wert der anderen Zellen addieren. Die Zahl in der neuen Zelle soll sich um -5 verändern wenn jedesmal in Zelle z.B. C4 bis C8 sich die Zahl um 1 erhöht. Wenn in Zelle C9 bis C14 sich die Zahl verändert, dann soll in der neuen Zelle +2 dazu addiert werden.
2. Wie muss ich einen Button programmieren der die Zahlen von mehreren Zellen auf Null stellt wenn ich ihn drücke.
Hoffe das macht Sinn.
Vielen Dank schon mal.

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Zellen Frage
21.09.2018 10:11:49
Gerd
Hallo Thomas,
Sinn? Ich weis nicht! 
Sub a()
Range("C4") = Range("C4") + 1
Range("D1") = Application.Sum(Range("C4:C8")) - 5
End Sub


Sub b()
Range("A4,C4:C7,C9:C12") = 0
End Sub
Gruß Gerd
AW: Excel Zellen Frage
21.09.2018 10:32:05
Thomas
Hallo Gerd,
Der Zweite Teil hat Perfekt funktioniert.
Danke
Zum Ersten habe ich mich schlecht ausgedrückt.
Ich versuche es etwas anders.
Zelle B20 soll sich um "minus 1" jedesmal verändern wenn in Zellen C4 bis C8 sich die Zahl verändert
Zelle B20 soll sich um "Plus 5" jedesmal verändern wenn in Zellen C9 bis C14 sich die Zahl verändert.
So soll Zelle B20 ständig eine neue Zahl bekommen ob Plus oder Minus.
Vielen Dank
Anzeige
Worksheet_Change
21.09.2018 11:26:45
Matthias
Hallo
Code ins Tabellenblatt

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C8")) Is Nothing Then
Range("B20") = Range("B20") - 1
End If
If Not Intersect(Target, Range("C9:C14")) Is Nothing Then
Range("B20") = Range("B20") + 5
End If
End Sub
Gruß Matthias
AW: Worksheet_Change
21.09.2018 14:55:29
Thomas
Hallo Matthias,
leider bekomme ich auch bei Dir keinen Wert in "B20".
Vielleicht kannst Du mir Deine Gedanken etwas einfacher Erklären. Bin nicht so der Experte.
Danke
automatische Berechnung aus ?
21.09.2018 23:39:30
Matthias
Hallo
Schau mal ob Deine Berechnung auf Automatik steht
Ansonsten die gewünschte Erklärung:
Änderst Du einen Wert im Bereich Range("C4:C8") wird B20 um 1 reduziert.
Änderst Du einen Wert im Bereich Range("C9:C14") wird B20 um 5 erhöht.
Wenn Du keinen Wert bekommst(in B20) nach einer Änderung in einem der Bereiche
steht wahrscheinlich die Berechnung auf Manuell
Auch der Code von Gerd funktioniert (Du musst nur die 9 ergänzen). Das hat er nicht bemerkt.
Const strQuelle = "$C$4:$C$8,$C$9:$C$14"
Gruß Matthias
Anzeige
AW: automatische Berechnung aus ?
22.09.2018 00:30:44
Thomas
Hallo Matthias,
leider müssen wir ein anderes Kaninchen aus dem Hut zaubern.
Berechnung steht leider auf Automatik. Seufz.
AW: Excel Zellen Frage
21.09.2018 11:34:06
Gerd
Hallo Thomas,
ins Codefenster der Tabelle kopieren. Es wird dann automatisch gezählt, falls Werteänderungen
nicht per Formel erfolgen. 
Private Sub Worksheet_Change(ByVal Target As Range)
Const strQuelle = "$C$4:$C$8,$C$:$C$14"
If Intersect(Target, Range(strQuelle)) Is Nothing Then Exit Sub
If Not Intersect(Target.Cells(1), Range(strQuelle).Areas(1)) Is Nothing Then
Range("B20") = Range("B20") + 1
ElseIf Not Intersect(Target.Cells(1), Range(strQuelle).Areas(2)) Is Nothing Then
Range("B20") = Range("B20") - 5
End If
End Sub

Gruß Gerd
Anzeige
AW: Excel Zellen Frage
21.09.2018 14:53:59
Thomas
Hallo Gerd, Danke für Deine Zeit.
Ich habe einen Rechtsklick auf den Tabellenreiter gesetzt um "Code Anzeigen" zu erhalten.
Unter Worksheet habe ich dann Deine Infos reinkopiert.
Leider passiert auf "B20" nichts. Keine Zahl. Sicher mache ich etwas falsch.
Danke
AW: Excel Zellen Frage
22.09.2018 00:03:17
Gerd
Hallo Thomas,
guckst du:
https://www.online-excel.de/excel/singsel_vba.php?f=44#s4
Noch eine kleine Korrektur bzw. Ergänzung der ersten Codezeile:
Const strQuelle = "C4:C8,C9:C14"
Gruß Gerd

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige