Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Copy/Paste

Forumthread: Copy/Paste

Copy/Paste
31.05.2007 11:46:23
Gromminger
Hallo zusammen.
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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Copy/Paste
31.05.2007 12:19:39
Oberschlumpf
Hi Grommiger
Nur ne Idee...
Versuch es mal so (ungetestet):

Private Sub CommandButton1_Click()
Dim Country As String
Country = UserForm1.ComboBox1.Value
If Country = "Austria" Then
Sheets("Summary").Range("c2:g11").Value = Sheets("Currency converter").Range("e16:I25"). _
Value
End If
If Country = "Belgium" Then
Sheets("Summary").Range("c12:g21").Value = Sheets("Currency converter").Range("e16:I25") _
.Value
End If
CommandButton1.Enabled = True
End Sub


Ich habe deinen ursprünglichen Zielbereich, z Bsp
Worksheets("Summary").Range("c12:f21").
in
Sheets("Summary").Range("c12:g21").
geändert, weil dein Quellbereich
Range("e16:I25"). aus Sheets("Currency converter"). insgesamt 5 Spalten umfasst, der Zielbereich c12:f21 aber umfasst nur 3 Spalten - deswegen mit c21:g21 auf 5 Spalten erweitert.
Konnte ich helfen?
Ciao
Thorsten

Anzeige
AW: Copy/Paste
31.05.2007 12:19:59
Armin
Hallo Gromminger,
Excel kennt Paste schon, nur hast Du nicht die richtige Syntax.
So wird eingefügt:
ActiveSheet.Paste Destination:=Worksheets("Summary").Range("c12:f21")
Gruß Armin
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige