online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon speedy71 vom 23.01.2022, 13:22 Options

Problem mit einen VBA Code

Hallo zusammen,

habe folgendes Makro aufgezeichnet und nun müßte man da noch was ändern und ich weiß leider nicht wie, hoffe mal das mir hier jemand dabei helfen kann.

Sub testkopieren()
'
Range("C4:H20").Select
Application.CutCopyMode = False
Selection.Copy
Windows("test-Neu.xls").Activate
Sheets("Team Süd 2 test").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C4").Select
Windows("Planung Team test-2010.xls").Activate
Range("C4").Select
End Sub

so nun zu meinen Problem:

es sollen von der Mappe " Planung Team test-2010.xls " Daten in die Mappe " test-Neu.xls " und da in die Tabelle " Team Süd 2 test " eingefügt werden, es ist immer der gleiche bereich ( C4 - H20 ), das Makro funktioniert auch so weit, nur ändern sich eben der Name von der Mappe mit den Namen " test-Neu.xls " wie muß ich da den Code ändern das ich nicht immer einen festen bezug zur einer Mappe habe das Makro wird in der Mappe gestartet von wo die Daten Kopiert werden " Planung Team test-2010.xls "


grüße
Achim


Antwort schreiben

Antwort 1 von Hajo_Zi vom 23.01.2022, 13:28 Options

Hallo Achim,

wo steht der Mappennamen?
Das vorhanden optimiert.
Option Explicit

Sub testkopieren()
Range("C4:H20").Copy
With Windows("test-Neu.xls").Sheets("Team Süd 2 test")
Range("A3").PasteSpecial Paste:=xlPasteValues ' bitte korrekte Zelle angeben
End With
End Sub

Gruß Hajo

Antwort 2 von Saarbauer vom 23.01.2022, 13:29 Options

Hallo

ginge z.B. so

Zitat:
Mappe = "test-Neu.xls"


Range("C4:H20").Select
Application.CutCopyMode = False
Selection.Copy
Windows(Mappe).Activate
Sheets("Team Süd 2 test").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks


oder über eine Inputbox mit der du den jeweiligen Namen festlegst

Gruß

Helmut

Antwort 3 von speedy71 vom 23.01.2022, 13:43 Options

Hallo Hajo,


danke erst mal, der Mappenname " test-Neu.xls " steht nirgend wo, man könnte ihn aber aus einer zelle auslesen lassen.

gruß
Achim

Antwort 4 von Hajo_Zi vom 23.01.2022, 15:42 Options

Hallo Achim,

dann schreibe für den Mappenname Range("A2")

Gruß Hjao

Ähnliche Themen

Brauche hilfe bei VBA Code
BenjaminM  30.07.2008 - 24 Hits - 20 Antworten

Frage zu einem VBA-Code
Donjuandan  25.11.2008 - 43 Hits - 6 Antworten

Ergänzung zu VBA Code
DOMMEl  04.10.2009 - 322 Hits - 22 Antworten

VBA Code / Makro
DOMMEl  08.10.2009 - 185 Hits - 3 Antworten

VBA Code Ergänzung
DOMMEl  16.10.2009 - 372 Hits - 36 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026