Clever-Excel-Forum - Doppelklick = Kreuz

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

achso hier die Datei

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

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.

Hi, ändere doch einfach den Range im Code

F:F, G:G, K:K

Sollte passen

(28.12.2017, 20:27)Maximus schrieb: [ -> ]anhang
ich kann machen was ich will, bekomme keinen Anhang hochgeladen!

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

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

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

Danke Michael!

Die Zusammenführung beider VBA´s funzt bestens!

LG Markus