hab's jetzt mit folgendem Makro gelöst:

Option Explicit
Sub test()
Dim rArea As Range
Dim rSel As Range
Dim rCell As Range
Dim nAreas As Integer
Dim nArea As Integer
Dim nRows As Integer
Dim nRow As Integer
Dim nCols As Integer
Dim nCol As Integer
Dim oCheckbox As OLEObject
Dim xValue As Variant

Set rSel = Selection
nAreas = rSel.Areas.Count

For nArea = 1 To nAreas
Set rArea = rSel.Areas(nArea)
nRows = rArea.Rows.Count
nCols = rArea.Columns.Count
For nRow = 1 To nRows
For nCol = 1 To nCols
Set rCell = rArea.Cells(nRow, nCol)
xValue = rCell.Value
If VarType(xValue) = vbBoolean Then
Set oCheckbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
Link:=False, DisplayAsIcon:=False, _
Left:=rCell.Left + 1, Top:=rCell.Top + 1, _
Width:=rCell.Width - 1, Height:=rCell.Height - 1)
oCheckbox.LinkedCell = rCell.Address
oCheckbox.Object.Caption = ""
End If
Next
Next
Next

End Sub

Hi @RBMannheim,

> Ich verstehe die Frage nicht ganz! Wenn es nur um die Darstellung geht, dann mit einer bedingten Formatierung,

Ja, es geht nur um die Anzeige. Ich finde bei der bedingten Formatierung aber nicht die Möglichkeit, das Feld als Checkbox anzeigen zu lassen. Wo ist das versteckt?

Ciao Frank

Ich kann RBMannheinm nur zustimmen, für mehrere Tausend Felder ict die Checkbox nicht gedacht. Die ist für Abfragen in Formularen da.

Benutze bedingte Formatierung!

Ich verstehe die Frage nicht ganz! Wenn es nur um die Darstellung geht, dann mit einer bedingten Formatierung, geht es darum es als Bedingungsfeld zu verwenden, dann mit einer darauf verweisenden WENN Abfrage.

Schau mal unter folgendem Link nach:

http://www.office-loesung.de/

Wenn da nichts ist, dann frage da mal nach. Da sitzen die Experten :-)