Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1944to1948
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

frage zu VBA

frage zu VBA
12.09.2023 15: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
Anzeige
AW: frage zu VBA
12.09.2023 15: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 15: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 15: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 ?
Anzeige
frage zu VBA
12.09.2023 15: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 16: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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige