<![CDATA[Clever-Excel-Forum - Tipps & Tricks]]> https://www.clever-excel-forum.de/ Sun, 03 May 2026 10:23:15 +0000 MyBB <![CDATA[Makrostart ermöglichen]]> https://www.clever-excel-forum.de/Thread-Makrostart-ermoeglichen Sun, 22 Mar 2026 10:25:56 +0000 schauan]]> https://www.clever-excel-forum.de/Thread-Makrostart-ermoeglichen
nach dem Öffnen einer heruntergeladenen Datei erscheint unter der Ribbonleiste eine Meldung


.png   zulassen-Meldung.png (Größe: 4,03 KB / Downloads: 9)

Bei zum Download angebotenen Dateien ist nicht immer am Dateiformat erkennbar, ob diese Makros enthalten, z.B. bei xlsb - oder den alten xls - Dateien.
Die Datei enthält Makros und der Nutzer wird über die Risiken informiert. Will man die Makros aktivieren, ist bei den Dateieigenschaften zuvor die Option "Zulssen" zu aktivieren.


.png   zulassen.png (Größe: 28,81 KB / Downloads: 9)

Hinweis:
Oft ist es erforderlich, auch Dateien mit Excel4Makro - Funktionen als xlsm oder xlsb zu speichern, auch wenn die Dateien keine VBA-Codes enthalten. Auch in diesen Fällen ist wie beschrieben vorzugehen.]]>
nach dem Öffnen einer heruntergeladenen Datei erscheint unter der Ribbonleiste eine Meldung


.png   zulassen-Meldung.png (Größe: 4,03 KB / Downloads: 9)

Bei zum Download angebotenen Dateien ist nicht immer am Dateiformat erkennbar, ob diese Makros enthalten, z.B. bei xlsb - oder den alten xls - Dateien.
Die Datei enthält Makros und der Nutzer wird über die Risiken informiert. Will man die Makros aktivieren, ist bei den Dateieigenschaften zuvor die Option "Zulssen" zu aktivieren.


.png   zulassen.png (Größe: 28,81 KB / Downloads: 9)

Hinweis:
Oft ist es erforderlich, auch Dateien mit Excel4Makro - Funktionen als xlsm oder xlsb zu speichern, auch wenn die Dateien keine VBA-Codes enthalten. Auch in diesen Fällen ist wie beschrieben vorzugehen.]]> <![CDATA[Outlook: Tracking the Tracker]]> https://www.clever-excel-forum.de/Thread-Outlook-Tracking-the-Tracker Wed, 10 Sep 2025 19:26:50 +0000 Fennek]]> https://www.clever-excel-forum.de/Thread-Outlook-Tracking-the-Tracker
auf Webseiten ist das meist genutzte Tool zum Tracker der User Javascript. Da aktive Inhalte aber i.d.R. von Mail-Clients geblockt werden, bleibt für EMail-Tracking nur html und CSS.

Analog zum bekannten "Facebook-Pixel" kann ein Image in der html-Code mit einem Parameter eingefügt werden. Mit "#" als Tags wäre das

#img src="
Dateiupload bitte im Forum! So geht es: Klick mich!
den User eindeutige ID]#

Beim Rendern wird, auch wenn das Bild nicht angezeigt wird, die URL mit dem Parameter aufgerufen und kann damit auf dem Server ge-logged werden.

Ähnlich geht dies auch mit CSS:

Konditionelle Abfragen mit

@media
@container
@import
iframe

ermöglichen es einige Daten zur Hardware in Erfahrung zu bringen, z.B.

@media only screen and (max-width: 580px)

würde nur auf einen Mobil-Gerät ausgeführt.

Der folgende Code versucht für die ausgewählte Email Tracker zu suchen:

Code:
Private Sub T_EML_CSS_style_mit_http_img()
Dim EML As MailItem

Set EML = ActiveExplorer.Selection(1)

Call CSS_style_mit_http(EML)

End Sub

Private Sub CSS_style_mit_http(ByVal EML As MailItem)
'durchsucht alle <style und jeweils URL's
'<img ...>

'Dim FLD As Folder, EML As MailItem,
Dim Su, s, Tx As String, DOM, i As Integer, pos As Long, p1 As Long, Bo As Boolean, RR As Object, r

If RegEx Is Nothing Then Set RegEx = CreateObject("VBScript.RegExp")

Su = Array("@media", "@container", "@import", "iframe")

'Sender
Debug.Print EML.Sender, EML.SenderEmailAddress & vbLf
Debug.Print "Anzahl </style>", (Len(EML.HTMLBody) - Len(Replace(EML.HTMLBody, "</style>", ""))) / 8 & vbLf

'Keywords
For Each s In Su
    RegEx.Pattern = s
    Set RR = RegEx.Execute(EML.HTMLBody)
    Debug.Print s, RR.Count
Next s
Debug.Print

pos = 0
RegEx.Pattern = "http[:/\.\w\d]+"
Do
    pos = InStr(pos + 1, EML.HTMLBody, "<style")
    If pos = 0 Then Exit Do
    p1 = InStr(pos, EML.HTMLBody, "</style>")
    Tx = Mid(EML.HTMLBody, pos, p1 - pos + 8)
    'If InStr(1, Tx, "http") Then Debug.Print "http" 'Tx
    Set RR = RegEx.Execute(Tx)
    For r = 0 To RR.Count - 1
        If Not (InStr(1, Tx, "w3.org") > 0 Or InStr(1, Tx, "microsoft.com") > 0 Or InStr(1, Tx, DOM) > 0 Or InStr(1, Tx, "IE=edge") > 0) Then
            Debug.Print r, RR(r)
        End If
    Next r
Loop
Debug.Print

'images
RegEx.Pattern = "<img.+?>"
Set RR = RegEx.Execute(EML.HTMLBody)
For r = 0 To RR.Count - 1
    Debug.Print RR(r)
Next r

'URL's
RegEx.Pattern = "http[:/\.\-\w\d]+"

DOM = Split(EML.SenderEmailAddress, "@")(1)
DOM = Split(DOM, ".")
DOM = DOM(UBound(DOM) - 1) & "." & DOM(UBound(DOM))
Debug.Print vbLf & "Domain", DOM

Set RR = RegEx.Execute(EML.HTMLBody)
For r = 0 To RR.Count - 1
    If InStr(1, RR(r), DOM) = 0 Then
        If InStr(1, RR(r), "w3.org") > 0 Or InStr(1, RR(r), "microsoft.com") > 0 Or InStr(1, RR(r), DOM) > 0 Or InStr(1, RR(r), "IE=edge") > 0 Then
        Else
            Debug.Print "alle http", RR(r)
        End If
    End If
Next r
Debug.Print vbLf & "--------------------------" & vbLf

End Sub

Meine Beobachtung war, dass viele Newsletter Tracking-Pixel enthalten, aber in den CSS wurde nur die Bildschirm-Größe geprüft, aber nicht "nach Hause" übermittelt.

Weitere Idee oder Beobachtungen wären willkommen.

Die Angeregung war "youtube.com/watch?v=em7Mja6CNwY".

MfG]]>
auf Webseiten ist das meist genutzte Tool zum Tracker der User Javascript. Da aktive Inhalte aber i.d.R. von Mail-Clients geblockt werden, bleibt für EMail-Tracking nur html und CSS.

Analog zum bekannten "Facebook-Pixel" kann ein Image in der html-Code mit einem Parameter eingefügt werden. Mit "#" als Tags wäre das

#img src="
Dateiupload bitte im Forum! So geht es: Klick mich!
den User eindeutige ID]#

Beim Rendern wird, auch wenn das Bild nicht angezeigt wird, die URL mit dem Parameter aufgerufen und kann damit auf dem Server ge-logged werden.

Ähnlich geht dies auch mit CSS:

Konditionelle Abfragen mit

@media
@container
@import
iframe

ermöglichen es einige Daten zur Hardware in Erfahrung zu bringen, z.B.

@media only screen and (max-width: 580px)

würde nur auf einen Mobil-Gerät ausgeführt.

Der folgende Code versucht für die ausgewählte Email Tracker zu suchen:

Code:
Private Sub T_EML_CSS_style_mit_http_img()
Dim EML As MailItem

Set EML = ActiveExplorer.Selection(1)

Call CSS_style_mit_http(EML)

End Sub

Private Sub CSS_style_mit_http(ByVal EML As MailItem)
'durchsucht alle <style und jeweils URL's
'<img ...>

'Dim FLD As Folder, EML As MailItem,
Dim Su, s, Tx As String, DOM, i As Integer, pos As Long, p1 As Long, Bo As Boolean, RR As Object, r

If RegEx Is Nothing Then Set RegEx = CreateObject("VBScript.RegExp")

Su = Array("@media", "@container", "@import", "iframe")

'Sender
Debug.Print EML.Sender, EML.SenderEmailAddress & vbLf
Debug.Print "Anzahl </style>", (Len(EML.HTMLBody) - Len(Replace(EML.HTMLBody, "</style>", ""))) / 8 & vbLf

'Keywords
For Each s In Su
    RegEx.Pattern = s
    Set RR = RegEx.Execute(EML.HTMLBody)
    Debug.Print s, RR.Count
Next s
Debug.Print

pos = 0
RegEx.Pattern = "http[:/\.\w\d]+"
Do
    pos = InStr(pos + 1, EML.HTMLBody, "<style")
    If pos = 0 Then Exit Do
    p1 = InStr(pos, EML.HTMLBody, "</style>")
    Tx = Mid(EML.HTMLBody, pos, p1 - pos + 8)
    'If InStr(1, Tx, "http") Then Debug.Print "http" 'Tx
    Set RR = RegEx.Execute(Tx)
    For r = 0 To RR.Count - 1
        If Not (InStr(1, Tx, "w3.org") > 0 Or InStr(1, Tx, "microsoft.com") > 0 Or InStr(1, Tx, DOM) > 0 Or InStr(1, Tx, "IE=edge") > 0) Then
            Debug.Print r, RR(r)
        End If
    Next r
Loop
Debug.Print

'images
RegEx.Pattern = "<img.+?>"
Set RR = RegEx.Execute(EML.HTMLBody)
For r = 0 To RR.Count - 1
    Debug.Print RR(r)
Next r

'URL's
RegEx.Pattern = "http[:/\.\-\w\d]+"

DOM = Split(EML.SenderEmailAddress, "@")(1)
DOM = Split(DOM, ".")
DOM = DOM(UBound(DOM) - 1) & "." & DOM(UBound(DOM))
Debug.Print vbLf & "Domain", DOM

Set RR = RegEx.Execute(EML.HTMLBody)
For r = 0 To RR.Count - 1
    If InStr(1, RR(r), DOM) = 0 Then
        If InStr(1, RR(r), "w3.org") > 0 Or InStr(1, RR(r), "microsoft.com") > 0 Or InStr(1, RR(r), DOM) > 0 Or InStr(1, RR(r), "IE=edge") > 0 Then
        Else
            Debug.Print "alle http", RR(r)
        End If
    End If
Next r
Debug.Print vbLf & "--------------------------" & vbLf

End Sub

Meine Beobachtung war, dass viele Newsletter Tracking-Pixel enthalten, aber in den CSS wurde nur die Bildschirm-Größe geprüft, aber nicht "nach Hause" übermittelt.

Weitere Idee oder Beobachtungen wären willkommen.

Die Angeregung war "youtube.com/watch?v=em7Mja6CNwY".

MfG]]> <![CDATA[Outlook: Sprache erkennen]]> https://www.clever-excel-forum.de/Thread-Outlook-Sprache-erkennen Wed, 25 Jun 2025 08:23:04 +0000 Fennek]]> https://www.clever-excel-forum.de/Thread-Outlook-Sprache-erkennen
mit Hilfe von MS-Word (Verweis setzen) kann die Sprache einer EMail erkannt werden. Dieser Code zeigt "Wahr" im Debug-Fenster, falls in einem der ersten 5 Adsätze die Sprache nicht deutsch (wdGermanAustria, wdSwissGerman) sein sollte:

Code:
Sub Language()
Dim EML As MailItem, Doc As Document, rng As Range
Dim i As Integer, bo As Boolean

Set EML = ActiveExplorer.Selection(1)

Set Doc = EML.GetInspector.WordEditor

For i = 1 To 5
    Set rng = Doc.Paragraphs(i).Range
    If rng.LanguageID <> wdGerman Then bo = True 'wdGerman= 1031
    If rng.LanguageID = wdSwissGerman Then bo = False
    If rng.LanguageID = wdGermanAustria Then bo = False
    Debug.Print i, rng.LanguageID
Next i

Debug.Print "andere Sprache:", bo
End Sub

Vielleicht hilft es manchmal.


mfg]]>
mit Hilfe von MS-Word (Verweis setzen) kann die Sprache einer EMail erkannt werden. Dieser Code zeigt "Wahr" im Debug-Fenster, falls in einem der ersten 5 Adsätze die Sprache nicht deutsch (wdGermanAustria, wdSwissGerman) sein sollte:

Code:
Sub Language()
Dim EML As MailItem, Doc As Document, rng As Range
Dim i As Integer, bo As Boolean

Set EML = ActiveExplorer.Selection(1)

Set Doc = EML.GetInspector.WordEditor

For i = 1 To 5
    Set rng = Doc.Paragraphs(i).Range
    If rng.LanguageID <> wdGerman Then bo = True 'wdGerman= 1031
    If rng.LanguageID = wdSwissGerman Then bo = False
    If rng.LanguageID = wdGermanAustria Then bo = False
    Debug.Print i, rng.LanguageID
Next i

Debug.Print "andere Sprache:", bo
End Sub

Vielleicht hilft es manchmal.


mfg]]> <![CDATA[Word: Password]]> https://www.clever-excel-forum.de/Thread-Word-Password Tue, 03 Sep 2024 07:53:11 +0000 Fennek]]> https://www.clever-excel-forum.de/Thread-Word-Password
im Bereich "Cyber-Security" gibt es einen recht entspannten Umgang mit Passwörtern. Jetzt gibt es einen Post für das Word-Passwort, der allerdings so kompliziert ist, dass Normal-User damit nicht zurecht kommen.

Es werden Python-Kenntnisse benötigt:

https[:]//isc.sans.edu/diary/Protected+OOXML+Text+Documents/31078/

Sans ist eine "Cyber-Security-Universität", die vorallem in den USA viele Seminare anbietet und das Image "gut in Washington DC vernetzt zu sein" pflegt.

mfg]]>
im Bereich "Cyber-Security" gibt es einen recht entspannten Umgang mit Passwörtern. Jetzt gibt es einen Post für das Word-Passwort, der allerdings so kompliziert ist, dass Normal-User damit nicht zurecht kommen.

Es werden Python-Kenntnisse benötigt:

https[:]//isc.sans.edu/diary/Protected+OOXML+Text+Documents/31078/

Sans ist eine "Cyber-Security-Universität", die vorallem in den USA viele Seminare anbietet und das Image "gut in Washington DC vernetzt zu sein" pflegt.

mfg]]> <![CDATA[Bitte ein BIT]]> https://www.clever-excel-forum.de/Thread-Bitte-ein-BIT Fri, 19 Jul 2024 16:20:13 +0000 Fennek]]> https://www.clever-excel-forum.de/Thread-Bitte-ein-BIT
einfache Verschlüsselungen mit XOR sind bekannt. Etwas interessanter ist

Code:
25 + (28 + (126 Xor Asc(Mid(Cypher, i, 1))) Xor 121)

oder als Function

Code:
Function ENC2(ByVal Tx As String) As String
Dim ac As Integer

For i = 1 To Len(Tx)
    ac = Asc(Mid(Tx, i, 1))
    ENC2 = ENC2 & Chr(25 + (28 + (126 Xor ac) Xor 121))
Next i

End Function

Dekodieren geht mit der Funktion, aber die Frage ist "warum"

Code:
Public Function DEC_2(ByVal Cy As String) As String
Dim ac As Integer, Out As String

For i = 1 To Len(Cy)
    ac = Asc(Mid(Cy, i, 1))

    If ac Mod 8 = 6 Then ac = ac - 16
    If ac Mod 4 = 2 Then ac = ac + 16
    If ac Mod 2 = 0 Then ac = ac - 4

    Out = Out & Chr((126 Xor ((ac Xor 121) - 28) + 25))
Next i

DEC_2 = Out
End Function

Die Vorlage kam aus Javascript, aber da ging die Umkehrung nicht:

Code:
var encrypt_data = function(e) {
    for (var o, t = btoa(encodeURIComponent(e)), n = "", r = 0; r < t.length; r++) o = 25 + (28 + (126 ^ t[r].charCodeAt(0)) ^ 121), n += String.fromCharCode(o);
    return n
};

mfg]]>
einfache Verschlüsselungen mit XOR sind bekannt. Etwas interessanter ist

Code:
25 + (28 + (126 Xor Asc(Mid(Cypher, i, 1))) Xor 121)

oder als Function

Code:
Function ENC2(ByVal Tx As String) As String
Dim ac As Integer

For i = 1 To Len(Tx)
    ac = Asc(Mid(Tx, i, 1))
    ENC2 = ENC2 & Chr(25 + (28 + (126 Xor ac) Xor 121))
Next i

End Function

Dekodieren geht mit der Funktion, aber die Frage ist "warum"

Code:
Public Function DEC_2(ByVal Cy As String) As String
Dim ac As Integer, Out As String

For i = 1 To Len(Cy)
    ac = Asc(Mid(Cy, i, 1))

    If ac Mod 8 = 6 Then ac = ac - 16
    If ac Mod 4 = 2 Then ac = ac + 16
    If ac Mod 2 = 0 Then ac = ac - 4

    Out = Out & Chr((126 Xor ((ac Xor 121) - 28) + 25))
Next i

DEC_2 = Out
End Function

Die Vorlage kam aus Javascript, aber da ging die Umkehrung nicht:

Code:
var encrypt_data = function(e) {
    for (var o, t = btoa(encodeURIComponent(e)), n = "", r = 0; r < t.length; r++) o = 25 + (28 + (126 ^ t[r].charCodeAt(0)) ^ 121), n += String.fromCharCode(o);
    return n
};

mfg]]> <![CDATA[[Excel] Shuffle - reverse Shuffle]]> https://www.clever-excel-forum.de/Thread-Excel-Shuffle-reverse-Shuffle Sat, 24 Feb 2024 08:33:38 +0000 Fennek]]> https://www.clever-excel-forum.de/Thread-Excel-Shuffle-reverse-Shuffle
vor mehr als hundert Jahren haben Fisher-Yates einen Algorithmus für ein zufälliges Shuttle und die Rückrechnung auf die Original-Liste entwickelt.

Für mehrere Programmiersprachen sind Beispielcodes auf

https[:]//stackoverflow.com/questions/3541378/reversible-shuffle-algorithm-using-a-key

Ein Umsetzung in VBA ist:

Code:
' https://stackoverflow.com/questions/3541378/reversible-shuffle-algorithm-using-a-key

Sub Start()
Dim Tx As String, enc As String, dec As String

Tx = "This is the message"

enc = Shuffle(Tx)
dec = deShuffle(enc)
Debug.Print enc
Debug.Print dec
End Sub

Function Shuffle(ByVal Tx As String) As String
Dim Size As Integer, Char, i As Integer, Ar, n As Integer
Dim tmp As String

Size = Len(Tx)
ReDim Char(Size) As String

For i = 1 To Size:    Char(i - 1) = Mid(Tx, i, 1): Next i

Ar = iRND(Size, 9)

For i = Size - 1 To 0 Step -1
    n = Ar(Size - 1 - i)
    tmp = Char(i)
    Char(i) = Char(n)
    Char(n) = tmp
Next i

Shuffle = Join(Char, "")
End Function

Function deShuffle(ByVal Tx As String) As String
Dim Size As Integer, Char, i As Integer, Ar, n As Integer
Dim tmp As String

Size = Len(Tx)
ReDim Char(Size) As String

For i = 1 To Size:    Char(i - 1) = Mid(Tx, i, 1): Next i

Ar = iRND(Size, 9)

For i = 0 To Size - 1
    n = Ar(Size - i - 1)
    tmp = Char(i)
    Char(i) = Char(n)
    Char(n) = tmp
Next i

deShuffle = Join(Char, "")
End Function

Function iRND(ByVal Size As Integer, key As Integer) As Variant
Dim rd As Integer, i As Integer, Ar

Rnd (-1)
Randomize (-key)
ReDim Ar(Size - 1) As Integer

For i = Size - 1 To 1 Step -1
    Ar(Size - 1 - i) = Size * Rnd
Next i

iRND = Ar
End Function

Nutzung:

In "Sub Start()" wird ein String erstellt und zuerst mit den rotierten Buchstaben im Debug-Fenster ausgegeben. Zur Kontrolle wird auch die Rückrechnung gezeigt.

Braucht man das?

Nein, nicht unbedingt, um in VBA einen String zu verschleiern ist vermutlich XOR einfacher.

Aber im Rahmen der "digitalen Selbstverteidigung" ist es eine der genutzten Varianten, wie Base64 oder Zeichen als Hexadezimal (auch eine andere Basis möglich) darzustellen.

mfg]]>
vor mehr als hundert Jahren haben Fisher-Yates einen Algorithmus für ein zufälliges Shuttle und die Rückrechnung auf die Original-Liste entwickelt.

Für mehrere Programmiersprachen sind Beispielcodes auf

https[:]//stackoverflow.com/questions/3541378/reversible-shuffle-algorithm-using-a-key

Ein Umsetzung in VBA ist:

Code:
' https://stackoverflow.com/questions/3541378/reversible-shuffle-algorithm-using-a-key

Sub Start()
Dim Tx As String, enc As String, dec As String

Tx = "This is the message"

enc = Shuffle(Tx)
dec = deShuffle(enc)
Debug.Print enc
Debug.Print dec
End Sub

Function Shuffle(ByVal Tx As String) As String
Dim Size As Integer, Char, i As Integer, Ar, n As Integer
Dim tmp As String

Size = Len(Tx)
ReDim Char(Size) As String

For i = 1 To Size:    Char(i - 1) = Mid(Tx, i, 1): Next i

Ar = iRND(Size, 9)

For i = Size - 1 To 0 Step -1
    n = Ar(Size - 1 - i)
    tmp = Char(i)
    Char(i) = Char(n)
    Char(n) = tmp
Next i

Shuffle = Join(Char, "")
End Function

Function deShuffle(ByVal Tx As String) As String
Dim Size As Integer, Char, i As Integer, Ar, n As Integer
Dim tmp As String

Size = Len(Tx)
ReDim Char(Size) As String

For i = 1 To Size:    Char(i - 1) = Mid(Tx, i, 1): Next i

Ar = iRND(Size, 9)

For i = 0 To Size - 1
    n = Ar(Size - i - 1)
    tmp = Char(i)
    Char(i) = Char(n)
    Char(n) = tmp
Next i

deShuffle = Join(Char, "")
End Function

Function iRND(ByVal Size As Integer, key As Integer) As Variant
Dim rd As Integer, i As Integer, Ar

Rnd (-1)
Randomize (-key)
ReDim Ar(Size - 1) As Integer

For i = Size - 1 To 1 Step -1
    Ar(Size - 1 - i) = Size * Rnd
Next i

iRND = Ar
End Function

Nutzung:

In "Sub Start()" wird ein String erstellt und zuerst mit den rotierten Buchstaben im Debug-Fenster ausgegeben. Zur Kontrolle wird auch die Rückrechnung gezeigt.

Braucht man das?

Nein, nicht unbedingt, um in VBA einen String zu verschleiern ist vermutlich XOR einfacher.

Aber im Rahmen der "digitalen Selbstverteidigung" ist es eine der genutzten Varianten, wie Base64 oder Zeichen als Hexadezimal (auch eine andere Basis möglich) darzustellen.

mfg]]> <![CDATA[[Excel] Hieroglyphs]]> https://www.clever-excel-forum.de/Thread-Excel-Hieroglyphs Fri, 04 Mar 2022 12:46:15 +0000 Fennek]]> https://www.clever-excel-forum.de/Thread-Excel-Hieroglyphs
für Interessenten an alt-agyptischen Hieroglyphen:

Windows 10 und Excel können ca 1.000 Zeichen darstellen, die dann mit copy/paste auch in Word genutzt werden können.

Die Funktionen =unichar() können nicht nur 2-byte Unicode, sondern auch 4-Byte Unicode abbilden.

Neben Emojies sind im Bereich größer &Hffff auch hethitische Hieroglyphen und Keilschrift verfügbar.

mfg

.xlsx   Hieroglyphs.xlsx (Größe: 21,07 KB / Downloads: 17) ]]>
für Interessenten an alt-agyptischen Hieroglyphen:

Windows 10 und Excel können ca 1.000 Zeichen darstellen, die dann mit copy/paste auch in Word genutzt werden können.

Die Funktionen =unichar() können nicht nur 2-byte Unicode, sondern auch 4-Byte Unicode abbilden.

Neben Emojies sind im Bereich größer &Hffff auch hethitische Hieroglyphen und Keilschrift verfügbar.

mfg

.xlsx   Hieroglyphs.xlsx (Größe: 21,07 KB / Downloads: 17) ]]> <![CDATA[[Excel] Forensik]]> https://www.clever-excel-forum.de/Thread-Excel-Forensik Sat, 26 Feb 2022 10:47:12 +0000 Fennek]]> https://www.clever-excel-forum.de/Thread-Excel-Forensik
besteht Interesse an Excel-Forensik?

Mit - teilweise großen - Einschränkungen kann erkannt werden:

- Ländereinstellenung des PC's
- personenbezogene Daten
- Vergleich von Workbooks
- gespeichert mit SaveAs
- selber PC
- viele, in der Kombination vermutlich eindeutige ID's

Für eine Malware-Analyse könnte es ein (zweitklassiches) DIY-Tool sein. Als Unterstützung für Betrugsfälle käme es infrage bevor professionelle Tools genutzt werden.

Der Ansatz nutzt Powershell und ist geeignet auch hunderte Excel-Files in kurzer Zeit zu analysieren.

Falls jemand Interesse haben sollte, würde ich den Code hier zeigen. Aber mein Hauptinteresse wäre es das Tool zu diskutieren und die Interpretation zu verbessern.

mfg]]>
besteht Interesse an Excel-Forensik?

Mit - teilweise großen - Einschränkungen kann erkannt werden:

- Ländereinstellenung des PC's
- personenbezogene Daten
- Vergleich von Workbooks
- gespeichert mit SaveAs
- selber PC
- viele, in der Kombination vermutlich eindeutige ID's

Für eine Malware-Analyse könnte es ein (zweitklassiches) DIY-Tool sein. Als Unterstützung für Betrugsfälle käme es infrage bevor professionelle Tools genutzt werden.

Der Ansatz nutzt Powershell und ist geeignet auch hunderte Excel-Files in kurzer Zeit zu analysieren.

Falls jemand Interesse haben sollte, würde ich den Code hier zeigen. Aber mein Hauptinteresse wäre es das Tool zu diskutieren und die Interpretation zu verbessern.

mfg]]> <![CDATA[[Excel] Zu vermeidende Variablennamen in LET]]> https://www.clever-excel-forum.de/Thread-Excel-Zu-vermeidende-Variablennamen-in-LET Wed, 02 Feb 2022 10:08:11 +0000 maninweb]]> https://www.clever-excel-forum.de/Thread-Excel-Zu-vermeidende-Variablennamen-in-LET
es kommt ja durchaus öfter mal vor, dass man in einer LET-Formel Zählvariablen verwendet, deren Namen man dann möglichst kurz
halten möchte - zum Beispiel die Buchstaben X und Y für Zeilen und Spalten. Jemand würde jedoch vielleicht hingehen und statt
X & Y dann N & P oder R & C als Zählvariablen definieren. Und hier lauern ein paar Fallstricke.

Folgende Formeln liefern in Excel (DE-DE) alle dasselbe Ergebnis, nämlich 6.

Code:
=LET(R;2;C;3;R*C)
=LET(L;2;C;3;L*C)
=LET(Z;2;S;3;Z*S)
=LET(X;2;Y;3;X*Y)

Stelle ich jedoch Excel von der A1-Bezugsart auf die Z1S1-Bezugsart um, dann funktioniert die dritte Formel LET(Z;2;S;3;Z*S)
nicht mehr (Doppelklick plus Enter).

Ändere ich die Sprache von Excel (nicht Windows) von Deutsch auf English und stelle dort auch wieder die Bezugsart auf R1C1
um, funktioniert wieder die dritte Formel, aber nicht die ersten beiden, wo also R & C sowie L & C als Variablen definiert wurden.
Dasselbe gilt für Excel in Französisch. Die vierte Formel mit X & Y klappt immer.

Fazit 1: das Verwenden von Buchstaben als Variablen in LET kann - sprachabhängig (!) - zu Problemen führen, wenn die Z1S1-
Bezugsart aktiv ist bzw. aktiviert wird.

Fazit 2: es erscheint mir sinnvoll, das Verwenden einzelner Buchstaben, wie C, K, L, R, S oder Z, als Variablennamen in LET
generell zu vermeiden. Auch weil in der A1-Bezugsart keine Fehlermeldung bzw. kein Hinweis erfolgt. X & Y werden in keiner
Sprache für die Z1S1-Bezugsart verwendet und wären somit zulässig. Ebenso meines Wissens N & P.

Fazit 3: Gerade wenn international gearbeitet wird oder die Mappe an Unbekannte verteilt wird, wo man die Zielsprache und
die Einstellungen zur Bezugsart nicht kennt, wäre Fazit 2 Pflicht.

Gruß]]>
es kommt ja durchaus öfter mal vor, dass man in einer LET-Formel Zählvariablen verwendet, deren Namen man dann möglichst kurz
halten möchte - zum Beispiel die Buchstaben X und Y für Zeilen und Spalten. Jemand würde jedoch vielleicht hingehen und statt
X & Y dann N & P oder R & C als Zählvariablen definieren. Und hier lauern ein paar Fallstricke.

Folgende Formeln liefern in Excel (DE-DE) alle dasselbe Ergebnis, nämlich 6.

Code:
=LET(R;2;C;3;R*C)
=LET(L;2;C;3;L*C)
=LET(Z;2;S;3;Z*S)
=LET(X;2;Y;3;X*Y)

Stelle ich jedoch Excel von der A1-Bezugsart auf die Z1S1-Bezugsart um, dann funktioniert die dritte Formel LET(Z;2;S;3;Z*S)
nicht mehr (Doppelklick plus Enter).

Ändere ich die Sprache von Excel (nicht Windows) von Deutsch auf English und stelle dort auch wieder die Bezugsart auf R1C1
um, funktioniert wieder die dritte Formel, aber nicht die ersten beiden, wo also R & C sowie L & C als Variablen definiert wurden.
Dasselbe gilt für Excel in Französisch. Die vierte Formel mit X & Y klappt immer.

Fazit 1: das Verwenden von Buchstaben als Variablen in LET kann - sprachabhängig (!) - zu Problemen führen, wenn die Z1S1-
Bezugsart aktiv ist bzw. aktiviert wird.

Fazit 2: es erscheint mir sinnvoll, das Verwenden einzelner Buchstaben, wie C, K, L, R, S oder Z, als Variablennamen in LET
generell zu vermeiden. Auch weil in der A1-Bezugsart keine Fehlermeldung bzw. kein Hinweis erfolgt. X & Y werden in keiner
Sprache für die Z1S1-Bezugsart verwendet und wären somit zulässig. Ebenso meines Wissens N & P.

Fazit 3: Gerade wenn international gearbeitet wird oder die Mappe an Unbekannte verteilt wird, wo man die Zielsprache und
die Einstellungen zur Bezugsart nicht kennt, wäre Fazit 2 Pflicht.

Gruß]]> <![CDATA[[Browser] Ungekürzt angezeigte Links]]> https://www.clever-excel-forum.de/Thread-Browser-Ungekuerzt-angezeigte-Links Sun, 31 Oct 2021 10:24:07 +0000 LCohen]]> https://www.clever-excel-forum.de/Thread-Browser-Ungekuerzt-angezeigte-Links
http(s)://
http(s)://www.
www.

weg, wird der Link vollständig schon beim Lesen im Text und nicht erst nach 2 Sekunden in der Statusleiste angezeigt:

Domain.TLD/ein%20wunderschoenes%20und%20selbsterklaerendes%20Thema.html

statt

Domain.TLD/ein...Thema.html

Nicht wichtig, aber hygienisch.]]>
http(s)://
http(s)://www.
www.

weg, wird der Link vollständig schon beim Lesen im Text und nicht erst nach 2 Sekunden in der Statusleiste angezeigt:

Domain.TLD/ein%20wunderschoenes%20und%20selbsterklaerendes%20Thema.html

statt

Domain.TLD/ein...Thema.html

Nicht wichtig, aber hygienisch.]]> <![CDATA[[Excel] Zahlen am Komma ausrichten]]> https://www.clever-excel-forum.de/Thread-Excel-Zahlen-am-Komma-ausrichten Sun, 23 May 2021 08:53:47 +0000 RPP63]]> https://www.clever-excel-forum.de/Thread-Excel-Zahlen-am-Komma-ausrichten Bei Dezimalzahlen ist es einfach:
Man nimmt das benutzerdefinierte Zahlenformat 0,???
(wobei die Anzahl der Fragezeichen die maximal anzuzeigenden Nachkommaziffern darstellt)

Nachteil:
Ganzzahlen werden ebenfalls mit (nicht erwünschtem) Komma angezeigt.
(hier bei der 157)
Code:
  1,2
12,34
157,
17,263

Abhilfe:
Es wird zusätzlich eine Formel in der bedingten Formatierung benötigt:
(für Spalte A) =A1=GANZZAHL(A1)
dieser Formel wird folgendes Zahlenformat zugewiesen:
0_,_0_0_0
heißt, dass an die Ganzzahl (erste 0) eine (leere) Zeichenfolge in der Breite des Kommas plus drei Ziffern angehängt wird.

Das funktioniert nur bei "normalen" Schriftarten, egal ob proportional oder nicht.
Allerdings nicht bei Narrow-Schriftarten, denn dort haben Ziffern unterschiedliche Breiten.

Ich habe mal eine kleine Datei zum Testen angehängt.

.xlsx   Am Komma ausgerichtet.xlsx (Größe: 8,89 KB / Downloads: 17) ]]> Bei Dezimalzahlen ist es einfach:
Man nimmt das benutzerdefinierte Zahlenformat 0,???
(wobei die Anzahl der Fragezeichen die maximal anzuzeigenden Nachkommaziffern darstellt)

Nachteil:
Ganzzahlen werden ebenfalls mit (nicht erwünschtem) Komma angezeigt.
(hier bei der 157)
Code:
  1,2
12,34
157,
17,263

Abhilfe:
Es wird zusätzlich eine Formel in der bedingten Formatierung benötigt:
(für Spalte A) =A1=GANZZAHL(A1)
dieser Formel wird folgendes Zahlenformat zugewiesen:
0_,_0_0_0
heißt, dass an die Ganzzahl (erste 0) eine (leere) Zeichenfolge in der Breite des Kommas plus drei Ziffern angehängt wird.

Das funktioniert nur bei "normalen" Schriftarten, egal ob proportional oder nicht.
Allerdings nicht bei Narrow-Schriftarten, denn dort haben Ziffern unterschiedliche Breiten.

Ich habe mal eine kleine Datei zum Testen angehängt.

.xlsx   Am Komma ausgerichtet.xlsx (Größe: 8,89 KB / Downloads: 17) ]]> <![CDATA[[Excel] Zu vermeidende Benennungen von Namen in Excel]]> https://www.clever-excel-forum.de/Thread-Excel-Zu-vermeidende-Benennungen-von-Namen-in-Excel Wed, 09 Sep 2020 07:52:22 +0000 maninweb]]> https://www.clever-excel-forum.de/Thread-Excel-Zu-vermeidende-Benennungen-von-Namen-in-Excel
bei der Benennung von benannten Bereichen in Excel sind - auf Grund der Internationalisierung von Arbeitsmappen - einige Namen zu vermeiden.
Das sind die Kombinationen ExZy, FxCy, LxCy, RxCy RxKy, RxSy, SxOy, WxKy, ZxSy mit x und y als Zahl. Mit der Einführung von Datentypen
sind ebenfalls Kombinationen der Art [Spaltenname][Zahl].[Feldname] zu vermeiden. Beispiel D1.Area, denn Area ist ein Feld aus dem
Geografie-Datentyp und wäre gleichzeitig ein Bezug zu dem Feld. Namen werden in Formeln in Excel priorisiert.


.png   Namen.png (Größe: 50,55 KB / Downloads: 19)

Gruß]]>
bei der Benennung von benannten Bereichen in Excel sind - auf Grund der Internationalisierung von Arbeitsmappen - einige Namen zu vermeiden.
Das sind die Kombinationen ExZy, FxCy, LxCy, RxCy RxKy, RxSy, SxOy, WxKy, ZxSy mit x und y als Zahl. Mit der Einführung von Datentypen
sind ebenfalls Kombinationen der Art [Spaltenname][Zahl].[Feldname] zu vermeiden. Beispiel D1.Area, denn Area ist ein Feld aus dem
Geografie-Datentyp und wäre gleichzeitig ein Bezug zu dem Feld. Namen werden in Formeln in Excel priorisiert.


.png   Namen.png (Größe: 50,55 KB / Downloads: 19)

Gruß]]> <![CDATA[[Excel] VBA-Einsteiger - hier gibt es Info's]]> https://www.clever-excel-forum.de/Thread-Excel-VBA-Einsteiger-hier-gibt-es-Info-s Wed, 02 Sep 2020 10:09:37 +0000 Glausius]]> https://www.clever-excel-forum.de/Thread-Excel-VBA-Einsteiger-hier-gibt-es-Info-s
für alle, die sich mit VBA beschäftigen und mit Makros die Tabellenarbeit erleichtern wollen, gibt es hier eine sehr lehrreiche und verständliche Einführung:

https://www.excel-vba-lernen.de]]>
für alle, die sich mit VBA beschäftigen und mit Makros die Tabellenarbeit erleichtern wollen, gibt es hier eine sehr lehrreiche und verständliche Einführung:

https://www.excel-vba-lernen.de]]> <![CDATA[[Excel] Funktion FILTER() auf Spalten anwenden]]> https://www.clever-excel-forum.de/Thread-Excel-Funktion-FILTER-auf-Spalten-anwenden Tue, 25 Aug 2020 18:51:18 +0000 shift-del]]> https://www.clever-excel-forum.de/Thread-Excel-Funktion-FILTER-auf-Spalten-anwenden
Video von MrExcel

Anbei eine Musterdatei mit mehreren Formel-Beispielen.

Arbeitsblatt mit dem Namen 'Tabelle1'
ABCDEFGHIJKLMNOP
1011
2NameOrtDatumOrtDatumOrtDatumOrtDatumOrtDatum
3AlfAachen04.08.1973Aachen26880Aachen26880Aachen26880Aachen26880
4BerndBonn14.01.1962Bonn22660Bonn22660Bonn22660Bonn22660
5ChrisCoburg26.05.1967Coburg24618Coburg24618Coburg24618Coburg24618
6DorisDortmund01.07.1958Dortmund21367Dortmund21367Dortmund21367Dortmund21367
7ErnstEssen23.03.1969Essen25285Essen25285Essen25285Essen25285
8FritzFrankfurt10.09.1992Frankfurt33857Frankfurt33857Frankfurt33857Frankfurt33857
9GertGelsenkirchen29.02.2000Gelsenkirchen36585Gelsenkirchen36585Gelsenkirchen36585Gelsenkirchen36585
10HansHamburg07.11.1993Hamburg34280Hamburg34280Hamburg34280Hamburg34280
11IrisIserlohn22.09.1978Iserlohn28755Iserlohn28755Iserlohn28755Iserlohn28755
12JochenJÖ30.12.1996JÖ35429JÖ35429JÖ35429JÖ35429
13KlausKöln19.02.2004Köln38036Köln38036Köln38036Köln38036
14LenaLudwigsburg06.02.1978Ludwigsburg28527Ludwigsburg28527Ludwigsburg28527Ludwigsburg28527
15MartinMannheim18.08.2001Mannheim37121Mannheim37121Mannheim37121Mannheim37121
16NinaNeuss18.02.1986Neuss31461Neuss31461Neuss31461Neuss31461
17OlafOffenbach19.10.1999Offenbach36452Offenbach36452Offenbach36452Offenbach36452
18PaulaPaderborn03.12.2008Paderborn39785Paderborn39785Paderborn39785Paderborn39785
19QuirinQuakenbrück13.02.2009Quakenbrück39857Quakenbrück39857Quakenbrück39857Quakenbrück39857
20RenateRegensburg05.09.1993Regensburg34217Regensburg34217Regensburg34217Regensburg34217
21SusiStuttgart12.05.1972Stuttgart26431Stuttgart26431Stuttgart26431Stuttgart26431
22TheoTauberbischofsheim08.10.1980Tauberbischofsheim29502Tauberbischofsheim29502Tauberbischofsheim29502Tauberbischofsheim29502
23UweUlm11.04.1977Ulm28226Ulm28226Ulm28226Ulm28226
24ViktorVechta19.08.1999Vechta36391Vechta36391Vechta36391Vechta36391
25WalterWackersdorf30.03.1955Wackersdorf20178Wackersdorf20178Wackersdorf20178Wackersdorf20178
26XaverXanten29.01.1988Xanten32171Xanten32171Xanten32171Xanten32171
27YannikYach15.08.1978Yach28717Yach28717Yach28717Yach28717
28ZoeZeitz21.01.1989Zeitz32529Zeitz32529Zeitz32529Zeitz32529

ZelleFormel
F2=FILTER(tbl_Daten[#Alle];{0.1.1})
I2=FILTER(tbl_Daten[#Alle];WENNNV(XVERGLEICH(tbl_Daten[#Kopfzeilen];{"Ort";"Datum"});0))
L2=FILTER(tbl_Daten[#Alle];A1:C1)
O3=FILTER(tbl_Daten;WENNNV(XVERGLEICH(tbl_Daten[#Kopfzeilen];O2:P2);0))
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg


.xlsm   FILTER() auf Spalten anwenden.xlsm (Größe: 14,42 KB / Downloads: 8) ]]>
Video von MrExcel

Anbei eine Musterdatei mit mehreren Formel-Beispielen.

Arbeitsblatt mit dem Namen 'Tabelle1'
ABCDEFGHIJKLMNOP
1011
2NameOrtDatumOrtDatumOrtDatumOrtDatumOrtDatum
3AlfAachen04.08.1973Aachen26880Aachen26880Aachen26880Aachen26880
4BerndBonn14.01.1962Bonn22660Bonn22660Bonn22660Bonn22660
5ChrisCoburg26.05.1967Coburg24618Coburg24618Coburg24618Coburg24618
6DorisDortmund01.07.1958Dortmund21367Dortmund21367Dortmund21367Dortmund21367
7ErnstEssen23.03.1969Essen25285Essen25285Essen25285Essen25285
8FritzFrankfurt10.09.1992Frankfurt33857Frankfurt33857Frankfurt33857Frankfurt33857
9GertGelsenkirchen29.02.2000Gelsenkirchen36585Gelsenkirchen36585Gelsenkirchen36585Gelsenkirchen36585
10HansHamburg07.11.1993Hamburg34280Hamburg34280Hamburg34280Hamburg34280
11IrisIserlohn22.09.1978Iserlohn28755Iserlohn28755Iserlohn28755Iserlohn28755
12JochenJÖ30.12.1996JÖ35429JÖ35429JÖ35429JÖ35429
13KlausKöln19.02.2004Köln38036Köln38036Köln38036Köln38036
14LenaLudwigsburg06.02.1978Ludwigsburg28527Ludwigsburg28527Ludwigsburg28527Ludwigsburg28527
15MartinMannheim18.08.2001Mannheim37121Mannheim37121Mannheim37121Mannheim37121
16NinaNeuss18.02.1986Neuss31461Neuss31461Neuss31461Neuss31461
17OlafOffenbach19.10.1999Offenbach36452Offenbach36452Offenbach36452Offenbach36452
18PaulaPaderborn03.12.2008Paderborn39785Paderborn39785Paderborn39785Paderborn39785
19QuirinQuakenbrück13.02.2009Quakenbrück39857Quakenbrück39857Quakenbrück39857Quakenbrück39857
20RenateRegensburg05.09.1993Regensburg34217Regensburg34217Regensburg34217Regensburg34217
21SusiStuttgart12.05.1972Stuttgart26431Stuttgart26431Stuttgart26431Stuttgart26431
22TheoTauberbischofsheim08.10.1980Tauberbischofsheim29502Tauberbischofsheim29502Tauberbischofsheim29502Tauberbischofsheim29502
23UweUlm11.04.1977Ulm28226Ulm28226Ulm28226Ulm28226
24ViktorVechta19.08.1999Vechta36391Vechta36391Vechta36391Vechta36391
25WalterWackersdorf30.03.1955Wackersdorf20178Wackersdorf20178Wackersdorf20178Wackersdorf20178
26XaverXanten29.01.1988Xanten32171Xanten32171Xanten32171Xanten32171
27YannikYach15.08.1978Yach28717Yach28717Yach28717Yach28717
28ZoeZeitz21.01.1989Zeitz32529Zeitz32529Zeitz32529Zeitz32529

ZelleFormel
F2=FILTER(tbl_Daten[#Alle];{0.1.1})
I2=FILTER(tbl_Daten[#Alle];WENNNV(XVERGLEICH(tbl_Daten[#Kopfzeilen];{"Ort";"Datum"});0))
L2=FILTER(tbl_Daten[#Alle];A1:C1)
O3=FILTER(tbl_Daten;WENNNV(XVERGLEICH(tbl_Daten[#Kopfzeilen];O2:P2);0))
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg


.xlsm   FILTER() auf Spalten anwenden.xlsm (Größe: 14,42 KB / Downloads: 8) ]]> <![CDATA[[Excel] Entwicklertools: Taste "Visual Basic" und "Makros" ausgegraut]]> https://www.clever-excel-forum.de/Thread-Excel-Entwicklertools-Taste-Visual-Basic-und-Makros-ausgegraut Sun, 16 Feb 2020 14:52:23 +0000 JereMaia]]> https://www.clever-excel-forum.de/Thread-Excel-Entwicklertools-Taste-Visual-Basic-und-Makros-ausgegraut
Ich habe das Internet nach allen möglichen Fehlerquelle für dieses Problem durchforstet. Habe alles ausprobiert über Makrosicherheit und Trustcenter usw.  aber nichts hat geholfen die Tasten wieder aktiv zu bekommen. Selbst Reparatur und Neuinstallation von Office 2019 hatte das Problem nicht beseitigt. Die Idee zur Lösung war dann schließlich folgendes:

Die EXCEL-Anwendung wird, warum auch immer, nicht mehr mit Administratorrechten gestartet.

Die Folge ist, dass beim Öffnen von XLSM-Dateien sämtliche Makros aus dieser Mappe entfernt werden. Ich hatte sogar eine Meldung das behauptet wurde, dass diese Mappe nicht von mir erstellt sei und somit in einem abgesicherten Modus geöffnet und die Makros alle entfernt wurden. 

Die Lösung für dieses Problem ist die Anwendung immer mit Administratorrechten starten.

Anleitung:
1. Ihr müsst in den Installationsordner von Excel bzw. Office gehen.
Bei mir war es folgender Pfad: 'C:\Program Files (x86)\Microsoft Office\root\Office16'

2. Dort müsst ihr die Anwendung "Excel.exe" suchen und mit der rechten Maus drauf klicken.

3. Es erscheint ein Kontextmenü und dort den Eintrag "Eigenschaften" auswählen.

4. Es öffnet sich das Eigenschaftsfenster. Dort solltet Ihr einen Karteireiter "Kompatibilität" sehen. Diesen auswählen.

5. Auf diesem Karteireiter dann unten im Bereich "Einstellungen" den Haken  bei "Programm als Administrator ausführen" setzen und das Fenster mit "OK" schließen.

Fertig!

Wenn nun lässt sich Excel wieder normal starten und die Tasten sind wieder aktiv und alle Mappen funktionieren wieder auf dem Rechner.]]>
Ich habe das Internet nach allen möglichen Fehlerquelle für dieses Problem durchforstet. Habe alles ausprobiert über Makrosicherheit und Trustcenter usw.  aber nichts hat geholfen die Tasten wieder aktiv zu bekommen. Selbst Reparatur und Neuinstallation von Office 2019 hatte das Problem nicht beseitigt. Die Idee zur Lösung war dann schließlich folgendes:

Die EXCEL-Anwendung wird, warum auch immer, nicht mehr mit Administratorrechten gestartet.

Die Folge ist, dass beim Öffnen von XLSM-Dateien sämtliche Makros aus dieser Mappe entfernt werden. Ich hatte sogar eine Meldung das behauptet wurde, dass diese Mappe nicht von mir erstellt sei und somit in einem abgesicherten Modus geöffnet und die Makros alle entfernt wurden. 

Die Lösung für dieses Problem ist die Anwendung immer mit Administratorrechten starten.

Anleitung:
1. Ihr müsst in den Installationsordner von Excel bzw. Office gehen.
Bei mir war es folgender Pfad: 'C:\Program Files (x86)\Microsoft Office\root\Office16'

2. Dort müsst ihr die Anwendung "Excel.exe" suchen und mit der rechten Maus drauf klicken.

3. Es erscheint ein Kontextmenü und dort den Eintrag "Eigenschaften" auswählen.

4. Es öffnet sich das Eigenschaftsfenster. Dort solltet Ihr einen Karteireiter "Kompatibilität" sehen. Diesen auswählen.

5. Auf diesem Karteireiter dann unten im Bereich "Einstellungen" den Haken  bei "Programm als Administrator ausführen" setzen und das Fenster mit "OK" schließen.

Fertig!

Wenn nun lässt sich Excel wieder normal starten und die Tasten sind wieder aktiv und alle Mappen funktionieren wieder auf dem Rechner.]]>