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 Zellwert in einem bestimmten Bereich per Klick (Doppelklick) um 1 erhöhen

Mitglied: DrBulla

DrBulla (Level 1) - Jetzt verbinden

26.04.2012 um 17:07 Uhr, 19009 Aufrufe, 7 Kommentare

Hi Folks,

ich hab ne Excelmappe, da wird für die Kassenabrechnung unseres Vereins der Verzehr eingetragen.

-Datum - Name - Betrag - Cola - Wasser - Bier - Snickers - Stück Kreide - etc.

-14.04. - Peters - 10,00 - 10

Bei Cola wurde ne 10 eingetragen,

Ich würde gerne per VBA, dass bei Klick auf der Zelle sich der Wert erhöht um 1 ..
sprich beim nächsten Klick oder Doppelklick? dort ne 11 steht ..

Die Lösungen die ich dazu gefunden habe (leider kann ich selber nicht programmieren) sind leider nicht so gut gewesen, da passierten dann Dinge wie: Auch bei "Enter" wurde die aktive Zelle erhöht, egal wo. Oder, bei jedem Klick (also auch in Bereichen wo nix war oder bei Datum ...) wurden erschienen einsen ...

Vielleicht ist es günstiger oder sicherer per Doppelklick das zu verwirklichen - was dann aber stört, ich rufe den Bearbeitungsmodus auf, sprich der Cursor blinkt dann in der Zelle ... das soll eigentlich auch nicht ....


Mag mir einer helfen .. ich weiß doch, für'n echten Programmierer n 2 -Zeilen und n Kinderspiel obendrein ;)))

Danke ..

Marco
Mitglied: mak-xxl
26.04.2012 um 18:10 Uhr
Moin Marco,

im VBA-Editor für das entsprechende Tabellenblatt bitte das folgende Makro eintragen, dann passiert das Inkrementieren bei jedem Doppelklick:

01.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
02.
    If Target.Address = "$D$2" Then Target.Value = Target.Value + 1 
03.
    Target.Offset(1, 0).Select 
04.
End Sub
Die Angabe '$D$2' (Zelle 'D2') ist eventuell noch an die genaue Zelladresse anzupassen. Die Zeile 3 des Codes aktiviert nach dem Doppelklick die Zeile darunter, wenn andere Zeile/Spalte gewünscht - anpassen. Wenn die gleiche Zelle (also 'D2') aktiv bleiben soll, ersetzt Du die Zeile 3 des Codes durch

Cancel = True
Das Ganze für den Rechtsklick:

01.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 
02.
    If Target.Address = "$D$2" Then Target.Value = Target.Value + 1 
03.
    Cancel = True 
04.
End Sub
Rest wie oben. Wenn Doppel- und Rechtsklick den Colaverbrauch steigern sollen, dann einfach beide Makros stehen lassen.

BTW:
Zitat von DrBulla:
... unseres Vereins der Verzehr eingetragen.
-Datum - Name - Betrag - Cola - Wasser - Bier - Snickers - Stück Kreide - etc.

Macht geschmeidige Stimmen ...

Freundliche Grüße und Prost von der Insel - Mario
Bitte warten ..
Mitglied: DrBulla
26.04.2012 um 21:30 Uhr
Hi Mario.

Danke dir!!! Mir ist aufgefallen, dass ich die "Aufgabe" nicht präzise genug formuliert habe. Das ganze sollte natürlich für den Bereich gültig sein, indem die Zahlen erfasst werden. Also eher d2:h20 ... Ich bin gerade nicht am Rechner und kann es nicht ausprobieren, vermute aber, es nicht einfach mit dem absoluten D2 Bezug aus dem Code tauschen zu können...?


"n Stück Kreide"
Tja, was für ein Verein sind wir wohl
Kleiner Tipp: kein Chor

Ciao, Marco
Bitte warten ..
Mitglied: mak-xxl
26.04.2012 um 22:08 Uhr
Moin Marko,

kannst Du innerhalb des jeweils gewünschten Makros statt Zeile 2+3 so schreiben:

01.
    If Application.Intersect(Target, Range("D2:H20")) Is Nothing Then Exit Sub 
02.
    Target.Value = Target.Value + 1 
03.
    Cancel = True
Den Bereich auch wieder anpassen.

Freundliche Grüße von der Insel - Mario
Bitte warten ..
Mitglied: DrBulla
26.04.2012 um 23:08 Uhr
Dankeeee ..

auf welche Insel darf ich dann ein leckeres Getränk rüberschicken?

Das funktioniert hervorragend!

Danke!
Bitte warten ..
Mitglied: 76109
27.04.2012 um 10:32 Uhr
Hallo @All!

Für den Fall, dass es auch vorkommen kann, dass ein Mitglied wegfällt/hinzukommt oder sich das Angebot an Getränken und sonstigen Utensilien ändert, wäre es eventuell sinnvoll, wenn sich der Doppelklick-Bereich automatisch anpasst

Das wäre Anhand von Marios Codebeispiels z.B. so möglich:
01.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
02.
    Dim RangeArea As Range 
03.
     
04.
    With Range("A1").CurrentRegion 
05.
        Set RangeArea = Cells(2, 4).Resize(.Rows.Count - 1, .Columns.Count - 3) 
06.
    End With 
07.
     
08.
    If Not Application.Intersect(RangeArea, Target) Is Nothing Then 
09.
        Target = Target + 1:   Cancel = True 
10.
    End If 
11.
End Sub
Gruß Dieter
Bitte warten ..
Mitglied: Biber
27.04.2012 um 13:52 Uhr
[OT]
Zitat von 76109:
Für den Fall, dass es auch vorkommen kann, dass ein Mitglied wegfällt/hinzukommt....
Die Wahrscheinlichkeit des Nach-hinten-Wegfallens eines Mitglieds steigt natürlich proportional zum Verzehr von alkoholischen Getränken.

...wäre es eventuell sinnvoll, wenn sich der Doppelklick-Bereich automatisch anpasst
Insbesondere sollte sich die Spaltenbreite oder noch besser der Zoomfaktor des angezeigten Arbeitsblattes an der konsumierten Alk-Menge orientieren.

Merke: Mit fortschreitendem Getränke-Konsum nähert sich die Schriftart automatisch WingDings SansSerif an...

Grüße und schönes Wochenende
[/OT]
Bitte warten ..
Mitglied: 76109
27.04.2012 um 14:53 Uhr
[OT]
Hallo Biber!

Insbesondere sollte sich die Spaltenbreite oder noch besser der Zoomfaktor des angezeigten Arbeitsblattes
an der konsumierten Alk-Menge orientieren.
Das ich daran nicht gedacht habe

Wäre dann noch die Frage offen, ab welcher Alk-Menge der Zoomfaktor angepasst werden soll

Grüße Dieter und ebenfalls ein schönes Wochende
[/OT]
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Excel VBA jede Zelle in Bereich (Range) ändern (+1)

gelöst Frage von ggforumMicrosoft Office3 Kommentare

Tabelle mit etlichen Click-Buttons, denen unterschiedliche Makros zugeordnet sind. 1. Bereiches (Range) "ohneX" sollten sich um z.B. 1 erhöhen, ...

VB for Applications

PDF Text aus bestimmten Bereich und die Seitenzahl in Excel schreiben

Frage von VBABeginnerVB for Applications

Mahlzeit, Ich bin neu hier und bräuchte euren Rat. Ich möchte einen betimmten, immer wiederkehreneden Textbereich und die Seitennummer ...

Microsoft Office

Excel 2010 keine Zellwerte oder Formeln in Bearbeitungsleiste sichtbar

Frage von ManneKLMicrosoft Office6 Kommentare

Hallo, im ausgefüllten Tabellenblatt von Excel 2010 kommt es vor , dass wenn man in eine Zelle klickt wo ...

Microsoft Office

Excel Diagramm: Reihenname bestehend aus Zellwert und freiem Text

gelöst Frage von BerndVorwerkMicrosoft Office2 Kommentare

Hallo an alle, wieder einmal benötige ich eure Hilfe. Ich möchte ein Digramm erstellen und der Name der DAtenreihe ...

Neue Wissensbeiträge
Sicherheit

MikroTik-Router patchen, Schwachstelle wird ausgenutzt

Information von kgborn vor 7 StundenSicherheit

Am 23. April 2018 wurde von Mikrotik ein Security Advisory herausgegeben, welches auf eine Schwachstelle im RouterOS hinwies. Mikrotik ...

Windows 10

Microcode-Updates KB4090007, KB4091663, KB4091664, KB4091666 für Windows 10

Information von kgborn vor 14 StundenWindows 101 Kommentar

Kurze Information für Administratoren von Windows 10-Systemen, die mit neueren Intel CPUs laufen. Microsoft hat zum 23. April 2018 ...

iOS
Updates für Iphone und Co
Information von sabines vor 17 StundeniOS

Gestern abend ist iOS 11.3.1 erschienen, ein kleineres Update, dass einige Lücken schließt und "Lahmlegen" nach einem Display Tausch ...

Windows 7

Windows 7 - Server 2008 R2: Exploit für Total Meltdown verfügbar

Information von kgborn vor 2 TagenWindows 7

Kleine Information für Administratoren, die für die Updates von Windows 7 SP1 und Windows Server 2008 R2 SP1 verantwortlich ...

Heiß diskutierte Inhalte
Batch & Shell
Powershell: Im AD nach Rechnern mit bestimmten IP-Adressen suchen
gelöst Frage von Raven42Batch & Shell36 Kommentare

Hallo zusammen, ich suche nach einer Möglichkeit nach Computern im AD zu suchen , deren IP-Adresse mit 10.11.12. beginnt. ...

C und C++
Frage1 C Programmierung-Makefile Frage2 PHP-Programmierung HTTP-Fehler 404
Frage von KatalinaC und C++34 Kommentare

Hallo, ich habe 2 Fragen, die nichts miteinander zu tun haben aber mit denen ich mich gerade beschäftige: 1. ...

LAN, WAN, Wireless
Watchguard T15 VPN Einrichtung
gelöst Frage von thomasjayLAN, WAN, Wireless25 Kommentare

Hallo zusammen, wir möchten gerne über unsere Watchguard T15 einen VPN-Tunnel (Mobile VPN with IPSec) einrichten! Als Client nutzen ...

Windows Server
Alten DC entfernen
Frage von smartinoWindows Server24 Kommentare

Hallo zusammen, ich habe hier eine Umgebung übernommen und erstmal einen DCDIAG gemacht. Dabei fällt auf, daß eine ganze ...