Werte einfügen
30.07.2007 20:10:00
Heinz
Habe unteres Macro zum Werte in eine anderes Blatt.
Nun möchte ich aber zusätzlich zu "Const ber = "B3:K13"
Noch Werte Zb.von C16:D27 nach M2:Q15
Könnte mir Bitte jemand weiterhelfen.
Danke Heinz
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Const ber = "B3:K13"
Dim i As Integer
i = Val(InputBox("Wo möchten sie die Werte eintragen ?"))
If i = 0 Then Exit Sub
If i 36 Then MsgBox "Die Meisterschaft hat nur 36 Runden !": Exit Sub
ActiveSheet.Range(ber).Copy
Sheets("R" & i).Range("B3:K13").PasteSpecial xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Protect
End Sub
Anzeige