Excel mehrere Zeilen synchron ausfüllen

Hallo Simon.
Dann musst Du nur kucken ob eine der Zellen geändert wurde und wenn ja, den Inhalt in alle schreiben.
Andreas.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
If Target.Count > 1 Then Exit Sub
Set Target = Intersect(Range("A1,C1,D1"), Target)
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each R In Range("A1,C1,D1")
R.Value = Target.Value
Next
Application.EnableEvents = True
End Sub

Klicke mit der rechten Maustaste auf die Blattregisterkarte
Wähle "Code anzeigen"
Schließe den VBA-Editor
Wenn es nicht geht, dann sind Makro's bei Dir nicht installiert oder deaktiviert. In dem Fall kann ich leider nicht weiterhelfen ich hab keinen Mac.

Andreas.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
If Target.Count > 1 Then Exit Sub
Set Target = Intersect(Range("A1,C1,D1").EntireColumn, Target)
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each R In Intersect(Range("A1,C1,D1").EntireColumn, Target.EntireRow)
R.Value = Target.Value
Next
Application.EnableEvents = True
End Sub

Hallo Danke für die rasche Info! Es hat so halb geklappt, wenn ich diesen Text Kopiere dann funktioniert es, dass es bei A1 und C1 und D1 das gleiche geschrieben wird, wenn ich allerdings in A2 schreibe, dann wird auch das gleiche in C2 und D2 geschrieben..wie kann ich das noch deaktivieren? LG Simon

Hmm, also ich finde es immer wieder erstaunlich wie gut Excel „erahnt“, welche Zelle ich wohl als nächstes ausfüllen möchte. Es kann gut sein, dass Excel auch deine Systematik nach einer gewissen Zeit „verinnerlicht“. Ansonsten könntest/müsstes du Excel
mit einem kleinen Makro auf die Sprünge im wahrsten Sinne des Wortes helfen. Deinem Bild habe ich entnommen, dass beim Erreichen der Zeile 35 in die Zeile 3 mit jeweils 3 Spalten Versatz gesprungen werden soll:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 35 Then Target.Offset(-32, 3).Select
End Sub

Das Makro muss ins Codemodul des Tabellenblatts und die Datei muss als Arbeitsmappe mit Makros (xlsm) gespeichert werden. Beim nächsten Start ist dann noch eine Sicherheitsmeldung zu bestätigen, danach sollte es funktionieren. Es reicht allerdings nicht
aus, nur den Haken in der Adressleiste zu betätigen, du musst ENTER drücken, als wolltest du in die Zeile 35 gelangen. Diese Zeile kann dann nicht mehr ausgefüllt werden.

Freundliche Grüße

Hallo,
Excel füllt keine Tabelle automatisch aus, wenn nur der Startwert und das Inkrement angegeben ist.
Normalerweise schreibt man z.B. in A2 die 17.
In A3 schreibt man dann =A2+4 und zieht herunter soweit benötigt.
Du kannst das Inkrement auch z.B. in G1 schreiben und dann in A3 die Formel
=A2+$G$1 verwenden.
Wenn du automatisch ausfüllen möchtest, gehe auf Start und in der Sektion "Bearbeiten" auf "Ausfüllen". Wähle dort Datenreihe, Reihe in Zeilen und gebe Startwert, Inkrement und Endwert ein.
Claus