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 VBA Commandbutton Zellen, denen Namen zugeordnet sind, berechnen und Meldung

Frage Microsoft Microsoft Office

Mitglied: ggforum

ggforum (Level 1) - Jetzt verbinden

28.05.2014, aktualisiert 06.06.2014, 2638 Aufrufe, 2 Kommentare

Guten Tag,ich bekomme es einfach nicht hin. Mit "normalen" Excel-Berechnungen komme ich ganz gut klar, hier muss aber VBA genutzt werden.
Hab schon das ganze www durchsucht und blicks einfach nicht...:frage:

Aufgabenstellung: Ich möchte meine Ernährung kontrollieren
1.Schaltfläche: eine heisst steak
Wenn ich die klicke, dann sollen andere mit anderen Namen versehene Zellen +1 dazubekommen
2. bei click
3. Es gibt Zellen, die Namen zugeordnet sind (Steak, Braten, Schnitzel, sind alle mit dem Namen Fleisch versehen)
3. Zahlen addieren (immer die gleiche, z.B. 1) in Zellen verschiedener Arbeitsmappen und Arbeitsplätter
4. Gleichzeitig Wert einzelner Zellen UND mit Namen versehene Zellgruppen auf 0 setzen.
5. es sollen Meldungen bei verschiedenen Zellwerten und - Abstufungen kommen

1. Ansatz:
Sub CommandButton1_Click()
If ActiveSheet.CommandButton1 = True Then
Range(naehrmittel, fleisch, wurst, käse, marmelade, gemuese, obst) = Range(naehrmittel, fleisch, wurst, käse, marmelade, gemuese, obst) + 1
Range (gefluegel) = Range (gefluegel)= 0
Else
End If
End Sub

2. Ansatz als Funktion
a) vba
Sub CommandButton1_Click()
nahrung
End Sub

b) funktion
Function nahrung()
Range(naehrmittel, fleisch, wurst, käse, marmelade, gefluegel, gemuese, obst) As Range
Range(naehrmittel, fleisch, wurst, käse, marmelade, gemuese, obst).Value = Range(naehrmittel, fleisch, wurst, käse, marmelade, gemuese, obst).Value + 1
Range (gefluegel).Value = Range (gefluegel).Value = 0
End Function

Meldungen:

Wenn ich z.B. 7x was gegessen habe, was KEIN Gemüse ist (also klick auf steak etc), soll bei dem Wert 7 in Gemüse die Meldung kommen: Hey, Du hast jetzt schon 7x was anderes als Gemüse gegessen!

Kann mir da jemand weiterhelfen?

In einem weiteren Schritt später, (ist aber nicht so wichtig) wenn es ginge, würde ich ganz gern die Klicks mit dem Datum zusammen in einem anderen Blatt, vielleicht sogar anderer Arbeitsmappe, zählen und auswerten können.

Also z.B.
Felder
Datum:2014-05-27
Zeit: 16:15
Was: Steak
Gruppe: Fleisch

Danke für Ihre/ Eure Zeit/Hilfestellung
LG
Gabi
Mitglied: 114757
LÖSUNG 29.05.2014, aktualisiert 06.06.2014
Hallo Gabi,
Aufgabenstellung: Ich möchte meine Ernährung kontrollieren
schön und gut, aber eigentlich das falsche Forum dafür.

Was wohl auch keiner so richtig checkt ist, das du mit Klick auf einen Button Fleisch, Zellen mit Gemüse oder Obst hochzählen willst: (hääää??)
Range(naehrmittel, fleisch, wurst, käse, marmelade, gemuese, obst).Value = Range(naehrmittel, fleisch, wurst, käse, marmelade, gemuese, obst).Value + 1
Zur Info: Die Angabe von String-Ranges müssen mit Anführungszeichen angegeben werden: Range("Obst").

