Zellen automatisch erweiteren
kurt
ich weiß nich ob es überhaupt möglich ist, aber
Fragen kann man ja mal...
Ich möchte gern in der Zelle z.B D17 einen Wert eingeben,
nun soll dieser Wert bis D47 kopiert werden.
Wenn ich aber dann einen Wert in Zelle D20 eingebe, soll dieser
Wert bis D47 weiter reinkopiert werden.
Also habe ich von D17 bis D19 den gleichen Wert und von
D20 bis D47 den gleichen Wert.
Ich bin nur auf die Idee gekommen weil ich dieses Makro gefunden
habe für die GROßschreibung.
Private Sub Worksheet_Change(ByVal Target As Range)
' alle Buchstaben Groß in einem bestimmten Bereich
Dim RaBereich As Range, RaZelle As Range
Application.EnableEvents = False
' Bereich der Wirksamkeit
Set RaBereich = Range("D17:D47")
' ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
RaZelle.Value = UCase(RaZelle.Value)
End If
Next RaZelle
Application.EnableEvents = True
' ActiveSheet.protect
Set RaBereich = Nothing
End Sub