ich versuche per CommandButton1 Daten aus speziellen Zeilen/Spalten wieder in spezielle andere Zeilen/Spalten zu kopieren, hat aber so leider noch nicht funktioniert:
Private Sub CommandButton1_Click()
Dim Spalte1 As Long, Spalte2 As Long
Dim Zeile1 As Long, Zeile2 As Long
Dim ZeileLetzte As Long
ZeileLetzte = Worksheets("Tabelle1").Cells(Worksheets("Tabelle1").Rows.Count, 2).End(xlUp).Row
For Zeile1 = 18 To ZeileLetzte
For Spalte1 = 3 To 6
For Zeile2 = 22 To ZeileLetzte + 4
For Spalte2 = 7 To 11
If CommandButton1.Value = "1" Then
Worksheets("Tabelle1").Cells(Zeile1, Spalte1) = Worksheets("Tabelle1").Cells(Zeile2, _
Spalte2)
End If
Next
Next
Next
Next
End Sub
Weiss jemand eine bessere Lösung?Schöne Grüße, Hr. Mohr