Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1912to1916
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
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Checkboxen in Schleife Abfragen

Mehrere Checkboxen in Schleife Abfragen
01.01.2023 18:41:36
Beno29
Hey Leute
habe ein Button erstellt der bei Click
alles was mit der Checkbox makiert ist (Produktion) der Wert "Ist-Bestand" um 1 erhöht.
mit einer Checkbox funktioniert supi bekomme es leider nicht hin das alle funktionieren .
Habe in der Original Datei Ca 100 stück
https://www.herber.de/bbs/user/157026.xlsm
Wäre supi wenn mir Jemand Helfen könnte
MFG

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Checkboxen in Schleife Abfragen
01.01.2023 19:04:57
onur
Tja, hättest du dir vorher überlegen müssen.
100 Checkboxen brauchen nun mal 100 mal Code.
Wieso nimmst du nicht einfach eine Spalte mit "X"en statt Checkboxen ?
AW: Mehrere Checkboxen in Schleife Abfragen
01.01.2023 19:11:19
Beno29
Hey ok dachte ist vielleicht möglich.
Mit einer Spalte x kann ich auch leben wäre der Rest damit trotzdem möglich?
MG
AW: Mehrere Checkboxen in Schleife Abfragen
01.01.2023 19:25:52
onur
Klar geht das.
Du schriebst ja "mit einer Checkbox funktioniert supi", also genauso, nur neue Spalte zw. H und I einfügen und statt 

If CheckBox1 = True Then
das:

for z=9 to 1000
if range("I"&z)="X" then
Dein Code
end if
next z

Anzeige
AW: Mehrere Checkboxen in Schleife Abfragen
01.01.2023 19:41:48
Beno29
Schau mal so?

Private Sub CommandButton1_Click()
For Z = 9 To 1000
If Range("I" & Z) = "X" Then
Range("G9") = Range("G9") + 1
Else
Range("G9") = Range("G9")
End If
End If
Next Z
If Range("I" & Z) = "X" Then
Range("I9")

AW: Mehrere Checkboxen in Schleife Abfragen
01.01.2023 20:04:18
onur
Fast, aber die Zeile darfst du nicht fest eingeben, sonst nimmt der Code immer nur Zeile 9.
Überall, wo z.B. Range("G9") steht, musst du schreiben Range("G" & z) schreiben, damit er bei z=9 G9 nimmt und bei z=10 G10 usw.
Das Selbe natürlich auch bei J (und NICHT I, da I jetzt die Spalte mit den "X"en ist)
Anzeige
AW: Mehrere Checkboxen in Schleife Abfragen
01.01.2023 20:13:46
onur
DAS reicht:

Private Sub CommandButton1_Click()
Dim z
For z = 9 To 1000
If Range("I" & z) = "X" And Range("J" & z)  Date Then
Range("G" & z) = Range("G" & z) + 1
Range("J" & z) = Date
End If
Next z
End Sub

AW: Mehrere Checkboxen in Schleife Abfragen
01.01.2023 20:24:11
Beno29
Hey vielen dank. Das läuft supi :-)
wäre schön wenn der Soll Bestand erreicht ist, das das X automatisch verschwindet. den Rest bekomme ich allein hin.
AW: Mehrere Checkboxen in Schleife Abfragen
01.01.2023 20:27:40
onur 

Private Sub CommandButton1_Click()
Dim z
For z = 9 To 1000
If Range("I" & z) = "X" And Range("J" & z)  Date Then
Range("G" & z) = Range("G" & z) + 1
Range("J" & z) = Date
 If Range("G" & z) >= Range("H" & z) Then Range("I" & z) = ""
End If
Next z
End Sub

Anzeige
AW: Mehrere Checkboxen in Schleife Abfragen
01.01.2023 20:55:21
Beno29
Vielen dank.
Und ein schönes neues Jahr noch.
Gerne !
01.01.2023 20:56:29
onur
Ebenso!
AW: Mehrere Checkboxen in Schleife Abfragen
01.01.2023 22:21:28
Beno29
Hey könntest du vielleicht nochmal schauen.
wollte in der msgbox die Schrift Farbe ändern mmmh

Option Explicit
Private Declare PtrSafe Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Private Const COLOR_WINDOWTEXT As Long = 8
Private Const CHANGE_INDEX As Long = 1
End Sub
Private Sub CommandButton1_Click()
Dim z
For z = 9 To 1000
If Range("I" & z) = "X" And Range("J" & z)  Date Then
Range("G" & z) = Range("G" & z) + 1
Range("J" & z) = Date
If Range("G" & z) >= Range("H" & z) Then Range("I" & z) = ""
Dim defaultColour As Long
'Store the default system color
defaultColour = GetSysColor(COLOR_WINDOWTEXT)
'Set system color to red
SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, vbRed
If Range("G" & z) >= 8 Then MsgBox "Neuen Lagerplatz vergeben", vbInformation + vbOKOnly, "Lagerplatz Voll !"
End If
Next z
End Sub

Anzeige
AW: Mehrere Checkboxen in Schleife Abfragen
01.01.2023 22:40:38
onur
Bei "VBA bescheiden" solltest du die Finger lassen von solchen Spielereien, denn mehr ist sowas wirklich nicht. Ich hab sowas noch nie gebraucht.
AW: Mehrere Checkboxen in Schleife Abfragen
01.01.2023 23:06:12
Beno297
Alles klar danke

303 Forumthreads zu ähnlichen Themen

Index-Formel mit 4 Abfragen
Heiko

Hallo zusammen,
schön Euch gefunden zu haben!
Den ganzen Morgen bastle ich schon an einer Index-Formel zur Abfrage von Werten mit 4 verschiedenen Verknüpfungen rum :o(
Ich möchte mir in der "Master"-Tabelle in den einzelnen Jahren zu Gesamtumsatz, HardwareStück und HardwareUmsatz d...
24.04.2015 09:44:17
Thread-ID: 1422932
4 Beiträge
Anzeige
Alle Checkboxen eines Tabellenblatts abfragen
Torsten

Hallo Freunde :)ich habe mehrere Checkboxen in einem Tabellenblatt um muss nun abfragen, ob die Häckchen in allen Checkboxen auf dem Tabellenblatt gesetzt sind oder nicht. Mein Problem:
Ich wollte das in einer For-Next-Schleife machen, leider funktioniert das noch nicht.Versuch:haken ist ei...
30.08.2002 15:46:23
Thread-ID: 154737
4 Beiträge
VBA Userform Checkboxen per Makro erstellen
Bernd

Servus zusammen,
ich bastle seit Stunden an einer Userform zur Erstellung standardisierter Fehlerberichte, die ich automatisch an einen definierten Mailverteiler weiterleiten möchte.
Als Beispiel mal meine neutrale Mappe:
https://www.herber.de/bbs/user/115045.xlsm
In der Userfo...
25.07.2017 14:13:43
Thread-ID: 1570773
3 Beiträge
Anzeige
Checkboxen in Schleife abfragen
Peter

Hier mal 'ne Frage an alle Objekt-Variablen-Spezialisten:Ich habe in einer Userform fünf Checkboxen: CheckBox1 bis CheckBox5. Wie kann ich diese in einer Schleife abfragen? Ich dachte so nach dem Motto: CB = "Checkbox"&Zählvariable
wobei CB als objekt dimensioniert wirdWie schaffe ich es, da...
18.06.2003 17:30:06
Thread-ID: 270903
3 Beiträge
Wert in einer Zelle mit Formel abfragen möglich ?
Günther
Hallo Excelprofis,

habe aus einem der unteren Beiträge folgendes Makro in meine Arbeitsmappe eingefügt (für meine Zwecke optimal)

mein Problem:
ich möchte in den angegebenen Spalten einmal die Werte "F" bzw. "x" abfragen und dann die Uhrzeit ausgeben.
bei manueller Eingabe...
14.11.2003 13:35:17
Thread-ID: 338362
6 Beiträge
Nochmals - Wert in einer Zelle mit Formel abfragen
Günther
Hallo Excel-Profis,

Sorry, das ich nochmals anfrage, aber vielleicht ist noch jemand da draußen, der mir helfen kann (würde dies ganz dringend benötigen)

Folgendes Makro funktioniert nicht, da die Werte "F" und "x" mittels Formel ermittelt werden und nicht direkt eingegeben
14.11.2003 14:55:23
Thread-ID: 338450
14 Beiträge
CheckBox - Status in einer Schleife abfragen
Lothar Schmidberger

Hallo,



ich möchte ein CheckBox in eine Schleife packen und den jeweiligen 

Status (Value) abfragen.



---------------- Schnipp -------------------



DAS GE...
30.11.2003 21:53:12
Thread-ID: 345400
4 Beiträge
Inhalt einer Zelle auf Formel abfragen
SvenG
Hallo zusammen

Wie kann man den Inhalt einer aktiven Zelle daraufhin abfragen, ob sich eine Formel oder ein Wert darin befindet? Würde dazu dienen, dass Felder mit Werten (manuellen Eingaben) z.b. durch eine andere Füllfarbe sichtbarer wären?

Gruss Sven
03.12.2003 11:50:42
Thread-ID: 346782
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox CommandButton

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
3
7
3
2
5
2
5
13
3
1
2
4
1
5
1
4
4
2
5
5
3
1
3
1
3