Antworten auf Fragen von Frank37

0x

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

0x

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

0x

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!

0x

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.

0x

Schau mal unter folgendem Link nach:

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

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

0x

Hab's jetzt selbst herausgefunden:

01.12.2006 22:56 96.256 ATL80.dll
02.12.2006 00:25 1.101.824 mfc80.dll
02.12.2006 00:08 40.960 mfc80CHS.dll
02.12.2006 00:08 45.056 mfc80CHT.dll
02.12.2006 00:08 65.536 mfc80DEU.dll
02.12.2006 00:08 57.344 mfc80ENU.dll
02.12.2006 00:08 61.440 mfc80ESP.dll
02.12.2006 00:08 61.440 mfc80FRA.dll
02.12.2006 00:08 61.440 mfc80ITA.dll
02.12.2006 00:08 49.152 mfc80JPN.dll
02.12.2006 00:08 49.152 mfc80KOR.dll
02.12.2006 00:25 1.093.120 mfc80u.dll
02.12.2006 00:25 69.632 mfcm80.dll
02.12.2006 00:26 57.856 mfcm80u.dll
01.12.2006 22:54 479.232 msvcm80.dll
01.12.2006 22:54 548.864 msvcp80.dll
01.12.2006 22:54 626.688 msvcr80.dll
02.12.2006 00:46 65.536 vcomp.dll

0x

Hallo Frank,

du erstellst dir genau so eine Datei mit den drei Blättern, wie sie formatiert und eingerichtet sein sollen.
Dann speicherst du diese Datei als Mustervorlage ab.

Das geht so:
Datei - Speichern unter
Dateityp: Mustervorlage.xlt

Beim nächsten Öffenen einer neuen Excel-datei bietet er dir dann diese Datei als Vorlage an.

Gruß Distel

0x

Oder dritte Möglichkeit, Du zeichnest alle gewünschten Einstellungen mit dem Makrorekorder auf und speicherst es als Makro ab!

0x

Ich nutze OO Calc, aber ist ja artverwandt...

1. Möglichkeit: In Extras-> Optionen kann ich mir Calc einrichten, dann öffnen alle Mappen in diesem Format

2.Möglichkeit: Du richtest dir "Rohlinge" ein und speicherst sie als Vorlage...

2x

Lucene könnte Dir weiterhelfen. Läuft auf dem Fileserver ein Apache?
http://lucene.apache.org/java/docs/