VBA
In dieser Rubrik finden Sie (wöchentlich neu) nützliche kleine Programmbeispiele und Erläuterungen zu vielen Office- und Internetanwendungen. Ich kann auch Ihre Office-Probleme lösen - schreiben Sie mir eine E-Mail.
- Alternierender Datensatzhintergrund im Access-Bericht
- Aus(Sortierung) einer Excel Tabelle nach vorgegebenen Zeichen
VBA-Makros für Microsoft Excel Access Word Powerpoint
Nützliche Scripte für MS-Office Produkte:
Als kleiner Tipp: Probieren Sie den internen Makro-Recorder für die Lösung Ihrer Aufgabe aus und schauen sich den erzeugten Code per Alt + F11 an. Den so gewonnenen Code können sie dann Ihren Wünschen entsprechend anpassen. Gerade dem VBA-Neuling erspart dieses Vorgehen viel Arbeit.
Alternierender Datensatzhintergrund im Access-Bericht:
In die [Ereignisprozedur] "Beim Formatieren" im Access Bericht folgenden Code einfügen:
Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
If Me.Section(acDetail).BackColor = 16777215 Then
Me.Section(acDetail).BackColor = 12632256
Else
Me.Section(acDetail).BackColor = 16777215
End If
End Sub
Der Farbcode 16777215 steht für eine weiße Farbe, 12632256 für ein standart-grau.
Aus(Sortierung) einer Excel Tabelle nach vorgegebenen Zeichen
Es ist ein alltägliches Problem: Sie haben eine Anwendung die eine große Menge an Rohdaten in einer Textdatei oder einer Excel-Tabelle speichert, sie benötigen jedoch nur einige wenige Datenfelder. Hier kommt die Lösung: Projekt in 5 Phasen (beispielhaft-> Ihre individuelle Lösung hängt natürlich von mehrerer Umständen ab):
- Import der (Roh-)Daten
- Spaltenbehandlung
- Zeilenbehandlung
- Abschließende Formatierung
- Speichern / Exportieren der Daten.
Zu 1: In einem Modul in Anwendungs-Excel-Tabelle steht dann folgendes:
Sub berichtoeffnen ()
Dim dateiname as string
dateiname = Application.getopenfilename("Datei", *.xls,,"Bitte die Rohdatendateiauswählen")
Workbooks.open (dateiname)
Windows(dateiname).Activate
End Sub
Zu 2: Spaltenbehandlung. Wieder im Modul eine Sub Prozedur anlegen:
Sub Spaltenbehandlung
Powered by 
