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: 2528572" data-attributes="member: 331158">Hallo MikePSchonmal vielen herzlichen Dank für die Richtung, hab das ganze mal so übernommen...Allerdings: der Compiler haut mir einen Syntaxfehler um die Ohren für die Zeile :Set FindKW = ActiveSheet.Range("B1:X1").Find(KALENDERWOCHE(HEUTE();2))er motzt über das ";" in der Formel...Ich hab mal Folgendes Versucht :Sub Rechteck1_Klicken() Set FindKW = ActiveSheet.Range("B1:AG1").Find(KALENDERWOCHE(HEUTE();2)) // Alternativ .Find("30") Set FindProd = ActiveSheet.Range("A2:A12").Find("TV App") If Not FindKW Is Nothing Then If Not FindProd Is Nothing Then x = FindIt.Column                             //->FindIt? nicht FindKW? -> auch angepasst --> NOK y = FindProd.Row Range(Cells(x, y)).Value = Range(Cells(x, y)).Value + 1 End If End If End Sub B1 bis AG1 = Kalenderwochen in GanzzahlenA2 bis A12 = Produkte resp. ThemenbereicheAktuell verstehe ich was da passieren soll... aber - ich werde mit einem Compilerfehler nach dem anderen Bombardiert die kleinen Syntaxfehler habe ich korrigiert und die korrekten Zellangaben hinterlegt (glaube ich) <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":-)" title="Smile    :-)" loading="lazy" data-shortname=":-)" /></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 fünfte Wort!