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
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
Hallo Uwe,
danke für deine schnelle Antwort.
Kannst du mir sagen wie ich das beheben kann?
Liebe Grüße
Sabine
Hallo Sabine,
gehe im Excelmenü auf
Einfügen - Namen - Definieren, klicke auf
myCheckList
und ändere unten den Adressbereich entsprechend.
[
attachment=582]
Gruß Uwe
Danke Uwe, ich versuche mich mal ob ich das hinkriege. LG
Hi Uwe,
(24.09.2014, 22:14)Kuwer schrieb: [ -> ]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.
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
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
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
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