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

Per Mausklick auf Button plus 1 in Zelle aufaddieren aber entsprechende Zelle vorher auswählen wo aufaddiert wird

Frage Microsoft Microsoft Office

Mitglied: utroger

utroger (Level 1) - Jetzt verbinden

17.07.2012, aktualisiert 10:42 Uhr, 2564 Aufrufe, 6 Kommentare

Also es handet sich um eine Fehlersammelkarte die direkt in der Produktion entsprechend mit Werten gefüllt werden soll und dies sollte geschehen über entsprechende clicks auf ein Button.

Also ich versuche es mal zu erklären.
In den Feldern E4-AL4 können Zahlen stehen von 1-31. Dies soll das Datum darstellen.

Im Feld AO4 wird entsprechende Zahl (1-31) eingetragen, das aktuelle Datum.
Nun soll folgendes machbar sein.
Auf ein Button soll geclickt werden, dabei soll der Eintrag im Feld AO4 mit den Zahlen in den Feldern E4-AL4 verglichen werden. Findet er eine Übereinstimmung z.B. im Feld E4 dann soll im Feld E7 per click auf den Button die clicks gezählt werden. Also immer 3 Zeilen tiefer wird der Wert dann gezählt (Beispiel: wenn gefunden in AL4 dann Wert in AL7)

Das mit dem zählen per click habe ich bereits

Sub addiert()
zellWert = Sheets("Tabelle1").Range("A1").Value
Sheets("Tabelle1").Range("A1").Value = zellWert + 1
End Sub

aber wie bekomme ich die entsprechende Suche nach Übereinstimmung und die Anwahl des richtigen Feldes mit rein.

Danke im Vorraus für eure Hilfe
Mitglied: bastla
17.07.2012, aktualisiert um 13:47 Uhr
Hallo utroger!
dabei soll der Eintrag im Feld AO4 mit den Zahlen in den Feldern E4-AL4 verglichen werden.
Gibt es denn Lücken zwischen den einzelnen Werten (muss eigentlich so sein, da ansonsten schon in AI4 der Wert 31 stünde)? Wenn nicht, wäre die Spalte ja einfach zu errrechnen - ansonsten eben eine Schleife (ungetestet):
01.
Sub addiert() 
02.
Aktuell = Range("AO4").Value 
03.
For Each Zelle In Range("E4:AL4") 
04.
    If Zelle.Value = Aktuell Then Spalte = Zelle.Column 
05.
Next 
06.
If Spalte = 0 Then 
07.
    MsgBox "Wert " & Aktuell & " nicht gefunden!" 
08.
    Exit Sub 
09.
End If 
10.
Cells(7, Spalte).Value = Cells(7, Spalte).Value + 1 
11.
End Sub
[Edit] Überflüssige Klammern entfernt und Spalten-Abfrage geändert [/Edit]

Grüße
bastla
Bitte warten ..
Mitglied: utroger
17.07.2012 um 11:50 Uhr
Danke bastla, für die schnelle Antwort.
Leider kommt die Melung "Fehler beim Kompilieren".

Und SUB addiert () wird gelb unterlegt.
Kann mir keinen Reim machen was das verursacht.

Eventuell hast du eine schnelle Antwort parat.

DANKE
Gruß utroger
Bitte warten ..
Mitglied: bastla
17.07.2012 um 12:07 Uhr
Hallo utroger!

Lass die Klammern nach dem "End Sub" weg (korrigiere ich oben auch gleich) ...

Grüße
bastla
Bitte warten ..
Mitglied: utroger
17.07.2012 um 12:36 Uhr
Hallo basla,
irgendetwas stimmt nicht, er bringt mir "der Wert wurde nicht gefunden" obwohl der Wert in E4:AL4 vorhanden ist.

hmmm... hast Du eine Ahnung woran das jetzt liegt

Gruß utroger
Bitte warten ..
Mitglied: bastla
17.07.2012 um 13:46 Uhr
Hallo utroger!

Die jetzt oben stehende Version sollte funktionieren ...

Grüße
bastla
Bitte warten ..
Mitglied: utroger
17.07.2012 um 14:17 Uhr
Hallo bastla,

super, funktioniert jetzt.
Danke für die schnelle Hilfe.

Gruß utroger
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
EXEL Button +1
gelöst Frage von maxmyhMicrosoft Office9 Kommentare

Hallo Leute. Ich muss für meine Bachelorarbeit ein Verkehrsvideo auswerten und dafür verschiedene Sachen zählen. Ich möchte das mittels ...

VB for Applications
Zelle in Excel per Makro auswählen
gelöst Frage von EnriqeVB for Applications7 Kommentare

Hallo Admins, gleich mal vorneweg, von VBA Programmierung habe ich ähnlich viel Ahnung, wie die Kuh vom Eierlegen. Ich ...

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 ...

Batch & Shell
1 PDF entsprechend der Anzahl duplizieren
gelöst Frage von KalisserBatch & Shell5 Kommentare

Hallo zusammen, folgendes Problem stellt sich mir gerade: Ich habe um die 100 PDFs, die wie vom Schema immer ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 16 StundenMicrosoft Office6 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 18 StundenDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 19 StundenSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 22 StundenMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...

Server-Hardware
Veeam Backup Server stürzt alle paar Tage ab
Frage von Leo-leServer-Hardware12 Kommentare

Hallo Forum, ich habe momentan folgendes Problem. Veeam Backup and Replication 9.5 u2 auf voll gepatchten DL 380 G7 ...

Batch & Shell
Dateien verschieben mit batch
gelöst Frage von michi-ffmBatch & Shell10 Kommentare

Hallo Zusammen hat jemand evtl eine Idee? Zunächst hier das Skript: Leider werden keine UNC-Pfade unterstüzt, kann mir jemand ...

LAN, WAN, Wireless
NETZWERKAUFBAU - VERKABELUNG - GRUNDLEGENDES
Frage von hobbymieterLAN, WAN, Wireless10 Kommentare

Hallo, ich habe mal eine Frage bezüglich der LAN-Verkabelung in einem Haus. Und zwar ziehen wir demnächst ins Elternhaus, ...