Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 3027 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Microsoft Office
gelöst Excel VBA Wert hochzählen (1)

Frage von Florian86 zum Thema Microsoft Office ...

Batch & Shell
gelöst Batch: Variable einen Wert zuweisen (7)

Frage von sascha382 zum Thema Batch & Shell ...

Microsoft Office
Excel verliert die Formel, behält aber den Wert (10)

Frage von derausgroenloh zum Thema Microsoft Office ...

VB for Applications
gelöst VBA: Wert von einer Website (pdf-Dokument) auslesen und in Excel kopieren (16)

Frage von Stern123 zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (33)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...