Zusätzliche Spalten kopieren
17.07.2006 10:38:49
Heinz
Habe unteren Code hier im Forum bekommen.
Der besagt:das die Werte von B4:K15 je nach Runde nach B4:K15 kopiert werden.
Nun möchte ich aber, das auch noch D18:I29 nach C18:D29 mitkopiert werden.
Könnte mir Bitte jemand dabei Helfen.
Gruss, Heinz
Option Explicit
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 40
If WorksheetFunction.CountIf(Range("D4:D15"), i) >= 1 Then
Range("B4:K15").Copy
'If i < 10 Then i = "0" & i
Sheets("R" & CStr(i)).Range("B4").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Exit For
End If
Next i
End Sub
Anzeige