„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:

1. 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

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.

Gefunden in den Tiefen des Internets. Geschmunzelt.

Gefunden in den Tiefen des Internets. Geschmunzelt.

Gefunden in den Tiefen des Internets. Geschmunzelt.

Gefunden in den Tiefen des Internets. Geschmunzelt:

Gefunden in den Tiefen des Internets. Geschmunzelt.

Gefunden in den Tiefen des Internets. Geschmunzelt:

Gefunden in den Tiefen des Internets. Geschmunzelt.

Gefunden in den Tiefen des Internets. Geschmunzelt:

Gefunden in den Tiefen des Internets. Geschmunzelt.

Gefunden in den Tiefen des Internets. Geschmunzelt:

Gefunden in den Tiefen des Internets. Geschmunzelt:

Man soll ja nicht gehässig sein.

Aber ich habe gelacht.

Gefunden in den Tiefen des Internets:

Gefunden in den Tiefen des Internest. Geschmunzelt.

Gefunden in den Tiefen des Internets. Geschmunzelt.

Gefunden in den Tiefen des Internets. Geschmunzelt.

Gefunden in den Tiefen des Internets. Geschmunzelt:

Gefunden in den Tiefen des Internets. Geschmunzelt:

Gefunden in den Tiefen des Internets. Geschmunzelt:

Erstaunt schaue ich einem Kollegen über die Schulter. In „seinem“ Power BI werden nur zwei Symbole angezeigt – die Datenansicht fehlt:

Des Rätsels Lösung ist schnell gefunden: Dieser Bericht greift auf eine SQL-Datenbank zu – allerdings nur per DirectQuery. Erst wenn man irgendeine weitere Datenquelle direkt einbindet, erscheint das Symbol. Eigentlich klar, oder?

Auf der Seite

kann man es nachlesen:

Gefunden in den Tiefen des Internets. Geschmunzelt:

Hallo Rene,

ChatGPT nervt…

Versuche gerade Folgendes,

Ausdruck eines gefilterten Tabellenblattes durchführen mit folgenden Bedingungen:

Seitenumbrüchen aus den rausgefilterten (ausgeblendeten) Zeilen entfernen, Ausdruck starten, im Anschluss Seitenumbruch an den gleichen Stellen wieder einfügen.

Alternativ: Seitenumbrüche der rausgefilterten (ausgeblendeten) Zeilen ignorieren (nicht löschen, bei nächster Filterung könnten ja entsprechende Seite eingeblendet sein…).

Hintergrund: ohne Makro werden leere Seiten durch die vorhandenen Seitenumbrüche generiert.

Ich habe schon mal ChatGPT befragt, da meine VBA Kenntnisse hierfür nicht ausreichen, dieser hat mir folgenden Code vorgeschlagen:

Sub PrintWithoutPageBreaks()

    Dim ws As Worksheet

    Dim lastRow As Long

    Dim rng As Range

    Dim i As Long

    Dim pageBreaks As New Collection

    Dim pageBreak As Range

    ‚ Set worksheet to active worksheet

    Set ws = ActiveSheet

    ‚ Find last row of used range

    lastRow = ws.UsedRange.Rows.Count + ws.UsedRange.row – 1

    ‚ Loop through each row in used range

    For i = 1 To lastRow

        ‚ Check if row is hidden

        If ws.Rows(i).Hidden = True Then

            ‚ If row is hidden, remove page break

            If ws.Rows(i).pageBreak <> xlPageBreakNone Then

                Set rng = ws.Rows(i).pageBreaks(1)

                pageBreaks.Add rng

                rng.Delete

            End If

        End If

Next i

    ‚ Print worksheet without page breaks

    ws.PrintOut Preview:=False

    ‚ Restore page breaks to hidden rows

    For Each pageBreak In pageBreaks

        pageBreak.EntireRow.pageBreak = pageBreak.Address

    Next pageBreak

End Sub

Gruß

Christian

####

Hallo Christian,

ja – ich habe einige Versuche mit ChatGPT gestartet. Das Problem: bekannte Dinge weiß er auch; mir unbekannte Probleme kennt er auch nicht und liefert falsche Lösungen … Also googeln …

Die Fehler:

* nicht die Zeile hat einen Umbruch, sondern das Blatt

* die Eigenschaft heißt  HPageBreaks (mit «H» am Anfang)

* ich darf nicht alle Zellen durchlaufen und prüfen, ob eine Zelle/Zeile einen Umbruch hat (und ausgeblendet ist), sondern ich muss die Liste der Umbrüche durchlaufen und prüfen, ob die Zelle/Zeile ausgeblendet ist.

* man muss die Liste der ausgeblendeten Zellen «einsammeln» – gerne in der Collection, wie ChatGPT vorschlägt, aber man muss es tun. (in meinem Beispiel sammle ich sie in einem Textstring ein, getrennt mit «|» – so «sehe» ich die Liste besser.

ChatGPT muss noch viel lernen! Von uns?

Dieser Code funktioniert. Zum Test: Das Teilchen fragt, ob du drucken willst. Wenn du «nein» anklickst, stoppt es und du kannst kontrollieren. Bei «ja» erfolgt Ausdruck und die Umbrüche werden danach eingeschaltet.

Wenn du die Zeile «Exit sub» löschst, werden die Umbrüche gelöscht und dann wieder gesetzt (zur Kontrolle).

Sub PrintWithoutPageBreaks_Rene()

    Dim ws As Worksheet

    Dim lngAnzahlUmbrueche  As Long

    Dim strUmbrueche As String

    Dim strUmbruchsadresse As String

    Dim i As Long

    ‚ Set worksheet to active worksheet

    Set ws = ActiveSheet

    ‚ ermittle die Anzahl der Umbrüche:

    lngAnzahlUmbrueche = ws.HPageBreaks.Count

    ‚ Loop through each pagebreak

    For i = lngAnzahlUmbrueche To 1 Step -1

        ‚ falls ausgeblendet

        If ws.Range(ws.HPageBreaks(i).Location.Address).RowHeight = 0 Then

            ‚ merke die Adresse des Umbruchs, beispielseise $A$17

            strUmbrueche = strUmbrueche & „|“ & ws.HPageBreaks(i).Location.Address

            ‚ lösche Umbruch

           ws.HPageBreaks(i).Delete

        End If

    Next

    ‚ drucke

    If MsgBox(„Soll jetzt gedruckt werden?“, vbInformation + vbYesNo) = vbYes Then

        ws.PrintOut

    Else

        Exit Sub

    End If

    ‚ falls Umbrüche gelöscht wurden

    If strUmbrueche <> „“ Then

        For i = 1 To UBound(Split(strUmbrueche, „|“))

            strUmbruchsadresse = Split(strUmbrueche, „|“)(i)

            ‚ Umbruch einfügen

            ws.HPageBreaks.Add Before:=ws.Range(strUmbruchsadresse)

        Next

    End If

End Sub

Liebe Grüße

Rene

Gefunden in den Tiefen des Internets. Geschmunzelt.