Kopierrahmen per VBA entfernen

Computer: Software & Programmierung Office Software
#1

Hallo Experten,

ich glaube, ich stehe gerade ein bisserl auf dem Schlauch: wie bekomme ich diesen Laufrahmen, der in die Zwischenablage kopierte Zellen kennzeichnet, wieder weg?

Danke
Martin

#2

Hallo Martin,

ganz einfach durch drücken der Esc-Taste. Aber warum per VBA?

Kerstin

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

ganz einfach durch drücken der Esc-Taste. Aber warum per VBA?

Vielleicht weil ich vorher per VBA mit COPY und INSERT arbeite?

Martin

#4

ganz einfach durch drücken der Esc-Taste. Aber warum per VBA?

Vielleicht weil ich vorher per VBA mit COPY und INSERT
arbeite?

Hi Sybille, Martin, grüß dich Walter *kicher*

meint ihr das da:

Sub tt()
Application.CutCopyMode = False
End Sub

Aber zeigt mal euren Code, vielleicht kann man den verbessern, sodaß gar kein Kopierrahmen erscheint…

Gruß Reinhard

#5

Grüezi Martin

ich glaube, ich stehe gerade ein bisserl auf dem Schlauch: wie
bekomme ich diesen Laufrahmen, der in die Zwischenablage
kopierte Zellen kennzeichnet, wieder weg?

Vermeide doch ganz einfach diesen Rahmen indem Du mit der .Copy-Methode arbeitest und das Ziel gleich als Parameter mitgibst.

Bei sauber referenzierten Bezügen ist kein .Activate und .Select notwendig und dann entfällt auch Application.CutCopyMode = False

–
Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
#6

Hi Sybille, Martin, grüß dich Walter *kicher*

Bist DU vielleicht albern. Wusstest Du nicht, dass der Trend zur Zweit-Mailadresse geht?

Aber zeigt mal euren Code, vielleicht kann man den verbessern,
sodaß gar kein Kopierrahmen erscheint…

Rows(intZeilenindex1).Copy
Workbooks(strDateiname).Worksheets(intZähler).Rows(intZeilenindex2).Insert

So, jetzt möchte ich mal sehen, was ihr an DEM Code verbessert… ;o)

Viele Grüße
Martin

#7

Hi Manfred,

Hi Sybille, Martin, grüß dich Walter *kicher*

Bist DU vielleicht albern. Wusstest Du nicht, dass der Trend
zur Zweit-Mailadresse geht?

das muss ich in der Computerbild überlesen haben *gg*

Aber zeigt mal euren Code, vielleicht kann man den verbessern,
sodaß gar kein Kopierrahmen erscheint…

Rows(intZeilenindex1).Copy
Workbooks(strDateiname).Worksheets(intZähler).Rows(intZeilenindex2).Insert

So, jetzt möchte ich mal sehen, was ihr an DEM Code
verbessert… ;o)

With Workbooks(strDateiname).Worksheets(intZähler)
 Rows(intZeilenindex1).Copy Destination:=.Rows(intZeilenindex2)
End With

Gruß
Reinhard

Viele Grüße
Martin

#8

Grüezi Martin

Aber zeigt mal euren Code, vielleicht kann man den verbessern,
sodaß gar kein Kopierrahmen erscheint…

Rows(intZeilenindex1).Copy
Workbooks(strDateiname).Worksheets(intZähler).Rows(intZeilenindex2).Insert

So, jetzt möchte ich mal sehen, was ihr an DEM Code
verbessert… ;o)

…überzeugt von dir, resp. deinem Code bist Du ja, das muss man dir lassen… :wink:

Versuche es vielleicht mal so (ohne Zeilenumbruch):

Rows(intZeilenindex1).Copy Workbooks(strDateiname).Worksheets(intZähler).Rows(intZeilenindex2)

–
Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -