Excel im betrieblichen Umfeld

Mittels VBA Werte in Tabellen je Arbeitsmappe (Excel Datei) in einem Verzeichnis auslesen und in einer neuen Tabelle zeilenweise zusammenführen: --- Code Snippet Begin --- Sub TabellenAusMehrerenDateienEinlesen()    Dim oTargetSheet As Object    Dim wksSheet As Object    Dim oSourceBook As Object    Dim sPfad As String    Dim sDatei As String    Dim lErgebnisZeile As Long        On Error GoTo fehler        Application.ScreenUpdating = False 'Das "Flackern" ausstellen            'Schritt 1: Neues Arbeitsblatt für die Ergebnisse erstellen      Set oTargetSheet = ActiveWorkbook.Sheets.Add      lErgebnisZeile = 2 'Ergebnisse eintragen ab Zeile 2          'Spaltenbeschriftungen in Zeile 1      With oTargetSheet         .Cells(1, 1) = "Dateiname"         .Cells(1, 2) = "Tabelle"         .Cells(1, 3) = "Merkmal1"         .Cells(1, 4) = "Merkmal2"         .Cells(1, 5) = "Merkmal3"        

Handbuch zur Verwendung von Funktionen, Formeln und Berechnungen in Web Intelligence Funktionsgruppe Datum und Uhrzeit Monat([Reservierungsdatum]) Rückgabewert: Dezember, wenn gilt [Reservierungsdatum] = 15. Dezember 2005) NummerMonatDesJahres([Reservierungsdatum]) Rückgabewert: 12, wenn gilt [Reservierungsdatum] = 15. Dezember 2005) Funktionsgruppe ZEICHEN AktuellesDatum() Rückgabewert: 15/12/2005 (wenn gilt: AktuellesDatum() = 15.12.2005) FormatDatum(AktuellesDatum();"dd/MM/yyyy") Rückgabewert: 15/12/2005 (wenn gilt: AktuellesDatum() = 15.12.2005) verschachtelte Wenn Bedingung Wenn ([Dimension]InListe("011";"012";"019";"020";"021";"060");"Name1"; Wenn([Dimension]InListe("042";"043";"050";"051";"081";"082");"Name2";"#"))