Excel Checkliste erweitern

[Sabine77]

Hallo zusammen,

ich hoffe, dass mir jemand hier behilflich sein kann.

Ich bin gerade dabei eine monatliche Checkliste zu erstellen in der ein gesamtes Jahr geprüft werden soll.

Wenn ein Punkt abgearbeitet wurde, soll dies mit einem Häkchen gekennzeichnet werden und der Bearbeitungsstand soll angezeigt werden.
Leider kriege ich das für die einzelnen Monate (ab Februar (Spalte F)) nicht hin. Januar (Spalte E) funktioniert.

Ich füge mal, die Excel-Datei an bei.

Lieben Dank für eure Hilfe.

Sabine

[Kuwer]

Hallo Sabine,

der Bereich "myCheckList" beinhaltet ja auch nicht die Spalte F,
so dass das Doppelklick-Ereignis bei Doppelklick in Spalte F abgebrochen wird.

Gruß Uwe

[Sabine77]

Hallo Uwe,

danke für deine schnelle Antwort.
Kannst du mir sagen wie ich das beheben kann?

Liebe Grüße

Sabine

[Kuwer]

Hallo Sabine,

gehe im Excelmenü auf Einfügen - Namen - Definieren, klicke auf myCheckList
und ändere unten den Adressbereich entsprechend.

   

Gruß Uwe

[Sabine77]

Danke Uwe, ich versuche mich mal ob ich das hinkriege. LG

[Rabe]

Hi Uwe,

der Bereich "myCheckList" beinhaltet ja auch nicht die Spalte F,
so dass das Doppelklick-Ereignis bei Doppelklick in Spalte F abgebrochen wird.

wenn der Bereich auf F erweitert wird, geht in Spalte E nichts mehr.

[Kuwer]

Hallo Sabine,

ich sah gerade, dass Du E2007 hast.
Da findest Du den Dialog im Menüregister Formeln - Namens-Manager.
Oder aber kurz und schmerzlos in allen Excelversionen mit der Tastenkombination Strg+F3.

Gruß Uwe

[Sabine77]

Hallo Uwe,

das konnte ich finden . Aber ich komme nicht weiter.

Ich möchte eigentlich nur, dass ich Monat für Monat die Checkliste abarbeite; jeweils ein hacken setze und oben der Bearbeitungsstand angezeigt wird.

Kann ich das irgendwie einfacher lösen?

LG Sabine

[Kuwer]

Hallo Ralf,

danke fürs Testen. Stimmt leider.

Dann müsste die Abfragezeile

Code:

If ActiveCell.Column = Range("myCheckList").Column + Range("myCheckList").Columns.Count - 1 Then

so aussehen

Code:

If ActiveCell.Column >= Range("myCheckList").Column + Range("myCheckList").Columns.Count - 2 Then

Gruß Uwe

[Kuwer]

Hallo Sabine,

einfacher geht es vielleicht schon. Es kommt halt darauf an,
was noch alles dazu kommt.
So wie es aussieht, hast Du die Datei im Internet gefunden,
aber sie passt natürlich nicht so richtig, wie Du es brauchst.
Das Wechseln der per Schriftart Wingdings 2 simulierten Checkboxen
ginge z.B. so:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Font.Name = "Wingdings 2" Then
    If Target.Value = "£" Then
      Target.Value = "R"
    Else
      Target.Value = "£"
    End If
  End If
End Sub

Sag doch einfach, wie Du es genau bräuchtest.

Gruß Uwe