Hallo Gast84384,
habe erstmal vielen Danke für deine Hilfe, ich zeige dir hier meinen Code für mein Vorhaben.
Ich habe noch ein Lösch Button3 dazu erstellt.
Es wäre schön wenn der Zeilen- Inhalt R16:R21, Spalte R der gleiche in Zeilen-Inhalt in R8:R:R13 , in Spalte übertragen werden kann,
danach wird auch die Ausgabe mit dem Button2 in Spalte A Zeile R1:R6 in der richtigen Reihenfolge dargestellt.
Hierzu gehört der Code mit den Zufallzahlen hinten auf dem Arbeitsblatt. Vielen Dank schon jetzt Gruß Waldow
Spalte IQ
0,8 |
|
|
|
0,6 |
|
|
|
0,8 |
|
|
|
0,8 |
|
|
|
0,1 |
|
|
|
0,7 |
|
3 |
0,5
|
Option Explicit
Sub Makro1()
Range("M23").Value = Range("M23").Value + 1 '... Zähler
Dim arrV As Variant, strSuch As Variant, Target As Range
Dim lngAnz As Integer, rngF As Variant
End Sub
Sub Makro2()
'Private Sub CommandButton1_Click()
Dim arr(), c As Range
Range("M22").Value = Range("M22").Value + 1
arr = Range("R16:R21").Value
With Range("R1")
If .Value = "" Then
Set c = Range("R1")
Else
Set c = Range("R1").Offset(, Range("R1").CurrentRegion.Columns.Count)
End If
End With
c.Resize(UBound(arr, 1)).Value = arr 'von er anfängt
Set c = Range("r8")
c.Resize(UBound(arr, 1)).Value = arr
Sub Makro3()
End Sub
Sub Makro3()
Range("M22,M23") = 0
'Private Sub CommandButton2_Click()
Dim c As Range
Set c = Range("R1").CurrentRegion
Set c = c.Resize(6)
c.ClearContents
End Sub
|