Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
144to148
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
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert halbieren, wenn 'CheckBox.Value = True'

Wert halbieren, wenn 'CheckBox.Value = True'
12.08.2002 15:22:48
Martin
Hallo,

stehe auf'm Schlauch. Ich habe mir in ein Arbeitsblatt einen CommandButton integriert, der bei Click einen vorher eingegebenen Wert in Zelle A1 in eine andere Zelle schreiben soll (eine Art Eingabemaske).

Zusätzlich habe ich eine CheckBox integriert, die bei Value = True den Wert, den ich von Zelle A1 in die andere schreiben will, halbieren soll, (bei Value = False soll der volle Wert kopiert werden).
Leider bekomme ich diese simple Rechenaufgabe in VBA nicht auf die Reihe. Kann mir jemand bitte behilflich sein?

Danke und Gruss,
Martin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Wert halbieren, wenn 'CheckBox.Value = True'
12.08.2002 15:31:07
Otto Ecker
Hallo Martin,

als Beispiel

Gruß Otto

Re: Wert halbieren, wenn 'CheckBox.Value = True'
12.08.2002 15:37:10
Folker
Keine Ahnung an welcher Stelle du hängst aber hier mal der Code ins Blaue geschrieben:

sub commandbutton1_click()
dim x as integer
x = range("a1").value

if checkbox1 = true then
x= x/2
range("?").FormulaR1C1 = x
else:
range("?").FormulaR1C1 = x
end if

end sub

Oder so...
12.08.2002 15:40:00
@lex
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then Cells(2, 1).Value = Cells(1, 1).Value / 2
If Not CheckBox1.Value = True Then Cells(2, 1).Value = Cells(1, 1).Value
End Sub
Danke euch beiden!
12.08.2002 15:40:42
Martin
M.
Oder so! Danke.
12.08.2002 15:42:12
Martin
M.

Anzeige

303 Forumthreads zu ähnlichen Themen

Indirekt-Formel mit Wenn-Funktion?
Ingrid

Hallo, hab noch ein Problem...
Gibts auch die Möglichkeit diese Indirekt-Formel (wie schon in "Auto-Ausfüllen: Zelle gleich - anderes Tabellenblatt" besprochen) mit einer Wenn-Funktion zu versehen?
=INDIREKT("'" &ZEILE(D1) &"'!B16")
Wenn B16="" Dann C16
LG
Ingrid
11.09.2008 14:37:28
Thread-ID: 1009130
5 Beiträge
Anzeige
Tabelle mit Wenn-Funktion
mehmet

Hallo Forum,
ich versuche eine Liste mit nur einem Eingabefeld zu erarbeite.
Leider komme ich nicht voran.
Als Anlage habe ich die Datei (Ohne Makro, braucht auch nicht) hoch geladen.
https://www.herber.de/bbs/user/61008.xls
Es handelt sich hier um folgende Wasserbehälter:...
06.04.2009 09:18:14
Thread-ID: 1067016
7 Beiträge
Verschachtelungen mit Wenn-Funktionen
Gießbach

Hallo Zusammen,
habe ein Problem:
Und zwar versuche ich gerade eine Berechnung unserer Frachtkosten bei einem Spediteur zu erstellen. Ich habe eine Matrix mit in Spalte A angegebenen Gewichten und in den Spalten B bis I die Kosten für das jeweilige Gewicht von/bis. Dazu sind die Preiss...
11.05.2009 15:50:07
Thread-ID: 1074386
4 Beiträge
Anzeige
addieren aus Textboxes, wenn Checkbox aktiv
Wolfgang

Hallo,
ich hatte mir gedacht, dass nachstehender Code funktionieren müsste. Macht er aber nicht; er zeigt mir zwar die einzelnen Summen in Textbox10 an, aber addiert sie nicht zu einer Gesamtsumme. Was mache ich verkehrt? - Ich würde also gerne erreichen, dass,sofern die jeweilige CheckBox...
17.10.2009 08:32:39
Thread-ID: 1110232
11 Beiträge
Wenn die aktive Zelle in letzter Zeile dann Makro
Karsten

Hallo,
Kann mir jemand bei folgeden Befehl helfen:
Wenn die aktive Zelle in der letzten Zeile (also unten, über dem Tabellennamen) des sichtbaren Bereichs steht, soll Makro1 ausgeführt werden. Wenn nicht, dann weiter.
Danke für eure Hilfe.
Gruß
Karsten
11.11.2009 15:07:54
Thread-ID: 1116229
3 Beiträge
Funktion "Wenn" mit mehreren Argumenten
Andreas

Hallo zusammen,
ich suche die verschachtelte Wennfunktion die mir hilft bei z.B.:
Wenn Zelle A1 = Europa, dann kalkuliere B1*C1
Wenn Zelle A1 = Asien, dann kalkuliere B2*C2 usw. mit mehreren Argumenten.
z.B. =wenn (A1="Europa";B1*C1), wenn(A1="Asien";B2*C2), wenn(A1 = "Afrika";B...
19.11.2009 16:08:12
Thread-ID: 1118694
9 Beiträge
Register/Tabellenblatt in Formel einbinden
Tobias

Hallo miteinander
In einem xls-sheet habe ich Verknüpfungen auf Register gemacht (z.B. =Tabelle3!C9+Tabelle5!A11).
Habe im laufe der Zeit ein neues Register mit einem neuen Tabellenblatt eingefügen.
Besteht die Möglichkeit die Formel so zu automatisieren, damit sie mit dem neuen Tab...
22.02.2010 14:09:38
Thread-ID: 1140346
6 Beiträge
If CheckBox5.Value = Checked Then
Raphael

Hallo zusammen,
ich habe das Problem das ich bei der Betätigung meiner CheckBox5 die Fehlermeldung "Object required" erhalte.
Ich möchte hinter diese CheckBox eine If Formel bauen, das bedeutet wenn sie checked ist, soll etwas gemacht werden, und wenn sie uncheckt ist was anderes,
D...
10.03.2010 15:19:30
Thread-ID: 1144893
7 Beiträge

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
4
2
6
3
6
10
2
8
5
6
2
4
2
18
3
4
2
4
7
4
6
1
1
6
5