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