Worksheets.Select

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() ' Statt Worksheets("Testblatt").Select Range("A1:D10").Copy Worksheets("TabelleXYZ").Select Range("A11").Select ActiveSheet.Paste 'so Worksheets("Testblatt").Range("A1:D10").Copy Sheets("TabelleXYZ").Range("A11") 'oder - wenn nur Formate und Werte kopiert werden sollen Worksheets("Testblatt").Range("A1:D10").Copy Sheets("TabelleXYZ").Range("A11").PasteSpecial Paste:=xlFormats Sheets("TabelleXYZ").Range("A11").PasteSpecial Paste:=xlValue Application.CutCopyMode = False End Sub

Hallo
erst einmal vielen Dank für die schnellen Antworten.
.activate kannte ich noch nicht, habe ich nun getestet, leider ohne Erfolg.
Der VBA Code steht in einem allgemeinen Modul.
Kurz noch einmal der Fehlerfall.
Per VBA wechsle ich auf ein anderes Tabellenblatt. (nun sogar doppelt)
Worksheets("Test").Activate
Worksheets("Test").Select
Worksheets("Test").Range("A1").Select
Der (mehrzeilige) Text der Zelle A1 wird nun in der Formelzeile angezeigt.
Dort kann ich diesen Text auch in die Zwischenablage übernehmen. (Alles markieren + STRG C)
Was jedoch in diesem Fall nicht geht, ist die Taste F2. (und so arbeiten die meisten Benutzer leider)
Drücke ich F2 wechselt der Inhalt von Zelle A1 auf den Inhalt des Vorgängerblattes.
Wenn ich die das Tabellenblatt vorher noch einmal manuell über die Reiter wechsle dann funktioniert es.
Vielleicht hat ja jemand noch einen Tipp
Gruß Climbi

Hallo Climbi,
bevor wir hier weiter rätseln, warum dein Makro nicht korrekt funktioniert, beschreibe doch einmal was du überhaupt vorhast.
In Makros ist es -außer durch Senden von Tastaturbefehlen- nicht möglich in den Einagebmodus einer Zelle zu wechseln.
Üblicherweise kopiert man in Excel "einfach" die selektierte Zelle/den Zellbereich.
Beim Einfügen innerhalb von Excel stehen dann verschiedenste Optionen von Alles, über nur Werte, Formeln, Formate etc zur Verfügung.
Welchselst du nach dem Kopieren in eine andere Anwendung, dann hängt das Einfüge-Ergebnis von den Fähigkeiten dieser Anwendung ab.
Im einfachsten Fall wird nur der Textinhalt der Zelle eingefügt, im Extremfall wird bei Auswahl entsprechender Optionen ein Excel-Tabellenobjekt ggf. mit Link zur Ursprungstabelle eingefügt.
Wenn du -aus welchen Gründen auch immer- nur den Text-Inhalt/Wert einer Zelle in die Zwischenablage übernehmen willst, dann muss etwas anders vorgegangen werden.

'Im Vba-Editor muss für die Datei mit dem Makro unter Extras--Verweise der Verweis
'auf die
'Microsoft Forms 2.0 Object Library
'aktiviert sein!!
Sub PutCellData_in_Clipboard()
Dim myData As Dataobject
Dim strText As String
Set myData = New Dataobject
myData.SetText Worksheets("Test").Range("A1").Text 'oder .Value
myData.PutInClipboard
Set myData = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

15 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Worksheets.Select

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

15 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread