Registriert seit: 15.02.2017
Version(en): office2010
28.12.2017, 20:03
(Dieser Beitrag wurde zuletzt bearbeitet: 28.12.2017, 20:04 von 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
Registriert seit: 15.02.2017
Version(en): office2010
28.12.2017, 20:05
(Dieser Beitrag wurde zuletzt bearbeitet: 28.12.2017, 20:05 von Maximus.)
achso hier die Datei
Registriert seit: 15.02.2017
Version(en): office2010
28.12.2017, 20:09
(Dieser Beitrag wurde zuletzt bearbeitet: 28.12.2017, 20:09 von 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
Registriert seit: 15.02.2017
Version(en): office2010
28.12.2017, 20:27
(Dieser Beitrag wurde zuletzt bearbeitet: 28.12.2017, 21:07 von 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.
Registriert seit: 10.04.2014
Version(en): Office 2007, 2016, Win 10 64 bit
Hi, ändere doch einfach den Range im Code
F:F, G:G, K:K
Sollte passen
Mit freundlichen Grüßen :)
Michael
Folgende(r) 1 Nutzer sagt Danke an Zwergel für diesen Beitrag:1 Nutzer sagt Danke an Zwergel für diesen Beitrag 28
• Maximus
Registriert seit: 10.04.2014
Version(en): Office 2019
(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..!?!
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht
"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Registriert seit: 15.02.2017
Version(en): office2010
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
Registriert seit: 10.04.2014
Version(en): Office 2007, 2016, Win 10 64 bit
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
Mit freundlichen Grüßen :)
Michael
Folgende(r) 1 Nutzer sagt Danke an Zwergel für diesen Beitrag:1 Nutzer sagt Danke an Zwergel für diesen Beitrag 28
• Maximus
Registriert seit: 15.02.2017
Version(en): office2010
Danke Michael!
Die Zusammenführung beider VBA´s funzt bestens!
LG Markus
|