Excel

Hintergrundfarbe filtern:
Function Farbe(rngZelle As Range) As Byte Farbe = rngZelle.Interior.ColorIndex End Function

Macro um Tab Excel sortieren:
Sub Farbsortierung()
Dim i As Long, j As Long
For i = 1 To Worksheets.Count - 1
For j = i To Worksheets.Count
If Worksheets(j).Tab.ColorIndex = _
Worksheets(i).Tab.ColorIndex Then
Worksheets(j).Move After:=Worksheets(i)
End If
Next j
Next i
End Sub

Unterschied zwischen 2 Datümer ohne WE in Stunden:
=WENN(WOCHENTAG(b1)<WOCHENTAG(a1);(b1-a1)*24-(GANZZAHL((b1-a1)/7)+1)*48;(b1-a1)*24-GANZZAHL((b1-a1)/7)*48)


Access

Union Query:
TABLE  [TABLENAME1]
UNION ALL SELECT * FROM [TABLENAME2]
UNION ALL SELECT * FROM [TABLENAME3];