Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel Checkboxen Wert zuweisen

Frage Microsoft Microsoft Office

Mitglied: freakms

freakms (Level 1) - Jetzt verbinden

25.03.2013 um 10:41 Uhr, 3965 Aufrufe, 6 Kommentare, 1 Danke

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
Mitglied: LordXearo
25.03.2013 um 10:59 Uhr
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.

01.
Dim SumNichtErfuellt As Integer 
02.
 
03.
SumNichtErfuellt = 0 
04.
   
05.
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox1 = True Then 
06.
    SumNichtErfuellt = SumNichtErfuellt + 1 
07.
End If 
08.
 
09.
Cells(9, 2) = SumNichtErfuellt
Gruß

Xearo
Bitte warten ..
Mitglied: freakms
25.03.2013 um 13:20 Uhr
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
Bitte warten ..
Mitglied: LordXearo
25.03.2013 um 14:10 Uhr
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.

01.
Sub Berechnung() 
02.
 
03.
Dim SumNichtErfuellt As Integer 
04.
Dim SumErfuellt As Integer 
05.
Dim SumOptimal As Integer 
06.
 
07.
SumNichtErfuellt = 0 
08.
SumErfuellt = 0 
09.
SumOptimal = 0 
10.
 
11.
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox1 = True Then 
12.
    SumNichtErfuellt = SumNichtErfuellt + 1 
13.
End If 
14.
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox2 = True Then 
15.
    SumNichtErfuellt = SumNichtErfuellt + 1 
16.
End If 
17.
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox3 = True Then 
18.
    SumNichtErfuellt = SumNichtErfuellt + 1 
19.
End If 
20.
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox4 = True Then 
21.
    SumNichtErfuellt = SumNichtErfuellt + 1 
22.
End If 
23.
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox10 = True Then 
24.
    SumNichtErfuellt = SumNichtErfuellt + 1 
25.
End If 
26.
 If ActiveWorkbook.Sheets("Tabelle1").CheckBox5 = True Then 
27.
    SumErfuellt = SumErfuellt + 2 
28.
End If 
29.
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox6 = True Then 
30.
    SumErfuellt = SumErfuellt + 2 
31.
End If 
32.
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox7 = True Then 
33.
    SumErfuellt = SumErfuellt + 2 
34.
End If 
35.
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox8 = True Then 
36.
    SumErfuellt = SumErfuellt + 2 
37.
End If 
38.
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox9 = True Then 
39.
    SumErfuellt = SumErfuellt + 2 
40.
End If 
41.
If ActiveWorkbook.Sheets("Tabelle1").CheckBox11 = True Then 
42.
    SumOptimal = SumOptimal + 3 
43.
End If 
44.
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox12 = True Then 
45.
    SumOptimal = SumOptimal + 3 
46.
End If 
47.
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox13 = True Then 
48.
    SumOptimal = SumOptimal + 3 
49.
End If 
50.
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox14 = True Then 
51.
    SumOptimal = SumOptimal + 3 
52.
End If 
53.
  If ActiveWorkbook.Sheets("Tabelle1").CheckBox15 = True Then 
54.
    SumOptimal = SumOptimal + 3 
55.
End If 
56.
 
57.
Cells(9, 2) = SumNichtErfuellt 
58.
Cells(9, 3) = SumErfuellt 
59.
Cells(9, 4) = SumOptimal 
60.
End Sub 
61.
 
62.
 
63.
Private Sub CheckBox1_Click() 
64.
Berechnung 
65.
End Sub 
66.
 
67.
Private Sub CheckBox10_Click() 
68.
Berechnung 
69.
End Sub 
70.
 
71.
Private Sub CheckBox11_Click() 
72.
Berechnung 
73.
End Sub 
74.
 
75.
Private Sub CheckBox12_Click() 
76.
Berechnung 
77.
End Sub 
78.
 
79.
Private Sub CheckBox13_Click() 
80.
Berechnung 
81.
End Sub 
82.
 
83.
Private Sub CheckBox14_Click() 
84.
Berechnung 
85.
End Sub 
86.
 
87.
Private Sub CheckBox15_Click() 
88.
Berechnung 
89.
End Sub 
90.
 
91.
Private Sub CheckBox2_Click() 
92.
Berechnung 
93.
End Sub 
94.
 
95.
Private Sub CheckBox3_Click() 
96.
Berechnung 
97.
End Sub 
98.
 
99.
Private Sub CheckBox4_Click() 
100.
Berechnung 
101.
End Sub 
102.
 
103.
Private Sub CheckBox5_Click() 
104.
Berechnung 
105.
End Sub 
106.
 
107.
Private Sub CheckBox6_Click() 
108.
Berechnung 
109.
End Sub 
110.
 
111.
Private Sub CheckBox7_Click() 
112.
Berechnung 
113.
End Sub 
114.
 
115.
Private Sub CheckBox8_Click() 
116.
Berechnung 
117.
End Sub 
118.
 
119.
Private Sub CheckBox9_Click() 
120.
Berechnung 
121.
End Sub
Bitte warten ..
Mitglied: freakms
25.03.2013 um 16:00 Uhr
Ich werde es nachher mal testen. Besten Dank!
Bitte warten ..
Mitglied: freakms
25.03.2013 um 21:45 Uhr
Wie muss ich den Wert nun an eine Zelle übergeben?
Bitte warten ..
Mitglied: LordXearo
25.03.2013 um 22:27 Uhr
Welchen wert in welche Zelle?

Wenn alles laeuft, dann kannst du die CheckBoxen anklicken und der Wert untrrhalb wird automatisch brechnet und aktualisirrt.
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Batch: Variable einen Wert zuweisen
gelöst Frage von veniplexBatch & Shell7 Kommentare

Hallo zusammen! Ich bin gerade am verzweifeln Ich habe in Batch 2 Variablen: Wenn ich mir von diesen den ...

Microsoft Office
In Excel eine Dropdownliste mit Hilfe einer Checkbox steuern
gelöst Frage von speedy132Microsoft Office21 Kommentare

Hallo zusammen, wie kann ich in Excel anhand einer checkbox eine Dropdownliste steuern? kurze Erklärung: Ich habe ein Formular ...

Python
Python 3.4 einem Progressbar einen Wert zuweisen
gelöst Frage von AndyAhPython2 Kommentare

Hi NG, wie kann ich einem Progressbar aus TKinter eine Wert zuweisen? Ich habe schon gegoogelt, aber keine Antwort ...

Microsoft Office
Excel 2013 Werte aus Dateien eines Ordners einer Datei in einem anderen Ordner zuweisen.
Frage von DerGueMicrosoft Office

Hallo zusammen, folgende Problematik: Ich habe in einem Ordner A ca. 100 gleich aufgebaute Dateien (Einsatzlisten) mit je einem ...

Neue Wissensbeiträge
Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 6 StundenMac OS X1 Kommentar

Hallo, ich hab eine MacOS qwertz Keyboard auf US Layout umgestellt da die Sonderzeichen besser erreichbar sind. Leider fehlt ...

Datenschutz

Weitere Informationen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 13 StundenDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 15 StundenWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Microsoft Office

Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei

Anleitung von SarekHL vor 18 StundenMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1018 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Microsoft Office
Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei
Anleitung von SarekHLMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...