IT-Know How und mehr
Manchmal schreibt man einen Header für eine Tabelle, wo die Spalten möglichst schmal sein müssen. Dafür ist es von Vorteil, wenn in dem Header Wörter untereinander stehen. Das lässt sich ganz einfach umsetzen:
dim ueberschrift as String
ueberschrift = "PAL " & vbCrLf & " Anzahl"Einen Zeilenumbruch innerhalb einer Excelformel lässt sich einfach einrichten
ZEICHEN(10)
In meinen Tabellen muss ich regelmäßig “Einstellungen” und valide Werte auslesen.
Anfänglich geschah das mit Einlesen der Werte manuell in ein Array – besser geht es jedoch indem ich mit “Dictionarys” arbeite.
' Für 2 Dimensionen wird aus angegebenen Startpunkt für die Anzahl der Zeilen ein Range festgelegt
Public Function getDictionaryFromRange(Worksheet As String, rangeValue As String, numberOfLines As Integer) As Scripting.Dictionary
Dim dict As Scripting.Dictionary
Set dict = New Scripting.Dictionary
Dim settingsArray As Variant
Dim i As Integer
settingsArray = ThisWorkbook.Sheets(Worksheet).Range(rangeValue).value
For i = 1 To numberOfLines
Dim key As String
Dim value As Variant
key = settingsArray(i, 1)
value = settingsArray(i, 2)
If (isEmpty(key) = False And isEmpty(value) = False) Then
dict.Add key, value
End If
Set getDictionaryFromRange = dict
Next
End FunctionFür das Funktionieren der Dictionarys ist bei den Verweisen die Microsoft Scripting Runtime erforderlich:
Im nachfolgenden Link findet ihr eine gute Anleitung zum Thema Dictionary:
Bei komplexen Excel-Tabellen ist es oft nachteilig, wenn während des Schreibens von Daten in das Tabellenblatt die Datenberechnung aktiv ist. S-Verweise und andere Regeln werden mit jedem neuen Datensatz ausgeführt und verlangsamen den Generierungsprozess.
Excel bietet dafür an, die Formelberechnung einfach manuell zu deaktivieren:
Um die Berechnung vor der automatischen Tabellenbefüllung mit VBA Ein- und Auszuschalten, gibt es ein einfaches Kommando in VBA:
' Einschalten der Formelberechnung
Application.Calculation = xlCalculationAutomatic
' Ausschalten der Formelberechnung
Application.Calculation = xlCalculationManual Um eine neue E-Mail zu erstellen aus Excel heraus, kann ein einfache OLE-Objekt erzeugt und angezeigt werden. Vielen Dank wie so oft an Herberts VBA Forum (Quelle)
Sub Mail(ByVal d As String)
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfanger
.Recipients.Add "empfaenger@domain.de"
'Betreff
.Subject = "Betreff der E-Mail"
'Nachricht
.Body = "Inhalt der E-Mail"
'Lesebestätigung aus
.ReadReceiptRequested = False
'Anhang
.Attachments.Add d
.send
End With
Set olApp = Nothing
End SubDas Stichwort “Ransomware” ist derzeit in aller Munde und auch an mir geht die Aufgabe nicht vorbei, das Netzwerk meines Arbeitsgebers abzusichern. Aus diesem Grund heute aus aktuellem Anlass eine Anleitung, wie man mittels Gruppenrichtlinien im gesamten Unternehmen wirksam verhindert, dass Ransomware auf den Rechner mittels Makroschädling den PC infiziert.
Makros sind nur ein möglicher Infektionsweg von vielen. Täglich werden neue Wege aufgezeigt.
Aus diesem Grund noch mal der Hinweis, dass nur Backups, welche nicht permanent am PC angeschlossen sind, vor Ransomware schützen können.
Erstellen Sie in der Gruppenrichtlinienverwaltung eine neue Gruppenrichtlinie für die Office-Sicherheitseinstellungen. Die zugehörigen Makroeinstellungen finden Sie an der folgenden Stelle:
Benutzerkonfiguration\Administrative Vorlagen\[Office-Programm [Version]]
Hier gehen Sie je nach Version wie folgt vor:
Diese Richtlinie schalten Sie auf Aktiviert.
Hier wählen Sie “Alle Makros ohne Benachrichtigung deaktivieren”.Die Einstellungen für die anderen Office-Programme und Word-Versionen befinden sich an den folgenden Stellen:
| Programm | GPO-Pfad | Einstellung |
|---|---|---|
| Word 2013 | Microsoft Word 2013\Word-Optionen\Sicherheit\Trust-Center | Einstellungen für VBA Makrobenachrichtigungen: Alle Makros ohne Benachrichtigung deaktivieren |
| Word 2010 | Microsoft Word 2010\Word-Optionen-Sicherheit\Sicherheitscenter | Einstellungen für VBA Makrobenachrichtigungen: Alle Makros ohne Benachrichtigung deaktivieren |
| Word 2007 | Microsoft Office Word 2007\Word-Optionen\Sicherheit\Vertrauensstellungscenter | Einstellungen für VBA Makrobenachrichtigungen: Keine Warnungen für alle Makros, aber alle Makros deaktivieren |
| Excel 2013 | Microsoft Excel 2013\Excel-Optionen\Sicherheit\Trust-Center | Einstellungen für VBA Makrobenachrichtigungen: Alle Makros ohne Benachrichtigung deaktivieren |
| Excel 2010 | Microsoft Excel 2010\Excel-Optionen\Sicherheit\Sicherheitscenter | Einstellungen für VBA Makrobenachrichtigungen: Alle Makros ohne Benachrichtigung deaktivieren |
| Excel 2007 | Microsoft Office Excel 2007\Excel-Optionen\Sicherheit\Vertrauensstellungscenter | Einstellungen für VBA Makrobenachrichtigungen: Keine Warnungen für alle Makros, aber alle Makros deaktivieren |
Die GPO-Pfade für die Makro-Einstellungen der in der Tabelle genannten Programme lassen sich ebenfalls ableiten auf Outlook, Access, Powerpoint und all die anderen Office-Programme. Die Pfade unterscheiden sich bei den Versionen zumeist in der unterschiedlichen Übersetzung des “Trust-Centers”.
Vergessen Sie anschließend nicht, die Gruppenrichtlinie mit der richtigen Organisationseinheit in Ihrem Netzwerk zu verknüpfen, damit diese aktiv wird.