Command Button - Copy&Paste
07.06.2007 12:10:07
Tim-Oliver
ich habe folgendes Problem und würde mich freuen, wenn mir jemand bei der Lösung helfen könnte.
In einem Tabellenblatt A habe ich einen Command Button der beim "klicken" einen bestimmten Teil des Tabellenblattes A kopieren soll und in Tabellenblatt B die Werte einfügen soll.
Der Command Button funktioniert leidr aber nur dann, wenn ich zuvor im Tabellenblatt B mit dem Cursor eine Zelle angeklickt habe. Mache ich dies nicht, funktioniert es leider nicht.
Hier der Code, den ich verwendet habe:
Private Sub CommandButton1_Click()
Sheets("match result").Select
Range("A3:G432").Select
Selection.Copy
Sheets("match result Sorted").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Gibt es eine Möglichkeit das manuelle anklicken der Zelle im Zieltabellenblatt zu automatisieren?
Würde mich übe eine Lösung freuen.
Tim-Oliver
Anzeige