Kategorie: Oberfläche

Gefunden in den Tiefen des Internets. Geschmunzelt.

Hallo René,

ich habe einen Kunden in Hessen, der seit Mitte Januar Probleme mit Zoom-Einstellungen in Excel hat:

• Zoom in Excel sorgt dafür, dass Diagramme nicht mehr angezeigt werden (bei 100% geht es, bei kleiner 100% verschwinden die Diagramme)

Wenn er die XLSM. Datei (14;B) auf 97-2003 XLS runterkonvertiert (dann 75 MB), dann geht es.

Der Kunde sagt, es gäbe vielleicht ein Problem mit dem letzten Update.

Daher habe ich ihm gesagt, dass er die Updates zurücknehmen soll und prüfen, ob

JETZT MEINE FRAGEN AN DEN EXCEL-GURU:

• Hast Du so etwas schon mal erlebt?
• Hast Du eine Idee, was es sein könnte?

Kurze Antwort langt völlig

Gaaaanz vielen lieben Dank

& Liebe Grüße Stefan

####

Hi Stefan,

die kurze Antwort: NEIN. DAS kenne ich nicht.

Die lange Antwort: ich habe heute eine Excelschulung (läuft noch) – da hatte ich eine bedingte Formatierung mit Formel – tut nicht, wie ich will – zuerst dachte ich, Fehler in der Formel. Nein: Grafikproblem: Zoom größer und kleiner – dann hat er die Anzeige aktualisiert und wieder korrekt dargestellt.

Fragen:

*Werden auch Bilder, SmartArts, Grafiken in Excel ausgeblendet? Oder nur Diagramme?

*Passiert das bei allen Zoom-Stufen? Oder tauchen sie irgendwann auf?

*Nur am Bildschirm? Was passiert in der Druckansicht? Was passiert bei Ansicht/Seitenansicht?

*In den Exceloptionen werden die Objekte in Erweitert angezeigt, oder?

*Was passiert bei XLSB?

* Ist die Livevorschau (auch Optionen) ein- oder ausgeschaltet?

Uff – mehr fällt mir im Moment nicht ein …

Und wenn wir die KI fragen?

ChatGPT empfiehlt die Hardwarebeschleunigung deaktivieren:

3️⃣ Hardwaregrafik-Beschleunigung macht Ärger

Sehr häufige Ursache – besonders bei:

• Office 365
• mehreren Monitoren
• Skalierung ≠ 100 % in Windows/macOS

Test (sehr empfehlenswert):

Datei → Optionen → Erweitert
→ Anzeige
→ ✅ „Hardwaregrafikbeschleunigung deaktivieren“

➡️ Excel neu starten
➡️ Problem oft sofort weg

Liebe Grüße

Rene

Die haben aber ganz schon geklaut!

Eine Alternative von will grokipedia zu wikipedia sein – bislang nur auf Englisch.

Schauen wir doch einmal nach, welchen Artikel grokipedia.com zu Excel liefert:

Und wikipedia? Die englischsprachige Seite?

Das sieht ja ziemlich ähnlich aus: Der Hintergrund ist schwarz; Bilder sind keine vorhanden.

Probieren wir es: Ich kopiere beide Seiten als Text in ein Worddokument und vergleiche sie:

Wenig Unterschiede. Vor allem die Quellenangaben fehlen auf grokipedia.

Und eine Gesamtübersicht?

Auch hier: nur ein kleiner Teil unterscheidet sich. Man müsste nun noch nachsehen, was genau anders ist oder fehlt.

Fazit: Auch wenn ich nur wenige Seiten verglichen habe, bezweifle ich, dass die Wissensplattform von Elon Musk grokipedia den Status wie wikipedia erreichen wird. Ich befürchte, dass er sich viel Ärger einhandeln wird. Und: den Umfang von wikipedia wird seine Seite wohl nie erreichen.

Gefunden in den Tiefen des Internets. Genauer auf der Seite:

https://github.com/Kamik423/passierschein-a38?tab=readme-ov-file

Den Passierschein A38 kennt sicher jeder, der Asterix (und Obelix) mag.
Hans Schülein hat das ‚Antragsformular für den Passierschein A38‘ von blinry in einer modern gestalteten LaTex-Fassung auf GitHub bereitgestellt (CC BY-SA 4.0).

Das Dokument karikiert in grandioser Form die oft überformalisierte deutsche öffentliche Verwaltung. Prädikat: wunderbar 🙂

Die Alternative (für Berlin):
https://moeckernkiez.org/wp-content/uploads/2023/12/Moeckernkiez-Passierschein-A38.pdf

Gefunden in den Tiefen des Internets. Geschmunzelt.

FMWC DACH ist der neu-gegründete deutschsprachige Ableger der Microsoft Excel Weltmeisterschaft. Wer Interesse hat, wirft mal einen Blick auf die Seite.

https://fmwc-dach.eu/

Gefunden in den Tiefen des Internets. Geschmunzelt.

Vor einigen Wochen habe ich ein Osterrätsel mit folgender Aufgabe gestellt:

„Leo liebt Primzahlen seine Freunde essen und Kommas weglassen. Leo hat 64 (leider keine Primzahl) Zahlen (Primzahlen!) auf dem Blatt „Tabelle1“ der Datei „Osterraetsel.xlsx“ versteckt.
Wie lautet die Summe dieser Zahlen, die Leo versteckt hat? (eine Primzahl)
Fügt man an der richtigen Stelle ein Komma ein – wie heißt diese Zahl?
Tipp: man findet sie mehrmals in Excel.

Du kannst die Datei von compurem.de/Osterraetsel.xlsx herunterladen.

Für die richtige Antwort gibt es: ein großes Lob! Von mir und von Leo.“

Öffnet man die Datei, sieht man ein leeres Blatt. Richtig: in Tabelle1 befinden sich die Zahlen. Das Blatt Tabelle1 muss man einblenden:

Dort befinden sich viererlei Dinge:

• Zahlen
• Kommentare mit Zahlen
• Kommentare mit Bildern
• Bilder

Wie habe ich die hineinbekommen?

Die Zahlen habe ich mit einem VBA-Skript in zufällige Zellen geschrieben. Ebenso die Kommentare mit den Werten:

Const Zahl As String = "|41597|30851|31139|1481|49043|44159|36877|22901|29021|25367|59197|52379|52081|27211|55829|58391|28211"


Dim MyValueZeile As Long
Dim MyValueSpalte As Integer
Dim i As Integer
Dim xlZelle As Range

Randomize

For i = 1 To 17

MyValueSpalte = Round((16000 * Rnd), 0) + 1
MyValueZeile = Round((1000000 * Rnd), 0) + 1

Set xlZelle = ActiveSheet.Cells(MyValueZeile, MyValueSpalte)

    With xlZelle
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:=CStr(Split(Zahl, "|")(i))
        .Comment.Shape.TextFrame.Characters.Font.Size = 32
    End With
    
Next i

MsgBox "fertig"

Und die Grafiken in den Kommentaren? Die kann man mit PowerPoint erstellen. Man erstellt eine Folie mit einer Form:

Mit ein bisschen VBA-Code wird die Form mit den Primzahlen „beschossen“:

Const Zahlen As String = "30269|40483|5669|10313|31159|40883|37549|24043|46589|56779|46601|43691|34687|41621|43961|9067|17027|30497|56531|24953|50993|47309|23743"

Sub MacheBilder()

    Dim i As Integer
    
    For i = 0 To UBound(Split(Zahlen, "|"))
        ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = Split(Zahlen, "|")(i)
        ActivePresentation.SaveCopyAs2 "C:\Osterratsel24\Folie1.jpg", ppSaveAsJPG
        FileCopy "C:\Osterratsel24\Folie1.jpg", _
                 "C:\Osterratsel24\Bild\" & Chr(i + 65) & ".jpg"
    Next i

End Sub

Das Ergebnis:

Und die kann man nach Excel importieren:

Dim MyValueZeile As Long
Dim MyValueSpalte As Integer
Dim i As Integer
Dim xlZelle As Range

For i = 1 To 22

MyValueSpalte = Round((16000 * Rnd), 0) + 1
MyValueZeile = Round((1000000 * Rnd), 0) + 1

Set xlZelle = ActiveSheet.Cells(MyValueZeile, MyValueSpalte)

    With xlZelle
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:=""
        
        .Comment.Shape.Fill.UserPicture "C:\Osterratsel24\Bild\" & Chr(i + 64) & ".jpg"
    End With
    
Next i

MsgBox "fertig"

Zugegeben: Die fehlenden fünf Bilder habe ich per Hand beschriftet und eingefügt.

####

Wie bekommt man die Zahlen wieder heraus?

Eine Lösung wäre VBA.

Eine andere Power Query. Ich zeige mal Power Query:

Im openXML der Datei steckt ja alles drin:

In der Datei sharedStrings.xml befinden sich die Zahlen:

Und die kann man mit Power Query auslesen …

In der Datei „comments1.xml“ befinden sich die Werte der Kommentare:

Und die kann man mit Power Query auslesen …

Und die Bilder? Die befinden sich als Binärdateien im Ordner „media“:

Und wie kann man „schnell“ diese Zahlen auslesen, ohne sie abtippen zu müssen?

Power Query stellt in Excel in Microsoft 365 den Connector „Bild aus Datei“ zur Verfügung. Leider kann man nicht auf alle Bilder eines Ordners zugreifen. Sondern nur auf ein Bild. Das stellt jedoch kein Problem dar: Fertigt man einen Screenshot der Bilder an, speichert ihn ab und greift darauf zu:

so kann man die Daten nach Excel einfügen:

Und dann? Power Query – oder:

=FILTER(ZUSPALTE(A1:U10);(ZUSPALTE(A1:U10)>0)*(ISTZAHL(ZUSPALTE(A1:U10))))

Und die Bilder? Die werden in Excel aufgelistet in Start / Bearbeiten / Suchen und auswählen / Aufgabenbereich:

Oder aus der Datei drawing1.xml:

Und so lassen sich dann die 64 Zahlen in eine Tabelle eintragen und summieren:

Das Ergebnis der vier Summen lautet: 2718281. Setzt man ein Komma nach der ersten Ziffer, also 2,718281, so hat man die Eulersche Zahl e. Und richtig: Man kann sie nicht nur durch =EXP(1) in Excel erzeugen – „e“ befindet sich auch zwei Mal in „Excel“.

Übrigens: Euler hieß mit Vornamen Leonhard. Eben jener geniale Leo, dem ich dieses Rätsel widme. Er hat sich über die vier korrekten Antworten gefreut. Ich mich auch.

Ich versuche rauszubekommen, ob man zwischen den zwei Ansichten/Modus umschalten kann.

Wenn ich in eine xls Version als xlsx abspeichere, habe ich z.T. trotzdem die untere Ansicht/ Modus – das nervt sehr, denn da sind die Funktionen z. T. ausgegraut, bzw. es sind die Voreinstellungen anders.

Hallo Tamara,

Ich fürchte nicht, dass du umschalten kannst. Schau dir mal die Dateigröße an – XLSX ist kleiner als XLS – das ist ein ganz anderes Dateiformat, das einige Dinge nicht kann.

Und: wenn du es im anderen Format speicherst, muss du Excel schließen und dann wieder öffnen – dann siehst du die Änderungen.

Liebe Grüße

Rene

Baoh – schon wieder ein neues Zeichen in Excel in Microsoft 365! Schon entdeckt? Vor Kurzem wurde in Excel in Microsoft 365 wurde der Punkt vor und nach dem Doppelpunkt eingeführt: Neben dem Doppelpunkt, der einen Bereich aufspannt, also:

A1:A1
A1:A17
A1:G17
$A$1:$G$17

und so weiter, gibt es nun noch den Punkt. Also:

A1.:A17
A1:.A17
A1.:.A17

Damit werden leere Zellen oberhalb, beziehungsweise unterhalb des gefüllten Bereiches (genauer: der obersten Zelle, beziehungsweise der untersten Zelle) übergangen. Ein Beispiel erklärt es deutlich:
Auf eine Liste (keine intelligente Tabelle) setzt eine Funktion auf, beispielsweise SORTIEREN:

=SORTIEREN(A2:D11;3)

Möglicherweise vergrößert sich die Quellliste. Deshalb wurde „übers Ziel rausgeschossen“ und nun stehen störende Nullen am Ende der Zielliste. Die Lösung heißt „.“:

=SORTIEREN(A2:.D11;3)

Das bedeutet: Der Punkt „beendet“ die Liste am Ende. Wird die Liste nun erweitert, wird der neue Bereich mit eingefügt:

Das bedeutet: greift eine Datenüberprüfung auf einen Bereich zu, kann man jetzt schreiben:

=$A$2:.$A$25

Wird die Liste nun erweitert, verlängert sich die Liste der Einträge der Datenüberprüfung:

Auch in der bedingten Formatierung funktioniert es. In einer Liste (B3:B29) stehen die 27 EU-Länder. In einer anderen Liste wird in der bedingten Formatierung auf die Quellliste zugegriffen und überprüft, ob ein Wert vorhanden ist:

=ZÄHLENWENN(Tabelle1!$B$3:.$B$48;$A6)>0

Wird nun die Liste erweitert:

So ändert sich die bedingte Formatierung automatisch, ohne dass der Bereich aktualisiert werden muss:

Jedoch: In Diagrammen funktioniert der Punkte leider nicht!

Fazit: sehr praktisch – allerdings sicherlich auch verwirrend für Anfänger und Anfängerinnen …

Und ja: Natürlich kann man eine intelligente Tabelle verwenden. Aber schon beim Zusammenspiel mit der Datenüberprüfung wird es schwierig. Oder man könnte mit der Funktion FILTER arbeiten. Das erweitert jedoch den Funktionsumfang …

Gefunden in den Tiefen des Internets. Geschmunzelt.

Manchmal verblüffen mich die Teilnehmer von Excelschulungen.
Heue zum Beispiel.
Ich erkläre, wie man in Formeln Zellen fixiert. Erkläre, dass man Absolutbezug mit einem $-Zeichen oder der Funktionstaste [F4] erzeugen kann.
Ein Teilnehmer fragt, warum man in Excel nicht der Zelle selbst das Fixierungszeichen zuweisen kann. Als Eigenschaft der Zelle.
Warum eigentlich nicht?
Meine Antwort lautete: es könnte ja sein, dass eine Zelle von einem relativen Bezug und an anderer Stelle von einem absoluten Bezug verwendet wird.
Andererseits denke ich: das ist halt so. Das wurde halt so festgelegt …
Dennoch: clevere Frage.

  Hallo ,

Ich sehe Ihre Website excel-nervt.de sie ist beeindruckend. Ich frage mich, ob auf Ihrer Website Werbeoptionen wie Gastbeiträge oder Anzeigeninhalte verfügbar sind?

Was ist der Preis, wenn wir auf Ihrer Website werben möchten?

Hinweis: Artikel darf nicht als gesponsert oder Werbung gekennzeichnet sein.

Danke schön

####

Hallo Frau M.,

meine Seite excel-nervt bleibt werbefrei

Liebe Grüße

Rene Martin

Hallo!

Leider werden im Bereich Kundengeschäftsvolumen die Daten der Kostenstellen im aktuellen Monat nicht eingelesen.

Es hat sich jedoch an der Basis nichts geändert.

Könnten sie da vielleicht einen Blick drauf werfen?

Besten Dank vorab. Liebe Grüße

####

Hallo Frau G.,

doch – an der Basis hat sich etwas geändert:

die beiden Dateien heißen „Bilanzgeschäft Kostenstelllen *“

Da sind DREI „L“ im Namen Kostenstelllen

Peinlich, oder? Wer auch immer das gemacht hat …

Mit zwei „L“ klappt es …

Liebe Grüße

Rene Martin

Aber ich mache doch gar nichts!?!

Was ist passiert?

Ich öffne eine Excelarbeitsmappe. Öffne den Power Query-Editor. Und wähle eine Schritt aus.

Ich hatte eingestellt, dass beim Öffnen der Datei eine Abfrage aktualisiert wird. Und das wurde sie auch noch, während ich im Power Query-Editor arbeite …

Gefunden in den Tiefen des Internets. Geschmunzelt.

Gefunden in den Tiefen des Internets. Geschmunzelt.

Gefunden in den Tiefen des Internets. Geschmunzelt. Ist das so?

Schleswig-Holstein will als nach eigenen Angaben als erstes Bundesland bis 2025 komplett auf Büro-Software des US-Giganten Microsoft verzichten und durch freie Software ersetzen. Einen entsprechenden Bericht des SHZ-Verlages vom Mittwoch bestätigte das Digitalisierungsministerium in Kiel. Minister Jan Philipp Albrecht twitterte, damit gehe Schleswig-Holstein voran und verabschiede sich weiter von geschlossenen Sourcecodes. „Damit sorgen wir für digitale Souveränität im Land (…), können die Daten unserer Bürgerinnen noch besser schützen & gewinnen Handlungsspielräume bei der Digitalisierung.“ Laut Ministeriumssprecher werden die auslaufenden Microsoft-Lizenzen etwa für das Programm Word vom Land ab 2021 schrittweise auf „Libre Office“ umgestellt.

Dadurch sollen jedes Jahr Millionenbeträge eingespart werden. Dass 25 000 Landesbedienstete auf ihren PCs Word, Excel und Powerpoint nutzen, koste jährlich 2,5 Millionen Euro. Bereits jetzt habe die Landesverwaltung ihren Rahmenvertrag mit Microsoft reduziert und spare damit in den nächsten fünf Jahren 6,8 Millionen Euro. Nach der Umstellung auf „Libre Office“ würden weitere 1,5 Millionen Euro pro Jahr eingespart.

Minister Albrecht wird zu dem Thema Open-Source-Software am Freitag in Kiel im Landtag einen Regierungsbericht vorstellen. Den Bericht hatten die Jamaika-Koalitionspartner von CDU, Grünen und FDP im Juni 2018 angefordert. Albrecht sagte dem SHZ-Verlag, zentral sei die Wiedergewinnung „digitaler Souveränität“.

„Libre Office“ enthält Programme für Präsentation, Textverarbeitung, und Tabellenkalkulation. Da für die Bedürfnisse vieler Behörden Optimierungen nötig seien, geht es laut Ministerium auch mit der freien Software nicht völlig kostenlos. „Wir haben die Chance, bei jedem Speichern eines Dokumentes Energie zu sparen. Das ist ein sehr wichtiger Nebeneffekt, sagte Albrecht. Der SHZ Verlag berichtete, laut einem Test des Bundesumweltamts soll ein Microsoft-Programm dafür 3,5-mal mehr Strom verbrauchen als Open-Source-Produkte.

„Ich hoffe, dass wir mit unserer ambitionierten Strategie anderen zeigen können, dass eine Verwaltung langfristig ohne die Abhängigkeit von digitalen Großunternehmen auskommen kann“, sagte Albrecht. Ein Schritt zur Vorbereitung ist laut Ministerium bereits getan: Die Schnittstelle zwischen „Libre Office“ und der elektronischen Akte, die das Land absehbar einführen wird, steht.

Als Beispiele für IT-Systeme, die bereits mit einer Open-Source-Struktur laufen, wird nach Angaben der Landtagsverwaltung in dem Regierungsbericht das Landesportal der Regierung sowie das Intranet der Landespolizei genannt. Auch für den vom Land angebotenen Basisdienst KSH (Kommunales Recht Schleswig-Holstein), mit dem Kommunen ihr geltendes Ortsrecht im Internet zur Verfügung stellen können, sei ein unter freier Lizenz stehendes, quelloffenes System verfügbar. Bei dem im Aufbau befindlichen Schulportal Schleswig-Holstein habe sich das Bildungsministerium ebenfalls für ein System auf Open-Source-Basis entschieden.

