Auf Thema antworten

JavaScript ist deaktiviert. Für eine bessere Darstellung aktiviere bitte JavaScript in deinem Browser, bevor du fortfährst.

Beitrag: <blockquote data-quote="proximate" data-source="post: 2528609" data-attributes="member: 331158">Tip Top <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":-)" title="Smile    :-)" loading="lazy" data-shortname=":-)" />Aer kleine Korrektur --> Nicht das was in der Klammer steht sondern das vor der Klammer (nicht der Anzeigename)Bei mir wäre es im ersten Szenario "Tabelle2(ServiceRequests)"Funktionierender Code Snipped:Public Sub Rechteck2_Klicken()Set FindKW = Tabelle2.Range("B1:AG1").Find(WorksheetFunction.WeekNum(Now(), 2))Set FindProd = Tabelle2.Range("A1:A12").Find("TV App")If Not FindKW Is Nothing ThenIf Not FindProd Is Nothing Then x = FindProd.Row y = FindKW.Column Tabelle2.Cells(x, y).Value = Tabelle2.Cells(x, y).Value + 1End IfEnd IfEnd SubNochmals vielen Herzlichen Dank für deine schnelle Hilfe MikePOhne dich hätt ich das bestimmt nicht hinbekommen in den kommenden Wochen <img src="/styles/default/xenforo/smilies/tongue.gif"  class="smilie" loading="lazy" alt=":-P" title="Stick Out Tongue    :-P" data-shortname=":-P" /></blockquote> Bilder bitte hier hochladen und danach über das Bild-Icon (Direktlink vorher kopieren) platzieren.

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!