verschiedene Zellen in verschiedenen Tabellenblättern schnell einfügen

[respecter11]

Hallo zusammen

Ich habe folgendes Problem:
In meinem Haupttabellenblatt, also das Erste Tabellenblatt, sind verschiedene Informationen, welche bei den andere Tabellenblättern eingefügt werden müssten.

Also ca. so:
C2 -> Tabellenblatt 2 (F1)
C3 -> Tabellenblatt 3 (F1)
C4 -> Tabellenblatt 4 (F1)
usw.

Ich möchte diese ungern alle von Hand hinein kopieren, da es ein paar Tabellenblätter sind.

Kann man dies überhaupt automatisieren oder geht das nicht?

Vielen Dank bereits im Voraus für eure Antworten.

Grüsse
/respecter11

[Wastl]

Hi,

kann man automatisieren wenn alle Bedingungen bekannt sind.
Du bist doch ein langjähriger Forumnutzer.
Gib uns mal ne Beispieldatei, mit allen Bedingungen und dem gewünschten Endergebnis.
Danke im Voraus

[respecter11]

Hei Wastl

Vielen Dank für deine Antwort.
Im Anhang ist eine Beispieldatei. Diese ist recht einfach gehalten.

Grüsse
/respecter11

[Wastl]

so?

Code:

Sub hhhhe()
For i = 2 To 6
   Sheets(i).Range("F1") = Sheets(1).Cells(i - 1, 3).Value
Next
End Sub

[respecter11]

Hei Wastl

Vielen Dank für deine Nachricht. Ich habe den Code als Makro eingespeichert und wollte ihn ausführen, doch dann kam folgende Meldung:
   

Grüsse
/respecter11

[Wastl]

Hi,

hab hier nur Excel 2010, aber es läuft einwandfrei durch

Edit:

ich kann deinen Fehler reproduzieren, wenn ich diesen von mir erstellten Code in MSword im VBA-Editor einfüge und starte. Word kennt keine sheets.
In Excel tut das

[respecter11]

Hei Wastl

Hat tatsächlich einfach gehangt. Ich habe die Lücken davor gelöscht und das ist es gegangen.

Vielen Dank für deine Hilfe.

Grüsse
/respecter11