Wer kann mir denn da helfen?
Wäre für eure Hilfe Dankbar!
Liebe Excelgrüße
Hansjörg
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If gvValue <> "" Then
Target.Value = gvValue
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
gvValue = ActiveCell.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$A$4" Then Exit Sub
If gvValue <> "" Then
Target.Value = gvValue
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address <> "$A$4" Then Exit Sub
gvValue = ActiveCell.Value
End Sub