Moin,
Habe in einer Excel (2003) Datei, 12 Arbeitsblätter, folgendes über Alt F11, Eingetragen.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, ActiveSheet.Range(„D4:H33“)) Is Nothing Then
Select Case Target.Value
Case „“
Target.Value = „X“
ActiveCell.Offset(0, 1).Range(„A1:A1“).Select
Case „X“
Target.Value = „“
ActiveCell.Offset(0, 1).Range(„A1:A1“).Select
End Select
End If
End Sub
Dies sollte mir mit einem Doppelklick ein „X“ in die Zelle eintragen.
Habe versucht dies von einer anderen Datei, wo es Funktioniert, zu übernehmen. Klappt leider nicht. Was habe ich Falsch gemacht oder geht dies nur bei „einem“ Arbeitsblatt?
Danke für Eure Hilfe.
Viele Grüße - Heiner
Hallo Heiner,
Habe in einer Excel (2003) Datei, 12 Arbeitsblätter, folgendes
über Alt F11, Eingetragen.
in welchem Modul?
Dies sollte mir mit einem Doppelklick ein „X“ in die Zelle
eintragen.
Wenn es so sein soll daß der Code nur anspringt wenn in eine zelle in
D4:H33 doppelgeklickt wird und in dem Zellbereich gibt es nur zellen die entweder leer sind oder mit X gefüllt sind so würde ich den Code so schreiben.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Intersect(Target, Range(„D4:H33“)) Is Nothing Then Exit Sub
Target.Value = IIf(Target.Value = „X“, „“, „X“)
Target.Offset(0, 1).Select
End Sub
Der Code bedeutet daß in die zelle etwas eingetragen wird XD oder nix und dann die zelle rechts davon markiert wird.
Ist das das was du möchtest?
Wenn du das in allen Blättern so haben möchtest müßtest du das 12mal in die jeweiligen Blattmodule reinkopieren.
Das kannste dir aber ersparen, es reicht wenn du das einmalig im Modul „DieseArbeitsmappe“ mit geändertem Code tust.
Übrigens, dein Code müßte genauso klappen wie meiner.
Dadran liegt es also nicht wenn er anscheinend nicht reagiert.
Ursache kann sein falsches Modul, EnableEvents auf False.
Um letzteres zu testen schreib mal in ein beliebiges modul
Sub test()
application.enableevents=true
end sub
stell dich mit dem Curser in den Code und drücke F5.
Jetzt klicke mal doppelt in Excel in eine Zelle im Bereich, wenn sich nix tut steht der Code im falschen Modul oder was mir noch einfällt in den Zellen steht was drin was weder leer noch „X“ ist.
Gruß
Reinhard