Carbon69
13.09.2017, 13:31
Wie kann ich Zelleninhalte via Makro mit Zellenabstand kopieren?

Ich möchte diese Frage mit einem Beispiel stellen und anmerken, dass ich vorher noch nie Makros oder VBA benutzt habe.

Ich habe eine Spalte mit Zelleninhalten (z.B."a" bis "k") und möchte über ein Makro das Ergebnis in Spalte 2 erhalten (vorzugsweise auf einem anderen Tabellenblatt). Der Abstand zwischen den gefüllten Zellen soll dann immer gleich sein.

 

Edit:
Die Spaltenbreite ist nicht mein Problem.

Ich möchte die Inhalte aus Zelle "Tabelle1!A3" in "Tabelle2!C1" kopieren

Der Inhalt von Zelle "Tabelle1!A4" in "Tabelle2!C85"

Der Inhalt von Zelle "Tabelle1!A5" in "Tabelle2!C169"

Der Abstand beträgt immer 84 Zellen in Tabelle 2. Das ganze sollte dann 367 mal passieren, theoretisch bis Zelle "Tabelle2!C30829"

Weiß nicht ob es verständlich ist :/

 ...zum Beitrag
Hilfreichste Antwort
von verreisterNutzer
13.09.2017, 13:37

Du willst den Spalteninhalt inkluse der Spaltenbreite Von Tabelle1 auf Tabelle2 übertragen, oder?

Dann so:

Sub Makro1()
'Kopieren
    Sheets("Tabelle1").Columns("B:B").Copy
'Einfügen
    Sheets("Tabelle2").Select
    Columns("B:B").Select
    ActiveSheet.Paste
End Sub
 ...zur Antwort