mal ein kleine Problem, dass ihr bestimmt lösen könnt :-)
Ich möchte wenn ich in Spalte L doppelklick mache, dass dann das heutige Datum drin steht und die Schrift art Schwarz und fett wird.
Wäre sowas möglich ?
Dankeschöööön
Liebe Grüße
Manu
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 12 Then
Cancel = True
Target.Font.Bold = True
Target.Value = Date
Target.Font.Color = xlblack
End If
End Sub
Denk daran, dass du danach als "xlsm" statt "xlsx" speichern musst - es sei denn, du hast eine uralte Excelversion.
If Target.Column >= 12 And Target.Column
If Target.Column >= 12 And Target.Column 5 Then
Du kannst auch einen Bereich definieren. Sagen wir, du willst den DOppelclick nur in L15:N37 zulassen, dann so:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myRng As Range
Set myRng = Range("L15:N37")
If Not Intersect(Target, myRng) Is Nothing Then
Cancel = True
Target.Font.Bold = True
Target.Value = Date
Target.Font.Color = xlblack
End If
End Sub
LG,Target.Font.Color = 0
0 müsste schwarz sein. Ich bin mir aber nicht sicher und kann es nicht testen, da ich nur eine moderne Excelversion zur Verfügung habe.Sub Makro1()
' Makro1 Makro
Range("P38").Select
Selection.FormatConditions.Delete
End Sub
jetzt weisst du, wie man eine bedingte Formatierung aus Zelle P38 löscht. Du willst aber nicht aus P38 löschen, sondern aus "Target" des Doppelclicks. Also verkürzen:
Target.Select
Selection.FormatConditions.Delete
Die Selektion ist überflüssig und kann ebenfalls gekürtzt werden:
Target.FormatConditions.Delete
WO in dein Makro die Zeile jetzt hin muss, findest du selbst heraus, ja?