Refedit Funktion
30.09.2003 09:34:31
Joachim Dallinger
ich habe in einem userform für das kopieren von Spalten volgendes programm erstellt:
Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Dim Sp, Spv
Sp = ActiveCell.Column
If Sp < 10 Then
UserForm2.Hide
Exit Sub
Else
Spv = Sp + 1
If Spv < 256 Then
Range(Cells(2, Sp), Cells(76, Sp)).Copy
Range(Cells(2, Spv), Cells(76, Spv)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True
Else
MsgBox " Das Möbelblatt ist voll "
End If
End If
UserForm2.Hide
End Sub
Nun zur Frage
Ich möchte nun dem Anwender die Möglichkeit geben
ganze Bereiche zu kopieren und habe in das userform zwei Felder refedit eingefügt. Dabei soll aber nur die Spalteninfo aus der rückmeldung der refedit Felder verwendet werden und die zu kopierenden Zeilen durch das Programm festgelegt sein.
Beispiel:
Quelle $AE$72:$AI$73
Ziel $AM$74:$AP$76
Die Zeilen sollen immer 2 - 76 sein
kann mir jemand helfen?
Anzeige