ich hab hier einen code mit dem ich mit doppelklick Zellen anklicke und es wird ein Wert eingetragen. Jetzt wollte ich ihn erweitern und zwar wenn ich in der Spalte G4:G70
die Zelle G4 mit Doppelklick anwähle das dann die Zeile I4:T4 mit einem Wert gefüllt wird. Wie mache ich das. Bitte um hilfe.
Paul
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'ActiveSheet.Unprotect
If Not Intersect(Target, Range("I4:T70")) Is Nothing Then
If Target = "" Then Target = "X": Cancel = True: Exit Sub
If Target = "X" Then Target = "": Cancel = True: Exit Sub
'ActiveSheet.Protect
End If
End Sub