frage zu VBA

Forumthread: frage zu VBA
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: frage zu VBA

frage zu VBA

12.09.2023 17:20:17

Simone

Hallo zusammen,

ich habe heute noch eine Frage :-)
ich mach über MakroRecorder diesen Code erstellt

Workbooks.Open Filename:= _
"S:\LS\ Rückv.xlsm"
Columns("A:J").Select
Selection.Copy
Windows("Eintag.xlsm").Activate
Sheets("Tabelle1").Select
Columns("A:A").Select
ActiveSheet.Paste
Range("F16").Select
Windows("Rückv").Close
erstellt. Beim laufen lassen des Makros kommt immer die Meldung:

Wollen sie die Datei speichern. Kann man das umgehen ? ich muss immer auf NEin klicken das dann das Makro weitermacht.

Danke an alle

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: frage zu VBA

12.09.2023 17:24:21

Oberschlumpf
frage zu VBA

12.09.2023 17:34:52

Rudi Maintaire
frage zu VBA

12.09.2023 17:51:11

Simone
frage zu VBA

12.09.2023 17:57:49

volti
frage zu VBA

12.09.2023 18:05:37

Rudi Maintaire

AW: frage zu VBA

12.09.2023 17:24:21

Oberschlumpf

Hi Simone,

diese Zeile
Windows("Rückv").Close

schließt die Datei wieder - lass die Zeile mal weg - hilfts?

Ciao
Thorsten

frage zu VBA

12.09.2023 17:34:52

Rudi Maintaire

Hallo,

Workbooks.Open Filename:="S:\LS\ Rückv.xlsm"

Columns("A:J").Copy Workbooks("Eintag.xlsm").Sheets("Tabelle1").Range("A1")

Workbooks("Rückv.xlsm").Close savechanges:=False

Gruß
Rudi

frage zu VBA

12.09.2023 17:51:11

Simone

Hallo Danke an alle :-)
jetzt kommt die Frage, " es befinden sich noch eine große Menge an Informationen ..... klicke ich auf Nein geht es weiter und die Datei wird geschlossen.

Kann man diese Meldung auch noch löschen ?

frage zu VBA

12.09.2023 17:57:49

volti

Halle Simone,

sieht so aus, als wären noch Daten in der Zwischenablage.

Hier eine Idee dazu:
Application.CutCopyMode = False

Gruß
Karl-Heinz

frage zu VBA

12.09.2023 18:05:37

Rudi Maintaire

Hallo,

Workbooks.Open Filename:="S:\LS\ Rückv.xlsm"

Columns("A:J").Copy Workbooks("Eintag.xlsm").Sheets("Tabelle1").Range("A1")

Application.CutCopyMode = False

Workbooks("Rückv.xlsm").Close savechanges:=False

Gruß
Rudi

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!