FROHE WEIHNACHTEN – das Weihnachtsrätsel
„In der beigefügten Datei sind einige Weihnachtszellen nicht froh. Die Zeilennummern ergeben das Lösungswort.“
excel-nervt.de/FROHEWEIHNACHTEN.xlsx
Was habe ich gemacht?
Einige Buchstaben sind in UTF-8 nicht nur im lateinischen Alphabet vorhanden, sondern auch im Griechischen oder Kyrillischen:
Und wie findet man diese Texte? Es fällt auf, wenn man einen Autofilter setzt, dass zwei Mal ein „ähnlicher“ Text in jeder Spalte steht:
Folgende Lösungsansätze habe ich gefunden, beziehungsweise wurden mir zugeschickt:
- Mit Suchen / Ersetzen kann man den Inhalt der Zelle A1 löschen lassen. Übrig bleiben die Zellen, die „anders“ sind:
='Frohe Weihnachten'!A1="FROHE WEIHNACHTEN"auf einem zweiten Tabellenblatt kann man die Zellen ermitteln:
3. Die Bedingte Formatierung liefert ein Werkzeug zum Auffinden:
4. Oder auch der Befehl „Zeilenunterschiede“, der im Assistenten Start / Suchen und Auswählen / Inhalte auswählen aktiviert werden kann. In Zeile 87 werden von Zelle B87:Q87 markiert – also unterscheidet sich A87
5. Oder man fragt ChatGPT oder Copilot:
https://chat.openai.com/share/bd7f8888-2560-40a9-8c6f-c0fafb2c89cd
Nun gilt es, die Zeilennummer herauszufinden. Beispielsweise mit XVERGLEICH:
=XVERGLEICH(FALSCH;A1:A123)
Wichtig: die Zeilennummern müssen von links nach rechts – nicht von oben nach unten gelesen werden. Von oben nach unten käme das Lösungswort „Weghikorstuvy“ heraus.
Übrigens habe ich auch als „Lösungswörter“ erhalten:
A87,H101,P103,B104,C105,E107,J107,O110,K111,I114,D115,L115,M116,N117,G118,F121
256117151431010911121384
Adventskranzlicht ???
HijackSoftwareSolution ???
Gänsebraten???
Diese Lösungen kann ich leider nicht gelten lassen.
Wie wandelt man die Zahlen in Buchstaben um? Offensichtlich handelt es sich hierbei um den ASCII-Code oder ANSI-Code von Zeichen. Die Funktion ZEICHEN, aber auch UNIZEICHEN wandeln sie um, TEXTKETTE baut den Text zusammen:
Whiskyverkostung
Christian Neuberger hat mir folgende, sehr clevere Lösung geschickt:
=TEXTKETTE(MTRANS(WENN(A1:Q225<>"FROHE WEIHNACHTEN";ZEICHEN(ZEILE(A1:Q225));"")))Er wandelt alle Zeilennummern der Zellen in die Buchstaben um, wenn in der Zelle nicht „Frohe Weihnachten“ steht oder löscht den Text („“). Das Ergebnis verkettet er und erhält das Lösungswort. Großartig!
Neun richtige Einsendungen habe ich erhalten. Der Gewinner wird am Montag Abend ausgelost.
####
Aus den vielen Mails, die ich erhalten habe, hat sich folgende interessante Diskussion mit Alexander entsponnen.
Ich dachte immer, dass SO Mailadressen oder Internetseiten gefälscht werden. Wenn ich also statt des Buchstaben „x“ das kyrillische „x“ oder das griechische „x“ verwende, erhalte ich so:
eχcel-nervt.de
oder
eхcel-nervt.de
Bei manchen Schriften sieht man den Unterschied deutlich, bei anderen gar nicht.
Versucht man nun diese Seite zu öffnen, wird der Text plötzlich anders codiert. Die Seite kann nicht geöffnet werden (was korrekt und gut ist!):
Daraus hat sich mit Alexander Vogelmann folgende interessante Diskussion entwickelt:
„Das bringt mich auf eine fiese idee um vba und excel menschen zum nachdenken zu bringen. Schau mal in der angehängten datei gibt es 2 sheets mit identischem namen“
Sub lateinNameMitDeutscherTastaturGetippt()
' funzt
Sheets("Weihnachten").Range("C3").Value = "latein"
End Sub
Sub kyrillischNameMitcAufRussischGetippt()
' funzt nicht
Sheets("WeihnaÑhten").Range("C3").Value = "kyrillisch"
End Sub
Sub kyrillischNameAusSheetKopiwert()
' funzt auch nicht
Sheets("Weihna?hten").Range("C3").Value = "kyrillisch"
End Sub„Und per makro kannst du nur das eine ansteuern, das in lateinsichem Zeichensatz benamt wurde, beim andern keine chance, auch nicht wenn man den sheet namen ins makro kopiert,
denn beim makroschreiben sit die Taste C eine andere als die Taste C beim sheet benamen oder werte in eine zelle schreiben verrückt…und witzig“
Danke für den guten und wertvollen Hinweis von Alexander Vogelmann und danke an alle, die mitgeknobelt haben.