Die Umstellung der IT-Systeme in der Landesverwaltung, so heißt es im Bericht, könne Schleswig-Holstein nicht im Alleingang leisten. Es erscheine auch nicht sinnvoll, „die Softwareentwicklung für die öffentliche Verwaltung in Schleswig-Holstein vom Vorgehen der anderen Bundesländer und des Bundes zu entkoppeln“. Neben der bundesweiten Koordination werde es entscheidend sein, ein Netzwerk zu etablieren, „um vergleichbare Vorhaben zu analysieren, von deren Erfahrungen zu lernen und eigene Konzepte erfolgreich fortzuentwickeln“.

https://www.sueddeutsche.de/politik/regierung-kiel-albrecht-land-will-bis-2025-auf-microsoft-verzichten-dpa.urn-newsml-dpa-com-20090101-200617-99-457136

Hi, in meiner Postfacheinstellung wird die Größe meines Postfaches nicht angezeigt. Woran liegt das?

Meines Wissens werden bei IMAP/SMTP-Konten die Postfachgröße nicht angezeigt; bei einem Konto, das mit einem Exchange-Server verbunden ist, jedoch schon.

Zu früh gefreut!

In einem größeren Excel-Projekt sollen Daten zusammengefasst werden. Das kann man wunderbar mit einer Pivottabelle erledigen. Und über der Tabelle sollen sich Schaltflächen befinden, über welche man die Tabelle filter kann.

Auch kein Problem, denke ich – da kann man doch einen Datenschnitt verwenden:

Zu früh gefreut: mit einem Klick auf eine Schaltfläche soll sich die Farbe der Pivottabelle ändern. Okay – DAS könnte man noch mit einer bedingten Formatierung abfangen.

Allerdings soll auch jeder Button eine andere Farbe haben. DAS geht leider nicht!

Also überlege ich, Schaltflächen zu verwenden. Und einige wenige Zeilen VBA-Code:

Allerdings: der Kunde möchte die Beschriftung zweizeilig haben – in der unteren Zeile soll eine zweite Information stehen.

Also doch Formen. An diese kann man auch VBA-Code binden. Und somit die Pivottabelle filtern:

Man kann auch hier filtern:

Übrigens: die Farben der Pivottabelle habe ich über die Pivottable-Formate gesteuert: einem benutzerdefinierten Format werden die entsprechenden Farben zugewiesen.

Gefunden in den Tiefen des Internets. Geschmunzelt.

Gefunden in den Tiefen des Internets. Geschmunzelt:

Guten Tag Herr Martin

Ich hoffe, sie hatten eine schöne Weihnachtszeit und ein guten Start ins neue Jahr.
Immer wieder werde ich darauf angesprochen ob, VBA in den neuen O365 Packeten enthalten wird.
Ich spüre ein Deaktivieren von VBA Beispiel im neuen Outlook. Welches nur mit einem Mausklick oben rechts am Bildschirm aktiviert werden kann.
(ich habe es probiert und alle VBA’s gingen dann nicht mehr. Nach dem Googlen wurde mir klar, dass hier die Funktion «stillschweigend» deaktiviert wurde. )

Im Excel gibt es nun Automatisieren.

Aber damit werde ich nicht ganz schlau. So wie ich das gesehen habe, dann ich nur ein Prozess aufnehmen und eingeschränkt eingreifen. Gestartet muss es mit einem Mausklick oben auf dem Ribbon.
Einige Funktionen fehlen mir, welche VBA anbieten.

