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, 2626 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
Microsoft Office
VBA Code zum Kopieren von einzelnen Zellen in Excel (3)

Frage von SebastianL zum Thema Microsoft Office ...

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

Frage von batchnewbie zum Thema VB for Applications ...

VB for Applications
gelöst EXCEL VBA Zellen verbinden. MERGE (6)

Frage von Aximand zum Thema VB for Applications ...

VB for Applications
gelöst Excel - VBA: Automatisches Setzen von Kommentaren in eine Zelle (3)

Frage von d4shoerncheN zum Thema VB for Applications ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
SAN, NAS, DAS
MSA 2050 RAID Konfig (20)

Frage von Leo-le zum Thema SAN, NAS, DAS ...

Hosting & Housing
CNAME auf FTP funkt nicht mehr (7)

Frage von Wintektiv zum Thema Hosting & Housing ...