2. Wie kann die Farbnummer direkt der Variablen "iFar" übergeben werden ohne in cell(1,1) zu schreiben?
Private Sub cmd_Farben_Click()
Do While iFar >= 0
Tabelle1.Cells(1, 1).Select
Application.Dialogs(xlDialogPatterns).Show ' Farbtabelle einblenden
iFar = Tabelle1.Cells(1, 1).Interior.ColorIndex
If iFar