Office: (Office 2007) leere zellen automatisch füllen

Hallo.

Ich habe da ein Problem. Und zwar habe ich eine Tabelle wo die Spalten D-G von Zeit zu Zeit automatisch gefüllt werden (Die Eintragungen werden über einen anderen Reiter gemacht). Es kann durchaus sein, das pro Eintrag nicht nur eine Reihe gefüllt wird, sondern mehrere. Wenn die Zellen mit den Einträgen gefüllt werden steht in der ersten Reihe der Spalten A-C auch jeweils ein Wert (Spalte A = Datum, Spalte B = Schicht, Spalte C = Mitarbeiter).
Beispiel:

A B C D E F G
24.07.14 Früh Mustermann 100 200 300 400
200 300 400 500
700 800 900 100

Jetzt möchte ich das sich die Zellen A-C automatisch füllen bis Spalte D leer ist (Also Reihe 2-4). Wenn dann ein neuer Eintrag kommt (also in Reihe 5) steht ja in A-C wieder ein neues Datum mit den Werten in D-G. Auch da soll sich A-C wieder bei mehreren Zeilen selbst füllen.

Da ich VBA-Einsteiger bin weiß ich nicht, wie ich das lösen kann.

der_phanter

:)

 

sollen die sich füllen mit Inhalt aus Zeile 2?
Zellen ausfüllen mit Wert davor
Range("a:a").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"

 

Ja. In Zellen A-C sollen solange die Wert "kopiert" werden wie in D Werte stehen.
Bei einem neuen Eintrag steht ja dann in der "1.Zeile" (z.B. Reihe 5) wieder neue Werte in A-C die in den folgenden Zeilen "kopiert" werden sollen.

Hoffe, das das so verständlich ist. Ich bräuchte dafür den kompletten Code.

der_phanter

 

gut dann ist das Problem ja mit meinem Vorschlag geklärt. 3x durchführen für die einzelnen Spalten.

 

Ok. Danke.
Was muss ich den vor und nach deinem makro (Range("a:a").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C") eingeben?

der_phanter

 

vor
Sub Ausfuellen
danach
End Sub

 

Habe es folgendermaßen in dem betreffenden Reiter eingetragen:

Sub Ausfuellen()
Range("A:A").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("B:B").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("C:C").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
End Sub

Dann kommt folgende Meldung:

"Zeile enthält keine ausführbare Anweisung"

Komme nicht weiter!
der_phanter

 

in meiner Datei geht es. Deine sehe ich nicht.

 

Anbei mal eine Beispieldatei. Das automatische Füllen funktioniert nicht.

Vielleicht hat jemand eine Idee?!

der_phanter

 

Der Dateiname sollte was mit dem Problem zu tun haben.
Ich habe mir z.B. einen Ordner angelegt in dem ich alle Dateien aus dem Internet speichere. Bei Dateinamen wie Test..., Mappe…, Beispiel… wird eine vorhandene überschrieben.
Schaue hier, Dateiname im Beitrag
das ist nun das Word -Forum, das gilt hier aber auch.

 

Jetzt nochmal neu hochgeladen.

der_phanter

 

keine Ahnung wo der Fehler liegt.

 

Hallo,

wenn die Zellen Zeile 1 und 2 in der Spalte verbunden sind, dann geht es nicht.

Bin nicht ganz sicher warum, aber wieder ein neuer Grund, keine verbundenen Zellen zu nutzen *Smilie

VG