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
Zählerbutton soll je nach KW in Feld schreiben
Beitrag
<blockquote data-quote="Haui76" data-source="post: 2528536" data-attributes="member: 694765"><p>Hallo proximate,</p><p></p><p>Um bei deinem Ansatz zu bleiben, würde ich als erstes mal deine "KW identifizieren" Funktion mit der Excel eigenen Funktion <a href="https://support.office.com/de-at/article/KALENDERWOCHE-Funktion-e5c43a03-b4ab-426c-b411-b18c13c75340?ui=de-DE&rs=de-AT&ad=AT" target="_blank">Kalenderwoche()</a> bzw WEEKNUM() tauschen.</p><p></p><p style="margin-left: 20px"><p style="margin-left: 20px"><strong>KW</strong> := Kalenderwoche(Heute();2)</p> <p style="margin-left: 20px"></p> </p><p>Und dann noch ein kleiner Such- und Änderungsalgorithmus der etwa so aussehen kann.</p><p></p><p><em>Set FindKW = ActiveSheet.Range("A1:X1").Find(Kalenderwoche(Heute();2))</em></p><p><em>Set FindProd = ActiveSheet.Range("A1:X1").Find("Product") </em></p><p><em>if Not FindKW Is Nothing then</em></p><p style="margin-left: 20px"><em>if Not FindProd Is Nothing then</em></p> <p style="margin-left: 20px"><em> x=FindIt.column</em></p> <p style="margin-left: 20px"><em> y=FindProd.row</em></p> <p style="margin-left: 20px"><em></em></p> <p style="margin-left: 20px"><em>Range(Cells(x,y)).Value = Range(Cells(x,y).Value + 1</em></p> <p style="margin-left: 20px"><em></em></p> <p style="margin-left: 20px"><em>end if</em></p><p><em>end if</em></p><p></p><p><em>Hab das ganze jetzt nicht getested, aber die Basis müsste stimmen.</em></p></blockquote><p></p>
[QUOTE="Haui76, post: 2528536, member: 694765"] Hallo proximate, Um bei deinem Ansatz zu bleiben, würde ich als erstes mal deine "KW identifizieren" Funktion mit der Excel eigenen Funktion [URL='https://support.office.com/de-at/article/KALENDERWOCHE-Funktion-e5c43a03-b4ab-426c-b411-b18c13c75340?ui=de-DE&rs=de-AT&ad=AT']Kalenderwoche()[/URL] bzw WEEKNUM() tauschen. [INDENT][INDENT][B]KW[/B] := Kalenderwoche(Heute();2) [/INDENT][/INDENT] Und dann noch ein kleiner Such- und Änderungsalgorithmus der etwa so aussehen kann. [I]Set FindKW = ActiveSheet.Range("A1:X1").Find(Kalenderwoche(Heute();2)) Set FindProd = ActiveSheet.Range("A1:X1").Find("Product") if Not FindKW Is Nothing then[/I] [INDENT][I]if Not FindProd Is Nothing then x=FindIt.column y=FindProd.row Range(Cells(x,y)).Value = Range(Cells(x,y).Value + 1 end if[/I][/INDENT] [I]end if[/I] [I]Hab das ganze jetzt nicht getested, aber die Basis müsste stimmen.[/I] [/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 zweite Wort!
Antworten
Start
Forum
Sonstiges
Office, Software, Hardware, Technische Fragen
Microsoft Excel, Google Sheets
Zählerbutton soll je nach KW in Feld schreiben
Oben