folgendes Problem:
Ich möchte einen Zellenbereich markieren, in der *aktiven Zelle* etwas eintragen und hätte anschließend gern die Eingabe in *allen markierten Zellen*. Hat jemand eine Idee, wie man sowas realisieren könnte?
Viele Grüße
Mathias
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rC As Range
If Selection.Rows.Count = 1 And Selection.Columns.Count = 1 Then Exit Sub
Application.EnableEvents = False
For Each rC In Selection.Cells
If rC.EntireRow.Hidden = False And _
rC.EntireColumn.Hidden = False Then _
rC.Formula = Target.Formula
Next
Application.EnableEvents = True
End Sub
Greetz Renee