freakms
Goto Top

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

Content-Key: 203903

Url: https://administrator.de/contentid/203903

Ausgedruckt am: 28.03.2024 um 19:03 Uhr

Mitglied: LordXearo
LordXearo 25.03.2013 um 10:59:36 Uhr
Goto Top
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
Mitglied: freakms
freakms 25.03.2013 um 13:20:08 Uhr
Goto Top
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 face-smile

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

Viele Grüße
Mitglied: LordXearo
LordXearo 25.03.2013 um 14:10:39 Uhr
Goto Top
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
Mitglied: freakms
freakms 25.03.2013 um 16:00:41 Uhr
Goto Top
Ich werde es nachher mal testen. Besten Dank!
Mitglied: freakms
freakms 25.03.2013 um 21:45:39 Uhr
Goto Top
Wie muss ich den Wert nun an eine Zelle übergeben?
Mitglied: LordXearo
LordXearo 25.03.2013 um 22:27:35 Uhr
Goto Top
Welchen wert in welche Zelle?

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