PSD-Tutorials.de
Forum für Design, Fotografie & Bildbearbeitung
Tutkit
Agentur
Hilfe
Kontakt
Start
Forum
Aktuelles
Besonderer Inhalt
Foren durchsuchen
Tutorials
News
Anmelden
Kostenlos registrieren
Aktuelles
Suche
Suche
Nur Titel durchsuchen
Von:
Menü
Anmelden
Kostenlos registrieren
App installieren
Installieren
JavaScript ist deaktiviert. Für eine bessere Darstellung aktiviere bitte JavaScript in deinem Browser, bevor du fortfährst.
Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden.
Du solltest ein Upgrade durchführen oder einen
alternativen Browser
verwenden.
Antworten auf deine Fragen:
Neues Thema erstellen
Start
Forum
Sonstiges
Office, Software, Hardware, Technische Fragen
Microsoft Excel, Google Sheets
VBA Zähler schreibt in falsches Feld
Beitrag
<blockquote data-quote="proximate" data-source="post: 2571475" data-attributes="member: 331158"><p>Hallo miteinander!</p><p>Neues Jahr - neue Probleme... Das <a href="https://www.psd-tutorials.de/forum/threads/zaehlerbutton-soll-je-nach-kw-in-feld-schreiben.169880/" target="_blank">Ding </a>hat Super funktioniert - doch nun ist Januar und da geht so einiges schief. </p><p><strong>Folgendes Problem:</strong></p><p>Ich habe ein Statistiktool in Excel gebastelt, Der Zähler hat funktioniert - habe nun die Scripts / Tabellen für 2016 eingerichtet. Leider passiert folgendes. Wenn man heute 04.01.2016 auf einen Button klickt so wird das ganze:</p><ul> <li data-xf-list-type="ul"><em>In der korrekten Wochenspalte +1 gezählt</em></li> <li data-xf-list-type="ul"><em>jedoch im falschen Monat (Oktober) +1 gezählt</em></li> </ul><p>Themenbereiche sind in der vertikalen angeordnet</p><p>die Monate resp. KW sind jeweils in Ganzzahlen in der horizontalen auf einem Sheet.</p><p></p><p><strong>Der Code lautet:</strong></p><p></p><p><span style="font-family: 'Courier New'">Public Sub MeineSub()</span></p><p><span style="font-family: 'Courier New'"></span></p><p><strong><span style="font-family: 'Courier New'">Set FindKW = Tabelle2.Range("B2:BA2").Find(WorksheetFunction.WeekNum(Now(), 2)) </span></strong></p><p><span style="font-family: 'Courier New'"><strong>'Finde die aktuelle Woche --> OK, da KW1 schon durch ist</strong></span></p><p><span style="font-family: 'Courier New'">Set FindProd = Tabelle2.Range("A4:A21").Find("MeinProdukt") </span></p><p><span style="font-family: 'Courier New'">'Finde den Themenbereich --> OK</span></p><p><span style="font-family: 'Courier New'">If Not FindKW Is Nothing Then</span></p><p><span style="font-family: 'Courier New'">If Not FindProd Is Nothing Then</span></p><p><span style="font-family: 'Courier New'">x = FindProd.Row</span></p><p><span style="font-family: 'Courier New'">y = FindKW.Column</span></p><p><span style="font-family: 'Courier New'"></span></p><p><span style="font-family: 'Courier New'">Tabelle2.Cells(x, y).Value = Tabelle2.Cells(x, y).Value + 1</span></p><p><span style="font-family: 'Courier New'"></span></p><p><span style="font-family: 'Courier New'">End If</span></p><p><span style="font-family: 'Courier New'">End If</span></p><p><span style="font-family: 'Courier New'"></span></p><p><strong><span style="font-family: 'Courier New'">Set FindMonth = Tabelle3.Range("B2:M2").Find(Month(Now())) </span></strong></p><p><strong><span style="font-family: 'Courier New'">'Finde den aktuellen Monat --> Hier ist der Fehler</span></strong></p><p><span style="font-family: 'Courier New'">Set FindProd = Tabelle3.Range("A3:A20").Find("MeinProdukt") </span></p><p><span style="font-family: 'Courier New'">'Finde den Themenbereich</span></p><p><span style="font-family: 'Courier New'">If Not FindMonth Is Nothing Then</span></p><p><span style="font-family: 'Courier New'">If Not FindProd Is Nothing Then</span></p><p><span style="font-family: 'Courier New'">x = FindProd.Row</span></p><p><span style="font-family: 'Courier New'">y = FindMonth.Column</span></p><p><span style="font-family: 'Courier New'"></span></p><p><span style="font-family: 'Courier New'">Tabelle3.Cells(x, y).Value = Tabelle3.Cells(x, y).Value + 1 </span></p><p><span style="font-family: 'Courier New'">'Monthly Stats sind in Tabelle 3</span></p><p><span style="font-family: 'Courier New'">End If</span></p><p><span style="font-family: 'Courier New'">End If</span></p><p><span style="font-family: 'Courier New'"></span></p><p><span style="font-family: 'Courier New'">Range("F5").Value = Range("F5").Value + 1</span></p><p><span style="font-family: 'Courier New'">'Lokaler Zähler auf dem Sheet mit den Buttons</span></p><p><span style="font-family: 'Courier New'">End Sub</span></p><p></p><p><span style="font-family: 'Courier New'">Das Problem ist scheinbar das jeder Monat und jede KW mit einer 1 darin das Problem macht, insofern habe ich das PRoblem über das Ganze Jahr hinweg jeweils in KW 1 resp. im Monat 1.</span></p><p><span style="font-family: 'Courier New'">Leider funktioniert explizites Angeben der KW resp. Month nicht wie normal mit "Quotes".</span></p><p><span style="font-family: 'Courier New'"></span></p><p><span style="font-family: 'Courier New'">Kann mir da jmd. weiterhelfen?</span></p><p><span style="font-family: 'Courier New'">Wäre ja lachhaft wenn man das Problem mit dem Januar nicht umschippern könnte <img src="/styles/default/xenforo/smilies/tongue.gif" class="smilie" loading="lazy" alt=":-P" title="Stick Out Tongue :-P" data-shortname=":-P" /></span></p></blockquote><p></p>
[QUOTE="proximate, post: 2571475, member: 331158"] Hallo miteinander! Neues Jahr - neue Probleme... Das [URL='https://www.psd-tutorials.de/forum/threads/zaehlerbutton-soll-je-nach-kw-in-feld-schreiben.169880/']Ding [/URL]hat Super funktioniert - doch nun ist Januar und da geht so einiges schief. [B]Folgendes Problem:[/B] Ich habe ein Statistiktool in Excel gebastelt, Der Zähler hat funktioniert - habe nun die Scripts / Tabellen für 2016 eingerichtet. Leider passiert folgendes. Wenn man heute 04.01.2016 auf einen Button klickt so wird das ganze: [LIST] [*][I]In der korrekten Wochenspalte +1 gezählt[/I] [*][I]jedoch im falschen Monat (Oktober) +1 gezählt[/I] [/LIST] Themenbereiche sind in der vertikalen angeordnet die Monate resp. KW sind jeweils in Ganzzahlen in der horizontalen auf einem Sheet. [B]Der Code lautet:[/B] [FONT=Courier New]Public Sub MeineSub() [/FONT] [B][FONT=Courier New]Set FindKW = Tabelle2.Range("B2:BA2").Find(WorksheetFunction.WeekNum(Now(), 2)) [/FONT][/B] [FONT=Courier New][B]'Finde die aktuelle Woche --> OK, da KW1 schon durch ist[/B] Set FindProd = Tabelle2.Range("A4:A21").Find("MeinProdukt") 'Finde den Themenbereich --> OK If Not FindKW Is Nothing Then If Not FindProd Is Nothing Then x = FindProd.Row y = FindKW.Column Tabelle2.Cells(x, y).Value = Tabelle2.Cells(x, y).Value + 1 End If End If [/FONT] [B][FONT=Courier New]Set FindMonth = Tabelle3.Range("B2:M2").Find(Month(Now())) 'Finde den aktuellen Monat --> Hier ist der Fehler[/FONT][/B] [FONT=Courier New]Set FindProd = Tabelle3.Range("A3:A20").Find("MeinProdukt") 'Finde den Themenbereich If Not FindMonth Is Nothing Then If Not FindProd Is Nothing Then x = FindProd.Row y = FindMonth.Column Tabelle3.Cells(x, y).Value = Tabelle3.Cells(x, y).Value + 1 'Monthly Stats sind in Tabelle 3 End If End If Range("F5").Value = Range("F5").Value + 1 'Lokaler Zähler auf dem Sheet mit den Buttons End Sub[/FONT] [FONT=Courier New]Das Problem ist scheinbar das jeder Monat und jede KW mit einer 1 darin das Problem macht, insofern habe ich das PRoblem über das Ganze Jahr hinweg jeweils in KW 1 resp. im Monat 1. Leider funktioniert explizites Angeben der KW resp. Month nicht wie normal mit "Quotes". Kann mir da jmd. weiterhelfen? Wäre ja lachhaft wenn man das Problem mit dem Januar nicht umschippern könnte :-P[/FONT] [/QUOTE]
Bilder bitte
hier hochladen
und danach über das Bild-Icon (Direktlink vorher kopieren) platzieren.
Zitate einfügen…
Authentifizierung
Der grüne Frosch hüpft über die Hügel an den Bäumen vorbei in die Höhle. Bitte nenne das vierte Wort!
Antworten
Start
Forum
Sonstiges
Office, Software, Hardware, Technische Fragen
Microsoft Excel, Google Sheets
VBA Zähler schreibt in falsches Feld
Oben