Doppelklick = Kreuz

[Maximus]

Hallo Leute,

ich bräuchte mal wieder eure Hilfe.

In den Spalten F, G, K würde ich gerne durch Doppelklick ein Kreuz setzen können.

Ich hatte so eine ähnliche Anfrage schon mal und dann wurde mir mit einem Makro geholfen, welches funktioniert.

Das folgende Programm war aber dafür bestimmt, dass ein X in bestimmte Zellen erzeugt wurde.

Jetzt bräuchte ich aber ein Programm, mit dem in den kompletten Spalten F, G, K dieses möglich ist.

Könnte mir jemand helfen, dieses umzuschreiben.

Danke und Gruss Markus

siehe Anlage

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A3:I3,A13:C15,E13:G20"), Target) Is Nothing Then
Application.EnableEvents = False
Target.Value = IIf(Target.Value = "x", "", "x")
Application.EnableEvents = True
Cancel = True
End If
End Sub

[Maximus]

achso hier die Datei

[Maximus]

bekomme die Datei nicht rein.
Hab das eigentlich so gemacht, wie immer.
Vielleicht habe ich schon zu viel hochgeladen.

Vielleicht klappt das auch nur mit der Beschreibung

[Maximus]

anhang
ich kann machen was ich will, bekomme keinen Anhang hochgeladen!

PS: Es handelt sich um eine intelligente Tabelle, eventuell sieht das Ergebnis dann anders aus.

[Zwergel]

Hi, ändere doch einfach den Range im Code

F:F, G:G, K:K

Sollte passen

[Jockel]

anhang
ich kann machen was ich will, bekomme keinen Anhang hochgeladen!

Hallo, habe gerade gesehen, dass es bei Opera geht..!?!

[Maximus]

Hi, die Iee von Zwergel schaut gut aus, nur habe ich jetzt in der Tabelle 2 VBA-Programme:

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

With Target
  Select Case .Column
   
    Case 1 'Spalte A
      Cancel = True
      Target = Date
      Target.NumberFormat = "dd/MM/YYYY"
  End Select
End With
End Sub


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("F:F, G:G, K:K"), Target) Is Nothing Then
Application.EnableEvents = False
Target.Value = IIf(Target.Value = "x", "", "x")
Application.EnableEvents = True
Cancel = True
End If
End Sub

Einzeln für sich funktioniert jedes.
Die erste Hälfte, um durch Doppelklick das aktuelle Datum zu setzen.
Die zweite Hälfte, um durch Doppelklick  das X zu setzen.

Aber zusammen bekomme ich immer eine Fehlermeldung!

Mehrdeutiger Namen, weil wohl die erste Zeile bei beiden Programmen gleich ist.
Weiss wer eine Lösung?

Gruss

[Zwergel]

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

With Target
  Select Case .Column
   
    Case 1 'Spalte A
      Cancel = True
      Target = Date
      Target.NumberFormat = "dd/MM/YYYY"
  End Select
End With
If Not Intersect(Range("F:F, G:G, K:K"), Target) Is Nothing Then
Application.EnableEvents = False
Target.Value = IIf(Target.Value = "x", "", "x")
Application.EnableEvents = True
Cancel = True
End If
End Sub

[Maximus]

Danke Michael!

Die Zusammenführung beider VBA´s funzt bestens!

LG Markus