• Mittels VBA schreibe ich Funktionen, damit ich innerhalb der Funktions-Codierung kleinere Funktionen schreiben muss.
• Mittels VBA starte ich Aktionen, wenn bei einer bestimmte Zelle eine Änderung gemacht wird, oder wenn ein Register gestartet wird
• Mittels VBA übersteuere ich die Funktion Doppelklick und führe dann eine andere Funktion aus. (BSP im Pivot möchte ich nicht eine neue Tabelle erstellen, sondern gehe auf die Original-Tabelle und setze dort den Filter zum Pivot.
  Das sind die wichtigsten 3 Funktionen welche ich meines Wissens nicht über C# oder Python abdecken kann. Kennen Sie dazu Lösungsansätze oder Schulungsangebote?
  Wenn innerhalb von Excel die VBA deaktiviert wird, stehe ich gewaltig mit dem Rücken an der Wand.

Ich hoffe, dass Sie mir hierbei Auskunft geben können.

Freundliche Grüsse

Hallo Herr S.,

ich wünsche auch Ihnen ein gesundes, glückliches und aufregendes Jahr 2024.

Zu Ihrer VBA-Frage.

Inzwischen gibt es in Excel eine Reihe an Programmiersprachen:

• VBA

• JavaScript / TypeScript

• M

• DAX

• bald kommt Python hinzu

Habe ich etwas vergessen?

Der Haken an VBA ist, dass es nicht im Internet läuft. Browser unterstützen kein VBA. Deshalb hat Microsoft JavaScript, beziehungsweise TypeScript ein. Ich habe es vor Kurzem wieder versucht: zeichnet man mit dem Makorekorder etwas auf, das die deutsche Sprache benötigt, also beispielsweise „Formatiere eine Zahl mit 0 „km“ oder formatiere ein Datum als TT-MM-JJJJ“ liefert das Abspielen einen Fehler.

Und ja: es gibt dort (noch) keine Dialoge: Interaktionen mit Anwendern sind mühsam. Auch das globale Verteilen auf mehreren Rechnern ist schwierig. Es gibt eine ganze Reihe an Hürden. Ehrlich: ich habe noch NIE eine Anfrage für TypeScript-Schulung oder -Programmierung erhalten.

Bald wird Python kommen – aber auch hier wird wohl nur der Umfang der Funktionen und Diagramme erweitert werden, wie ich das Ganze überblicke. Python bietet als offene Programmiersprache sehr viele Bibliotheken, die auch erweiterbar sind – MEHR als VBA, aber Python ist eigentlich nicht in erster Linie für MS Office-Produkte erstellt worden.

Schließlich kann man Excel „von außen“ programmieren: mit VS.NET und dort beispielsweise mit den Sprachen C# oder VB.NET. Da haben Sie mehr Möglichkeiten (beispielsweise bei Versionierung, Mehrsprachigkeit, weitere Steuerelemente, …) jedoch: das Debuggen ist sehr mühsam!

Hilft Ihnen das?

Liebe Grüße  

Rene Martin

PS: ich habe JavaScript/TypeScript (also „Automatisieren“) übersprungen – ich werde mir aber Python ansehen, wenn ich es in Excel haben werde.

Das hat mir Hanna geschickt. Ich habe geschmunzelt.

Auf dass Excel in Neuen Jahr nicht mehr so sehr nervt.

Ein aufregendes neues Jahr 2024 wünscht

René

Hurra – mein neues Buch ist erschienen:

Schaltzentrale Excel
Wenn Sie viel mit Excel arbeiten, kennen Sie das Problem sicherlich: von einem anderen Menschen oder einem System erhält man Daten, die man beim besten Willen so nicht weiterverarbeiten kann. Um solche Daten zu „putzen“ gibt es nun mehrere Ansatzmöglichkeiten: Man kann sie mit einem der vielen Assistenten in Excel bereinigen, mit einer Funktion oder Formel oder mit Power Query. Natürlich stehen Ihnen auch Programmiersprachen zur Verfügung – aber darum soll es in diesem Buch nicht gehen.
Neben dem zentralen Thema „Daten in Form bringen“, besser: die Daten so aufzubereiten, dass man mit ihnen effektiv arbeiten oder dass ein anderes System sie weiterverarbeiten kann, stehen einige weitere, kleinere Themen im Zentrum:

• Excel schneller machen
• Power Query schneller machen
• Sachen „verstecken“
• Sachen finden

Das und noch viele weitere Dinge habe ich zusammengefasst in meinem neuen Buch:

ISBN-10 ‏ : ‎ 3758319862

ISBN-13 ‏ : ‎ 978-3758319860

Preis: 15 Euro – auch als e-book erhältlich

Gefunden in den Tiefen des Internets. Geschmunzelt.

„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

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.

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.

Gefunden in den Tiefen des Internets. Geschmunzelt:

Gefunden in den Tiefen des Internets. Geschmunzelt: