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 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, 2585 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 ..
Neuester Wissensbeitrag
Windows 10

Sticky Notes - Autostart unterbinden

Tipp von Pedant zum Thema Windows 10 ...

Ähnliche Inhalte
VB for Applications
gelöst Excel VBA Eine oder mehrere Zellen Verschieben (2)

Frage von batchnewbie zum Thema VB for Applications ...

Microsoft Office
gelöst Excel VBA: Automatische Konvertierung von Textdatei (.txt) zu Exceldatei (.xlsx) (7)

Frage von Booster07 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel VBA Tabelleblätter kopieren und Umbenennnen (8)

Frage von Florian86 zum Thema Microsoft Office ...

VB for Applications
gelöst Excel - VBA - Fusszeile Text und Grafik (1)

Frage von Juckie zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst Base64 Decode (Batch,VBS) (26)

Frage von clragon zum Thema Batch & Shell ...

Flatrates
DeutschlandLAN der Telekom - welche internen IPs? (19)

Frage von qualidat zum Thema Flatrates ...

Linux
gelöst Schmaler Scrollbalken in Python-Anwendung (14)

Frage von indi955 zum Thema Linux ...