Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro kopieren ohne Zwischenablage | Herbers Excel-Forum

Makro kopieren ohne Zwischenablage
01.02.2010 15:22:09
Joni

Hi,
gibt es eine Möglichkeit ohne die Verwendung der Zwischenablage mittels Makro zu kopieren? Der Grund dafür ist, dass wenn das Makro läuft ein normales Kopieren (z. B. in Word oder Outlook) nicht möglich ist, da sich der Kopiervorgang des Makros und der des händischen Kopierens in dei Quere kommen.
Danke für für eure Hilfe.
Gruß Joni

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro kopieren ohne Zwischenablage
01.02.2010 15:24:30
Hajo_Zi
Hallo Joni,
ja Range("A1:B3").copy Range("C3")

AW: Makro kopieren ohne Zwischenablage
01.02.2010 16:09:07
Joni
Hi Hajo,
das verwende ich. Doch immer geht das nicht (z. B. Werte einfügen) oder täusche ich mich da?
Gruß Joni
AW: Makro kopieren ohne Zwischenablage
01.02.2010 17:34:51
Hajo_Zi
Hallo Joni,
Du hast gesvhrieben kopiren. Da ich ich davon ausgegangen das alles kopiert werden soll. Falls Du nur die Werte einfügen willst, geht das nicht ohne Zwischenablage.
Gruß Hajo
AW: Makro kopieren ohne Zwischenablage
01.02.2010 18:44:15
Nepumuk
Hallo,
klar geht das. Einfach so: Cells(1, 1).Value = Cells(1, 2).Value
Gruß
Nepumuk
Anzeige
Genau genommen - Nein! In Hajos Lösung...
01.02.2010 15:34:01
Luc:-?
...wird nur alles in einem Befehl erledigt, Joni,
was dein Problem vermeiden sollte... ;-)
Gruß Luc :-?
AW: Makro kopieren ohne Zwischenablage
01.02.2010 18:12:27
Reinhard
Hallo Joni,
ich weiß nicht was du vorhast.
Hier wird von A2 nach A3 kopiert ohne die Zwischenablage für mich sichtbar zu verändern.
Sub tt()
Dim Wert, MyData As New DataObject
Range("A1") = "Huhu"
Range("A2") = "abc"
Range("A1").Copy
MyData.GetFromClipboard
MsgBox MyData.GetText(1)
Wert = Range("A2")
Range("A3") = Wert
MsgBox MyData.GetText(1)
End Sub

Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige