Formel aus Zelle in jede n-te Zelle kopieren

[LuLucas]

Hallo zusammen,

nachdem ich nun sämtliche Suchbegriffe ausprobiert und Foren durchforstet habe, wende ich mich mal direkt an dieses kompetente Forum hier mit folgendem Anliegen:

Ich möchte x-tausend Adressdatensätze aufbereiten. Die Adressdaten kommen von einer Webseite als Text. Nachdem ich die Adressen in eine txt. kopiert und in Excel eingefügt habe, ergibt sich folgendes Raster in Spalte A.

https://www.dropbox.com/s/0pedsopnkkb56g6/Kundenliste.JPG?dl=0

In Spalte G habe ich eine einfache Formel eingefügt wodurch der Text in einer Zelle kombiniert wird. Nun soll diese Formel in jede 10 Zelle kopiert werden. Natürlich ohne fixierten Zellbezug zu A.

Ich habe bereits einen guten Anfang für eim Makro gefunden, schaffe es aber nicht, dass die einzelne Zelle kopiert wird. Habe keine VBA Kenntisse und suche mir die Infos i. d. R. von verschiedenen Seiten zusammen.
Ich hoffe die Informationen sind ausreichend. Wenn nicht einfach nachfragen. Danke schonmal für eure Hilfe!


Sub Formelkopie()
Dim z As Long, Quelle As Long, bisZeile As Long
bisZeile = 200389
Quelle = ActiveCell.Row
Do Until z > bisZeile
z = z + 10
Row (Quelle).Copy Row(Quelle + z)
Loop
End Sub

[GMG-CC]

Moin,

mein erster Tipp: Suche dir eine andere Datenquelle, wo du die Daten als "saubere" Tabelle bekommst. Mit Formeln in VBA wirst du da nicht unbedingt zum Ziel kommen ...
2. Du kannst Daten auch hier hochladen, bei DropBox sind sie irgendwann nicht mehr zugreifbar und spätere Hilfe suchende haben nichts davon.
3. Lade eine *.xlsx hoch!

[LuLucas]

Danke schon mal für die erste Rückmeldung! Die Daten werde ich nicht in einer anderen Form erhalten.

Letztendlich sind die Daten auch auch nicht das Hauptanliegen in diesem Beitrag. Ich glaube, da habe ich etwas weit ausgeholt.
Wichtig ist, wie ich eine Formel in jede n-te Zelle kopieren kann.

Hier die Exceltabelle:
Dateiupload bitte im Forum! So geht es: Klick mich!


Dankeschön!

[GMG-CC]

Moin,

Code:

=WENN(REST(ZEILE();5)=1;A1&" "&A2&" "&A3&" "&A4;"")

... und dann lernen wir noch die Sache mit dem direkten Upload hier im Forum, gelle? 

[WillWissen]

Hallo Lucas,

lade deine Beispielmappen bitte direkt mit der Forensoftware hoch. Externe Filehoster oder Clouds bergen den Nachteil, dass oftmals nach einer gewissen Zeit die Daten nicht mehr zur Verfügung stehen und dadurch für nachfolgende User der gesamte Thread unbrauchbar wird.

Lies dir bitte diesen Beitrag durch: m http://www.clever-excel-forum.de/thread-...ml#pid1911

[LuLucas]

Ein ganz großes DANKESCHÖN für die Antwort. Die "WENN-Formel" hats gebracht :)

Hier nun auch die Datei im Anhang.
  Dienstleister.xlsx (Größe: 8,58 KB / Downloads: 2)
  Dienstleister.xlsx (Größe: 8,58 KB / Downloads: 2)

[BoskoBiati]

Hi,

wenn Du TEXTVERKETTEN in Deiner Version hast:

Code:

=Textverketten(" ";Wahr;Index(A:A;(Zeile(a1)-1)*5+1):Index(A:A;Zeile(a1)*5))

Da brauchst Du nur die Formel nach unten ziehen und hast alle Adressen untereinander.