Spalte auslesen, weiter übertragen
26.09.2019 10:59:08
Waldow
ich wär gerne interessiert wenn jemand so freundliche wäre, mir von einer Excel Anwendung in einem VBA Script Code umzuschreiben, um die Ausgabe von Spalten-Inhalte fortlaufende in andere Spalten zu übertragen, da dieses Problem mit einer Excel-Anwendung nicht funktioniert.
Als Beispiel hier mit einer Excel Programm-Beschreibung:
In der Spalte A1-A5 stehen 5 konstante Zahleninhalte von 1-5, die durch die Zufallszahl-Formel in Spalte C1-5 eine Veränderung der Zahlen-Reihenfolge in Spalte B1-5 ausgibt,
soweit ist das in der Excel-Anwenung auch ok, dieses sollte aber in einem VBA Script umgeschrieben werden, weil bei dem nächste Klick mit F9 die selbe Spalte B1-5 und E1-5 überschrieben wird, dass sollte mit einem VBA Script fortlaufent in andere Spalten geschrieben werden, weil es mit diesem Excel-Programm nicht funktioniert.
Excel-Programm:
Spalte A1-A5 1.2.3.4.5
Spalte B1-B5, Index(A$1:A$5;Rang.Gleich($C$1:$C$5;1))
Spalte C1-C5, =Zufallszahl()
Ausgabe-Spalte: Spalte E1-E5, =B1(4) =B2(3) =B3(2) =B4(5) =B5(1)
Durch Betätigen der Funktionstaste F9 (später Button 1) wird eine neue Zahlen-Reihenfolge mit Spalteninhalt in Spalte B1-B5 ausgegeben, ich habe hier die Ausgabe einfach manuell in die Ausgabe-Spalte E1-5 kopiert, diese sollten dann automatisch im VBA Modus Spaltenweise immer weiter ausgegeben werden.
Die nächste Ausgabe wäre dann in Spalte F1-5, G1-5, H1-5 usw. bis dann später alle mit einem Lösch (2 Button) die Spalteninhalte ab F1-5 wieder gelöscht werden können.
Der VBA Code müßten vorher die konstante Zahlenreihe 1-5 von der Variable Z1:Z5 in A1-A5 übernommen werden, sodas mit der VBA Anwendung die Zahlenfolge A1-A5 dann konstant bleibt, wie im Exce-Programm.
Option Explicit
Sub Makro1()
Dim arrV As Variant, intNr As Integer, B As Integer, Target As Range
arrV = Application.Transpose(Range(Z1:Z5))
Range(A1:A5) = Range(Z1:Z5)
Range(Z1:Z5)= Application.Transpose(arrV)
Range(E1:E5) = Range(B1:B5), Value ' Ausgabespalte
' Range(F1:F5) = Range(B1:B5), Value ' Ausgabespalte
End Sub
Sub Makro2()
Spalte F1-F5,G1-G5,H1-H5 usw.
hier sollten die Spalten-Inhalte ab F1 alle wieder gelöscht werden.
End Sub
K-H Waldow