Nachdem ich in den letzten Tagen einen Teil meiner SQL Scripts veröffentlicht habe, mache ich jetzt mal mit ein paar Macros weiter. Die nachfolgend aufgeführten Macros sind für Excel bestimmt und sollen einem Admin helfen Daten für die Weiterverarbeitung z. B. mit S-Verweisen (v-lookups) oder für den Upload in eine Datenbank aufzubereiten.

Diese Funktion entfernt Zeilenumbrüche aus dem markierten Bereich:

Sub entfernen_zeilenumbrueche()
Dim c As Object
For Each c In Selection
c.Value = Replace(c.Value, Chr(10), "")
Next
End Sub

Diese Funktion wandelt im markierten Bereich Zeilenumbrüche in RTF Zeilenumbrüche (\par) um:

Sub zeilenumbrueche2rtf()
Dim c As Object
For Each c In Selection
c.Value = Replace(c.Value, Chr(10), "\par")
c.Value = Replace(c.Value, Chr(11), "\par")
c.Value = Replace(c.Value, Chr(13), "\par")
Next
End Sub

Diese Funktion ersetzt etwas ausergewöhnliche Hochkommas durch “normale” im markierten Bereich:

Sub replace_strange_chars()
Dim c As Object
For Each c In Selection
'Entfernen von komischen Hochkommas
c.Value = Replace(c.Value, Chr(191), Chr(39))
Next
End Sub

Wie der Name sagt, werden hier ein paar Sonderzeichen für einen Upload in eine MSSQL Datenbank escaped (im markierten Bereich):

Sub escape_mssql_string()
Dim c As Object
For Each c In Selection
'Escapen von Hochkommas
c.Value = Replace(c.Value, Chr(39), Chr(39) + Chr(39))
Next
End Sub

Sehr sehr nützliche Funktion. Im markierten Bereich werden alle Leerzeichen am Anfang und am Ende eines Strings entfernt. Leerzeichen im Text werden nicht entfernt:

Sub remove_useless_spaces()
Dim c As Object
For Each c In Selection
c.Value = Application.WorksheetFunction.Clean(Trim(c.Value))
Next
End Sub

Viel Spass mit den Funktionen

Seit einiger Zeit nervt mich beim starten von Outlook 2007 der Business Contact Manager. Dieser möchte von mir installiert werden:

Nach der Auswahl von Express oder Erweitert erhalte ich jedoch immer die unschöne Fehlermeldung: “Ein Fehler beendet das STarten von Business Contact Manager für Outlook. Entfernen Sie Business Contact Manager für Outllok und installieren Sie das Programm dann neu…”

Eine Option, die mir erlauben würden den BCM (ich brauch ihn ja nicht) zu deinstallieren konnte ich bis jetzt jedoch noch nicht finden und Office wollte ich noch nicht neu installieren.

Auf den MS Seiten habe ich dann nach etwas suchen einen Artikel gefunden der beschreibt wie man das Teil deaktivieren kann indem man ein paar Registryeinträge ändert: KB903094

Auf dem Weg zum Registryeditor (den man als Admin ausführen muß) ist mir dann noch ein weiterer Gedanke gekommen. Ich habe Outlook also noch mal geschlossen und über die rechte Maustaste mit administratorrechten gestarten und siehe da, nach kurzer Zeit. Installation beendet:

… ich hätte ja mit viel gerechnet aber nicht damit, dass sich Microsoft in einem aktuellen Produkt nicht an seine Programierrichtlinien hält. UAC ist nun wirklich keine sooo neue Technik, dass man sie noch nicht implementieren sollte…