selbst auf die Gefahr hin, dass es evtl. zu unübersichtlich wird, stelle ich den Code ein.
Ich möchte aus 10 Zahlen in der Tabelle2 (A1-A10) immer 2 in einem bestimmten Rhytmus (2mal, 1mal) jeweils 4mal in eine Spalte der Tabelle1 untereinander übertragen; anschließend die beiden nächsten Zahlen.
Derzeit funktioniert das mit 5 CommandButtons auch wunderbar; ich komme aber nicht dahinter, wie ich das mit einem Button erledigen könnte:
'' Wie kann ich aus Button 1 - 5 einen Button machen????????
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To 13
If i Mod 3 = 1 Then
Cells(i, 6).Value = Sheets("Tabelle2").Range("A1")
Else
Cells(i, 6).Value = Sheets("Tabelle2").Range("A2")
End If
Next i
End Sub
Private Sub CommandButton2_Click()
Dim i As Integer
For i = 14 To 25
If i Mod 3 = 1 Then
Cells(i, 6).Value = Sheets("Tabelle2").Range("A3")
Else
Cells(i, 6).Value = Sheets("Tabelle2").Range("A4")
End If
Next i
End Sub
Private Sub CommandButton3_Click()
Dim i As Integer
For i = 26 To 37
If i Mod 3 = 1 Then
Cells(i, 6).Value = Sheets("Tabelle2").Range("A5")
Else
Cells(i, 6).Value = Sheets("Tabelle2").Range("A6")
End If
Next i
End Sub
Private Sub CommandButton4_Click()
Dim i As Integer
For i = 38 To 49
If i Mod 3 = 1 Then
Cells(i, 6).Value = Sheets("Tabelle2").Range("A7")
Else
Cells(i, 6).Value = Sheets("Tabelle2").Range("A8")
End If
Next i
End Sub
Private Sub CommandButton5_Click()
Dim i As Integer
For i = 50 To 61
If i Mod 3 = 1 Then
Cells(i, 6).Value = Sheets("Tabelle2").Range("A9")
Else
Cells(i, 6).Value = Sheets("Tabelle2").Range("A10")
End If
Next i
End Sub
Wer hat eine Idee?
Besten Dank!
mfg
Erich