Copy/Paste
31.05.2007 11:46:23
Gromminger
Ich möchte aus dem Worksheet Currency Converter die Zahlen im Block E16:E25 auslesen
und in die Zwischenablage kopieren. So weit so gut.
Über eine ComboBox soll der Anwender auswählen können,
um welches Land, zb Österreich oder Belgien, handelt.
Je nachdem um welches Land sich handelt, sollen die Zahlen
im Worksheet Summary im jeweiligen Länderblock hineinkopiert werden.
So sieht der Code bisher aus:
Private Sub CommandButton1_Click()
Dim Country As String
Sheets("Currency converter").Activate
Range("e16:I25").COPY
Country = UserForm1.ComboBox1.Value
If Country = "Austria" Then
Worksheets("Summary").Range("c2:f11").Paste
End If
If Country = "Belgium" Then
Worksheets("Summary").Range("c12:f21").Paste
End If
CommandButton1.Enabled = True
End Sub
Leider kennt Excel/VBA den Befehl "Paste" nicht,
damit ich die Zahlen aus der Zwischenablage ins Sheet bekomme.
Habt Ihr vielleicht eine Idee?
Danke und Gruss,
Gromminger