Excel Checkboxen Wert zuweisen

Halli Hallo,

also ich habe eine Tabelle gebaut. 5 Kriterien 3 Bewertungen.

Jetzt soll die erste Bewertung den Wert 0 haben, die zweite den Wert 1 und die 3. den Wert 2.

Ich möchte die Tabelle auch auf einem Tablet nutzen und deshalb würde ich gerne mit Checkboxen arbeiten. Das heißt ich habe jeder Box eine Zelle zugewiesen. Wie bekomme ich es hin das Die Boxen in der Spalte B den Wert 0, in C den Wert 1 und in D den Wert 2 haben, wenn sie angehakt sind?

Ich möchte dann das automatisch alle Punkte die angehakt sind zusammengezählt werden, was ja nach Adam Riese und Eva Zwerg nur 10 sein sollen.

Könnt ihr mir helfen?

Vielen Dank im Voraus,

Der Freak

Die Tabelle habe ich mal in die Dropbox geladen.

Also nochmal kurz: nicht erfüllt = 0, erfüllt = 1, optimal = 2

und dann am Ende addieren.

Merci!

https://www.dropbox.com/s/rfr35xebshgpsbh/Tabelle.xlsm

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 203903

Url: https://administrator.de/forum/excel-checkboxen-wert-zuweisen-203903.html

Ausgedruckt am: 22.12.2024 um 19:12 Uhr

6 Kommentare

Neuester Kommentar

Hi,

wo hapert es denn bei der Umsetzung?

Allgemein an VBA wegen fehlender Kenntnisse oder etwas konkreten?

Ein Anfang könnte z.B. so aussehen.

Dim SumNichtErfuellt As Integer

SumNichtErfuellt = 0
  
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox1 = True Then  
    SumNichtErfuellt = SumNichtErfuellt + 1
End If

Cells(9, 2) = SumNichtErfuellt

Gruß

Xearo

Hi,
danke für deine Antwort.

Ja, definitiv an den fehlenden Kenntnissen. VBA is schon irre lange her und ich krieg das nicht wirklich auf die Reihe. Bin eher der Hardwareler als Softwareler

Deshalb kann ich mit deinem Code so ohne weiteres noch nicht viel anfangen wenn ich ehrlich bin (*schäm*).

Viele Grüße

Alles klar.
Hier wäre eine fertige Version. Füge den kompletten Code in Deiner "Tabelle1" ein.
Ich bin selber kein VBA Profi. Will sagen, dass man den Code mit Sicherheit noch besser gestalten könnte.

Sub Berechnung()

Dim SumNichtErfuellt As Integer
Dim SumErfuellt As Integer
Dim SumOptimal As Integer

SumNichtErfuellt = 0
SumErfuellt = 0
SumOptimal = 0

  If ActiveWorkbook.Sheets("Tabelle1").CheckBox1 = True Then  
    SumNichtErfuellt = SumNichtErfuellt + 1
End If
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox2 = True Then  
    SumNichtErfuellt = SumNichtErfuellt + 1
End If
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox3 = True Then  
    SumNichtErfuellt = SumNichtErfuellt + 1
End If
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox4 = True Then  
    SumNichtErfuellt = SumNichtErfuellt + 1
End If
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox10 = True Then  
    SumNichtErfuellt = SumNichtErfuellt + 1
End If
 If ActiveWorkbook.Sheets("Tabelle1").CheckBox5 = True Then  
    SumErfuellt = SumErfuellt + 2
End If
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox6 = True Then  
    SumErfuellt = SumErfuellt + 2
End If
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox7 = True Then  
    SumErfuellt = SumErfuellt + 2
End If
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox8 = True Then  
    SumErfuellt = SumErfuellt + 2
End If
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox9 = True Then  
    SumErfuellt = SumErfuellt + 2
End If
If ActiveWorkbook.Sheets("Tabelle1").CheckBox11 = True Then  
    SumOptimal = SumOptimal + 3
End If
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox12 = True Then  
    SumOptimal = SumOptimal + 3
End If
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox13 = True Then  
    SumOptimal = SumOptimal + 3
End If
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox14 = True Then  
    SumOptimal = SumOptimal + 3
End If
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox15 = True Then  
    SumOptimal = SumOptimal + 3
End If

Cells(9, 2) = SumNichtErfuellt
Cells(9, 3) = SumErfuellt
Cells(9, 4) = SumOptimal
End Sub


Private Sub CheckBox1_Click()
Berechnung
End Sub

Private Sub CheckBox10_Click()
Berechnung
End Sub

Private Sub CheckBox11_Click()
Berechnung
End Sub

Private Sub CheckBox12_Click()
Berechnung
End Sub

Private Sub CheckBox13_Click()
Berechnung
End Sub

Private Sub CheckBox14_Click()
Berechnung
End Sub

Private Sub CheckBox15_Click()
Berechnung
End Sub

Private Sub CheckBox2_Click()
Berechnung
End Sub

Private Sub CheckBox3_Click()
Berechnung
End Sub

Private Sub CheckBox4_Click()
Berechnung
End Sub

Private Sub CheckBox5_Click()
Berechnung
End Sub

Private Sub CheckBox6_Click()
Berechnung
End Sub

Private Sub CheckBox7_Click()
Berechnung
End Sub

Private Sub CheckBox8_Click()
Berechnung
End Sub

Private Sub CheckBox9_Click()
Berechnung
End Sub

Ich werde es nachher mal testen. Besten Dank!

Wie muss ich den Wert nun an eine Zelle übergeben?

Welchen wert in welche Zelle?

Wenn alles laeuft, dann kannst du die CheckBoxen anklicken und der Wert untrrhalb wird automatisch brechnet und aktualisirrt.

gelöst Frage Microsoft Microsoft Office

Mehr von freakms

Lokale Nextcloud über Openvpnfreakms - 24 Kommentare

Windows Netzwerkübersicht - VLAN übergreifendfreakms - 6 Kommentare

Windows Explorer - Merkwürdiges Verhaltenfreakms - 6 Kommentare

RDS Webaccess - RSA Serverfreakms - 1 Kommentar

Heiß diskutiert