Gegeben ist der nebenstehende Tabellenausschnitt. Es soll die Spaltenüberschrift ermittelt werden, in der der größte Wert des Bereichs A2:C4 enhalten ist.

Abbildung 1: Tabellenblattausschnitt

Matrix-Formel

=INDEX(A1:C1;1;SUMME(WENN(A2:C4=MAX(A2:C4);SPALTE(A2:C4))))

1. In der Bearbeitungsleiste markiere Sie den in Abbildung 2 gezeigten Teil der Formel und drücke die Taste-F9. XL zeigt anschließend in der Berabeitungsleiste:
   
   
Abbildung 3: Berechnete Bedingung aus A2:C4=MAX(A2:C4)

XL hat die Bedingung berechnet, ob der jeweilige Wert im Bereich A2:C4 der größte Wert ist. In der Bearbeitungszeile steht jetzt die markierte Matrixkonstante. Es handelt sich um eine 3x3-Matrix, eben die Ausdehnung des Bereichs A2:C4 (drei Zeilen zu drei Spalten). In der zweiten Spalte, der zweiten Zeile wurde der Wert Wahr zurückgegeben; diese Zelle enthält den gößten Wert.


2. Wichtig: Die Bearbeitungszeile wird nicht mit der Return-Taste bestätigt! Es wird mit diesem Berechnungsstand weitergearbeitet. Dies gilt auch für die weiteren Berechnungsschritte.
   
   
   
3. Jetzt markieren Sie den nächsten Formelteil (s. Abbildung 4) und drücken die Taste F9. XL berechnet diesen Teil der Formel und gibt hier wiederum eine Matrixkonstante zurück: die jeweilige Spaltenzahl des Bereichs A2:C4, nicht zu verwechseln mit der Spaltenzahl des Tabellenblattes.
   
   Abbildung 4: markierter Formelteil SPALTE(A2:C4)
   
   Abbildung 5: berechneter Formelteil SPALTE(A2:C4)
   
   
   
4. Nun soll die gesammte Wenn-Funktion berechnet werden. Dazu markieren Sie, wie in Anbildung 6 zu sehen, die Wenn-Funktion, drücken die Taste F9 und erhalten das Ergebnis aus Abbildung 7. Die Wenn-Funktion hat ermittelt, in welcher Spalte der größte Wert enthalten ist: in Spalte 2.
   
   Abbildung 6: markierter Formelteil
   WENN({FALSCH.FALSCH.FALSCH;FALSCH.WAHR.FALSCH;FALSCH.FALSCH.FALSCH};{1.2.3})
   
   Abbildung 7: berechneter Formelteil
   WENN({FALSCH.FALSCH.FALSCH;FALSCH.WAHR.FALSCH;FALSCH.FALSCH.FALSCH};{1.2.3})
   
   
   
5. Damit Sie die berechnete Spalte 2, in der sich der größte Wert befindet, in die Index-Funktion einsetzen können, wird die Summe aus der Matrixkonstanten gebildet. Für den Wert Falsch setzt XL den Wert Null. Somit ergibt sich aus der Summe-Funktion der Wert 2 (s. Abbildung 8 u. 9).
   
   Abbildung 8: markierter Formelteil
   SUMME(WENN({FALSCH.FALSCH.FALSCH;FALSCH.WAHR.FALSCH;FALSCH.FALSCH.FALSCH};{1.2.3}))
   
   Abbildung 9: berechneter Formelteil
   SUMME(WENN({FALSCH.FALSCH.FALSCH;FALSCH.WAHR.FALSCH;FALSCH.FALSCH.FALSCH};{1.2.3}))
   
   
   
6. Abschließend kann mit Hilfe der Index-Funktion die Spaltenüberschrift des größten Wertes aus dem Bereich A2:C4 ermittelt werden (s. Abbildung 10 u. 11). Dies ist im Bereich A1:C1 (Spaltenüberschriften) die 1. Zeile und darin die errechnete 2. Spalte.
   
   Abbildung 10: markierter Formelteil INDEX(A1:C1;1;2)
   
   Abbildung 11: Formelergebnis: Nele
   
   

• Makros zu den integrierten Arbeitsmappen-Eigenschaften:
  Das folgende Makro liest alle integrierten Arbeitsmappen-Eigenschaften aus und trägt sie in ein neues Tabellenblatt der aktuellen Arbeitsmappe ein:

  Sub IntegrierteDokumentEigenschaftenAuflisten()
  Dim intI As Integer
  Dim myType As Variant
    myType = Array("", "Zahl", "Boolean", "Datum", "Text")
    On Error Resume Next
    Sheets.Add
    ActiveSheet.Range("A1:C1").Value = Array("Name", "Eigenschaft", "Type")
    For intI = 1 To ActiveWorkbook.BuiltinDocumentProperties.Count
      ActiveCell.Offset(intI, 0).Value = ActiveWorkbook.BuiltinDocumentProperties(intI).Name
      ActiveCell.Offset(intI, 1).Value = ActiveWorkbook.BuiltinDocumentProperties(intI).Value
      ActiveCell.Offset(intI, 2).Value = myType(ActiveWorkbook.BuiltinDocumentProperties(intI).Type)
    Next
    ActiveSheet.Columns("A:C").AutoFit
  End Sub
  

  Um eine integrierte Arbeitsmappen-Eigenschaft zu verändern benutzen Sie die Namen, die das vorhergehende Makro aufgelistet hat. Nicht alle integrierte Arbeitsmappen-Eigenschaft können einem neuen Wert annehmen.

  Sub IntegrierteDokumentEigenschaftenÄndern()
    ActiveWorkbook.BuiltinDocumentProperties("Title").Value = "IntegrierteDokumentEigenschaftenÄndern"
  End Sub
  

• Makros zu den benutzerdefinierten Arbeitsmappeneigenschaften:
  Die folgenden Makros zeigen, wie eine neue benutzerdefinierte Arbeitsmappeneigenschaft hinzugefügt, geändert und gelöscht werden kann. Der hier benutzte Name ist nicht in der Liste enthalten, die XL vordefiniert bereithält. Die integrierten Namen aus der Liste werden ebenfalls erst durch Zuweisung eines Wertes und anschließendem Klick auf die Schaltfläche Hinzufügen aktiv.

  Sub BenutzdefinierteDokumentEigenschaftHinzufügen()
    ActiveWorkbook.CustomDocumentProperties.Add Name:="Laufende Nummer", _
       LinkToContent:=False, Type:=msoPropertyTypeNumber, Value:=0
  End Sub
  
  Sub BenutzdefinierteDokumentEigenschaftÄndern()
    ActiveWorkbook.CustomDocumentProperties("Laufende Nummer").Value = _
       ActiveWorkbook.CustomDocumentProperties("Laufende Nummer").Value + 1
  End Sub
  
  Sub BenutzdefinierteDokumentEigenschaftLöschen()
    ActiveWorkbook.CustomDocumentProperties("Laufende Nummer").Delete
  End Sub
  

Matrix-Formel

=SUMME(WERT(TEIL(A1;ZEILE(INDIREKT("A1:A"&LÄNGE(A1)));1)))

Sub KopfUndFußzeile()
  With ActiveSheet.PageSetup
    .LeftHeader = "&B&F"
    .RightHeader = "&D"
    .CenterFooter = "&ISeite &P von &N"
  End With
End Sub

Personl.xls

Function FontWhite(rngZelle As Range) As Boolean
  If rngZelle.Font.ColorIndex = 2 Then
    FontWhite = True
  Else
    FontWhite = False
  End If
End Function

• Menü FORMAT | BEDINGTE FORMATIERUNG, Formel ist: =FontWhite(A1)
• Vergeben Sie jetzt ein deutlich erkennbares Format, z. B. Hintergrundfarbe Rot
• Klick Sie abschließend auf die Schaltfläche OK.

Abbildung 1: Markierter Bereich

Abbildung 2: Ergebnis der Bedingten Formatierung

Personl.xls

Sub KeineDublikate()
Dim rngBereich as Range
Dim rngZelle As Range
Dim NoDups As New Collection
Dim Item As Variant

  'Bei Fehler weitermachen
  'Fehler tritt bei schon vorhandenem 'Key' in der Collection auf
  On Error Resume Next

  For Each rngBereich in Selection.Areas
    For Each rngZelle In rngBereich
    'Key = CStr(rngZelle.Value) muß einmalig sein, sonst Fehler
    'That's the trick!
    NoDups.Add rngZelle.Value, CStr(rngZelle.Value)
    Next
  Next

  'neues Blatt anlegen
  Sheets.Add Before:=Sheets(1)

  'jedes einmalige Element der Collection ausgeben
  For Each Item In NoDups
    ActiveCell.Value = Item
    ActiveCell.Offset(1, 0).Select
  Next
End Sub