Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1716to1720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Spalteninhalt3 kopieren

VBA Spalteninhalt3 kopieren
24.10.2019 15:06:48
Waldow
Hallo Excelfreunde,
Ich möchte mit einem VBA Code Spalten mit Zelleninhalte kopieren, aber das kann ich nicht,
könnte mir einer dabei helfen, ich wäre euch allen sehr dankbar darüber.
Ich möchte durch Anklicken beim erstemal mit den vorhandenen Button1, einfach aus der
Spalte A, A8-A13 den Zelleninhalt in die Zellen A, A1-A6 kopieren, beim zweitenmale Anklicken
sollte der Zelleninhalt wieder aus Spalte A, A8-A13 eine Spalte weiter in die Spalte B, B1-B6
und dann immer weiter bis ich selbst diese Kopiervorgang beende.
Also A-A1-A6, A-B1-B6, A-C1-C6, A-D1-D6, A-E1-E6, A-F1-F6 usw.
Die SpalteA ist die Hauptkopierungspalte sie beinhaltet jedesmal unterschiedliche Zahlenwerte
nach dem Anklicken des Button.
Gruß waldow
Arbeitblatt1 Tabelle1
Spalte
A --------- B --------- C usw
1--2
2--5
3--6
4--4
5--3
6--1
7
8---2
9---5
10--6
11--4
12--3
13--1
Butten1
Kopieren
Vorhandender VBA Code:
Range("E15").Value = Range("E15").Value + 1 ' ................ Zähler
Range("Is1:Is6").Copy
Range("A8").Select ' hiermit werden Zelleninhalte A8-A13 ausgegeben
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
hier fehlt mir der VBA Makro1 Code zum Kopieren

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Spalteninhalt3 kopieren
24.10.2019 18:30:05
Werner
Hallo,
keine Ahnung für was dein "Zähler" gut sein soll.
Public Sub kopieren()
Dim loSpalte As Long
Application.ScreenUpdating = False
Cells(15, "E") = Cells(15, "E") + 1
Range(Cells(1, "IS"), Cells(6, "IS")).Copy
Cells(8, "A").PasteSpecial Paste:=xlValues
loSpalte = Cells(1, "IS").End(xlToLeft).Offset(, 1).Column
If Cells(1, "A") = "" Then loSpalte = 1
Range("A8:A13").Copy
Cells(1, loSpalte).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Gruß Werner
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige