Die Aufgabenstellung: Daten aus einer Ursprungstabelle sollen automatisch auf verschiedene Zieltabellen verteilt werden. Damit dies funktioniert muss lediglich einmal die Zuordnung geschaffen werden, dann klappt es aber problemlos wie das nachfolgende Beispiel zeigt (einfach als Makro als allgemeines Modul in Excel einfügen und gemäß der Kommentare anpassen).
‘ **********************************************************************
‘ Modul: Modul1 Typ: Allgemeines Modul
‘ **********************************************************************
Option Explicit
Sub copyToNewSheet()
Dim objWb As Workbook, rng As Range
Dim strPath As String, strUser As String, strDateTime As String
Const lngColumn As Long = 6 ‘Spalte in der die Werte gesucht werden – Anpassen!
On Error GoTo ErrExit
GMS
strPath = “E:\Temp\” …

Früher waren Buchhaltungsblätter generell liniert, dieser Effekt lässt sich auch in Excel automatisieren, so dass man nicht permanent farbige Zeilen hinzufügen muss.
Markieren Sie den Bereich, in dem die Zeilen farbig markiert werden sollen. Aktivieren Sie den Befehl “Format – Bedingte Formatierung”. Daraufhin erscheint die Dialogbox “Bedingte Formatierung”. In dieser Box aktivieren Sie im linken Listfeld die Option “Formel ist”. Dann geben Sie in das Eingabefeld die folgende Formel ein:
=REST(ZEILE(A2);2)=0
Über die die Schaltfläche “Format” wählen Sie über die Karte “Muster” die entsprechende Farbe aus und bestätigen mit “OK”. Diese Farbe …