Beispiel für Addition eines Bereiches (der mehrere Zellen umfassen kann):
Range("Obst").Value = Range("Obst").Value + 1 
Range("Gemüse").Value = Range("Gemüse").Value + 1 
'... und so weiter 
'.. 
'.
Beispiel für das Prüfen des Wertes der Zelle A1 auf Worksheet 1, und bei überschreiten eines bestimmten Wertes eine Meldung anzeigen:
01.
If Worksheets(1).Range("A1").Value = 7 then 
02.
  msgbox "Du solltest Vegetarier werden ...das arme Schwein !",vbExclamation 
03.
End If
Der Rest lässt sich schön in den einschlägigen Dokumentationen nachlesen:

Over&Out
Gruß jodel32
Bitte warten ..
Mitglied: ggforum
06.06.2014 um 12:25 Uhr
Danke an Euch, war ein paar Tage krank, deshalb erst jetzt...
LG
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Excel VBA Eine oder mehrere Zellen Verschieben
gelöst Frage von batchnewbieVB for Applications2 Kommentare

Hallo, Ich habe in A1 eine Dropdown Liste mit den Werten 1, 2, 3. In A2, A3, A4 usw. ...

VB for Applications
EXCEL VBA Zellen verbinden. MERGE
gelöst Frage von AximandVB for Applications6 Kommentare

Hallo Mitglieder, ich verzweifel gerade an einem Problem, was mich schon 'Stunden' kostet. Ich habe in einem Tabellenblatt Daten ...

VB for Applications
Zellen aus anderer Excel-Mappe mit vba auslesen
gelöst Frage von speedy132VB for Applications3 Kommentare

Hallo zusammen, Ich habe eine Arbeitsmappe in der ich Werte aus einer anderen geschlossenen Arbeitsmappe auslesen möchte. Das ganze ...

Microsoft Office
Excel VBA mehrere Zellen auswählen
gelöst Frage von MWTUJEMicrosoft Office3 Kommentare

Hey Leute, ich habe hier ein Problem bei der VBA-Programmierung. Ich habe ja die Möglichkeit mit Range mehrere Bereiche ...

Neue Wissensbeiträge
Verschlüsselung & Zertifikate

19 Jahre alter Angriff auf TLS funktioniert immer noch

Information von BassFishFox vor 3 StundenVerschlüsselung & Zertifikate

Interessant zu lesen. Der Bleichenbacher-Angriff gilt unter Kryptographen als Klassiker, trotzdem funktioniert er oft noch. Wie wir herausgefunden haben, ...

Windows 10

Windows 10 Fall Creators Update - Neue Funktion Hyper-V Standardswitch kann ggf. Fehler bei Proxy Configs verursachen

Erfahrungsbericht von rzlbrnft vor 14 StundenWindows 102 Kommentare

Hallo Kollegen, Da wir die Gefahr lieben, haben wir bei einigen Usern nun mittlerweile das Creators Update drauf. Einige ...

Sicherheit

TLS-Zertifikat und privater Schlüssel von Microsofts Dynamics 365 geleakt

Information von Penny.Cilin vor 16 StundenSicherheit

Microsoft hat versehentlich das TLS-Zertifikat inklusive dem privaten Schlüssel seiner Business-Anwendung Dynamics 365 geleakt. TLS-Zertifikat und privater Schlüssel von ...

Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 1 TagViren und Trojaner3 Kommentare

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

Netzwerkmanagement
NAS über zwei weitere Ethernet Anschlüsse verbinden
gelöst Frage von Sibelius001Netzwerkmanagement16 Kommentare

Sorry - ich bin hier wahrscheinlich als kompetter IT Trottel unterwegs. Aber eventuell kann mir jemand ganz einfach helfen: ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Netzwerkgrundlagen
Hi eine blöde frage. xD
Frage von 132954Netzwerkgrundlagen13 Kommentare

Also: Habe 2012 r2 essentials neuinstalliert, allerdings installiert diese version ja gleich diesen gangen AD kram mit, den hab ...