VBA Code für kopieren u. löschen

Hallo Excelfreunde,
könnte mir einer dabei helfen, zwei VBA Codes --Sub_kopieren Makro1()-- und --Sub_löschen Makro2()-- zu entwickeln, ich wäre euch allen sehr dankbar darüber.
Gruß waldow
Mit dem
Sub Makro1()
werden durch das Anklicken des Button1 in der Spalte A, Zeile 8 - 13, _ unterschiedliche Zahlenwerte ausgeben die als Hauptkopierungs-Spalte benutzt werden sollte, das funktioniert schon, aber zur gleichen Zeit sollten schon diese Zahlenwerte in die Spalte A, Zeile 1 - 8 kopiert werden bzw. ausgegeben sein, dieser Vorgang funktioniert noch nicht. Beim zweiten Anklicken des Button1 sollten dann die Zahlenwerte wieder aus der Spalte A, Zeile _ 8 - 13 in die Spalte B, Zeile B1 - B6 copiert werden und dann immer soweiter A-B, A-C, A-D, A-E, A-F usw. bis ich selber den Kopiervorgang beende. Zusätzlich ist ein Zähler Code mit einer Zähler-Variable ("E15") In Makro1 u, Makro2 _ programiert, die anzeigt wieviel Spalten ausgegeben worden sind, das funktioniert auch, mit dem --Sub_löschen Makro2()-- sollte dieser Wert als Schleifenzähler in der For Next Schleife-Zähler genutzt werden um damit alle ausgegebenen Spalten gleichzeitig wieder zu löschen. Arbeitblatt 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 "E15" Button2 Kopieren Zähler Löschen Option Explicit Sub-kopierenMakro1() Range("E15").Value = Range("E15").Value + 1 ' ................ Zähler Range("Is1:Is6").Copy ' hiermit werden Zelleninhalte A8-A13 ausgegeben Range("A8").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False 'senkrecht True waagerecht Application.CutCopyMode = False hier fehlt der Code zum Kopieren End Sub Sub_löschen Makro2()
Code fehlt
For i = 1 to (E15) Zähler variable
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Excelfreunde,
könnte mir einer dabei helfen, zwei VBA Codes für das Makro1, Makro2 zu entwickeln,
ich wäre euch allen sehr dankbar darüber.
Erleuterung: Mit dem Makro1 werden durch das Anklicken des Button1 in der Spalte A,
Zeile 8 - 13, unterschiedliche Zahlenwerte ausgeben die als Hauptkopierungs -Spalte
benutzt werden sollte, das funktioniert schon, aber zur gleichen Zeit sollten schon
diese Zahlenwerte in die Spalte A, Zeile 1 - 8 kopiert werden bzw. ausgegeben sein,
dieser Vorgang funktioniert noch nicht. Beim zweiten Anklicken des Button1 sollten
dann die Zahlenwerte wieder aus der Spalte A, Zeile 8 - 13 in die Spalte B, Zeile B1 - B6
copiert werden und dann immer soweiter A-B, A-C, A-D, A-E, A-F usw. bis ich selber den
Kopiervorgang beende. Zusätzlich ist ein Zähler Code mit einer Zähler-Variable ("E15")
programiert, die anzeigt wieviel Spalten ausgegeben worden sind, das funktioniert auch,
mit dem Löschen Makro2 sollte dieser Wert als Schleifenzähler in der For Next Schleife-
Zähler genutzt werden um damit alle ausgegebenen Spalten gleichzeitig wieder zu löschen.
1.Arbeitsblatt 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
hier die Butten1(Kopieren) "E15"(Zähler) Button2(Löschen) sind vorhanden.
'Option Explicit
'Sub-kopierenMakro1()
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 der Code zum Kopieren
'End Sub
'Sub-löschen Makro2()
Hier fehlt der VBA Code fehlt
For i = 1 to (E15) Zähler variable
'End Sub

Beliebteste Forumthreads (12 Monate)

VBA Code für kopieren u. löschen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread