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

Mitglied: ggforum

ggforum (Level 1) - Jetzt verbinden

28.05.2014, aktualisiert 06.06.2014, 2650 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
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 13 StundenWindows 103 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 16 StundenAdministrator.de Feedback11 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 1 TagGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Windows Netzwerk
Backup über WAN
Frage von petereWindows Netzwerk11 Kommentare

Hallo, ich muss aus einem entfernten WAN (synchrone 1Gbit) Daten sichern. Dabei handelt es sich sowohl um wenige große ...