Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Checkboxen in Schleife Abfragen

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

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

Forumthreads zu verwandten 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
Visual Basic Checkbox auslesen
Jana

Hallo zusammen,
ich bin bisher nur stiller Mitleser gewesen und habe nun selbst ein Problem:
Ich habe eine Userform im visual basic gebaut, in die zuerst ein paar Angaben eingetragen oder auch ausgewählt werden. Bei Klick auf den Sende-Button (CommandButton1), sollen dann alle Einträge...
24.09.2015 10:09:35
Thread-ID: 1449123
8 Beiträge
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
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
Anzeige
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
Excelversion in Formel abfragen ?
David

Hallo,
ich habe ein kleines Problem:
Ich habe eine Formel welche mit "Networkdays" arbeitet. Jedoch muss es beim Deutschen Excel "Nettoarbeitstage" heißen.
Kann man irgendwie die formel umbauen das er je nach Excelversion eine andere Formel nutzt.
So nach dem Motto: WENN(excel=...
04.11.2004 21:08:51
Thread-ID: 512304
5 Beiträge
Auslesen von Checkbox in Formel
Checkbox

Leute bitte helft mir - ich stehe gerade auf'm Schlauch
Wie kann ich denn in einer Formel Bezug auf eine Checkbox nehmen?
Bsp.:
=WENN("Tabelle1!forms.checkbox.1"=1;1;0)
28.06.2005 15:03:54
Thread-ID: 630176
2 Beiträge
Checkboxen über eine Schleife abfragen
ferry

Hallo liebe Foren-Mitglieder,
ich bin ein Anfänger und bräcuhte Eure hilfe.
Kann mir jemand sagen wie ich über eine Schleife überprüfen kann ob eine Checkbox angeklickt ist?
Ich möchte die 55 Abfragen nicht alle einzeln auflisten.
Gruß und Danke im Voraus
Ferry
01.08.2005 14:21:06
Thread-ID: 645551
6 Beiträge
2 Werte mit einer Formel abfragen
Josef

Guten Morgen!
mit folgender Formel
=WENN(ISTNV(SVERWEIS(I3984;Band1;2;0));"";SVERWEIS(I3984;Band1;2;0))
wird, wenn der Wert aus I3984 in Band1 gefunden wird, der zweite Wert aus Band 1 in die Zelle eingetragen.
Band 1 = definierter Name: =Menue!$AF$1:$AG$192
Ich müßte jedoch...
14.03.2008 06:16:11
Thread-ID: 960839
2 Beiträge
VBA Userform Checkbox
Herr

Hello,
ich habe eine kurze Frage, wo die Antwort mir eine Menge Arbeit ersparen würde.
Ich habe eine Reihe von Datennamen in einem Excel-Tabellenblatt. Jtzt möchte ich über eine Userform jeden einzelnen Name als Checkbox-Abfrage. Gibt es einen schnelleren und smarteren Weg als als die C...
21.09.2020 15:50:16
Thread-ID: 1783167
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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