Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
276to280
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speiern unter VBA

Speiern unter VBA
09.07.2003 08:13:49
franz
Hallo !
Für ein bestehendes Makro benötige ich
folgendes als Schluß in diesem Makro.
In meinem bestehenden Makro passiert folgendes:
1.)Das Makro lädt automatisch eine Excel-Datei mit 2
Sheets.
2.) Das Makro öffnen ein 2.Excel-Datei (1 Sheet) -
kopiert den gesamten Inhalt.
3.) Das Makro geht zurück auf das zuerst geöffnetet
Makro und kopiert den Inhalt in das 1. Arbeitsblatt.
Mein Wunsch im Makro:
1.) Am Schluss des Markros soll die zuletzt geöffnete
Exceldatei ohne Nachfrage geschlossen werden.
2.) Die zuerst geöffnete Exceldatei soll eine Aufforderung
zum Speichern bekommen, mit der Vorgabe des Names der zuletzt ge-
öffneten Exceldatei.
Ich werde jetzt viele Fragezeichen in manch Äuglein sehen..
Aber kann es nicht anders formulieren.
Gruss
franz

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

Betreff
Datum
Anwender
Anzeige
AW: Speiern unter VBA
09.07.2003 08:45:38
Nike
Hi,
dann poste mal dein bestehendes Makro...
Bye
Nike

AW: Speichern unter VBA
09.07.2003 09:24:36
Nike
Hi,
mal ein Ansatz?

Sub Statistik_einfügen()
Dim wkbBest As Workbook
Dim wkbNeu As Workbook
On Error Resume Next
'ChDir "R:\entladeprotokolle"
Set wkbBest = Workbooks.Open(Filename:= _
"R:\entladeprotokolle\Bestandsprotokoll_Standart.xls")
Dim dName$
dName = Application.GetOpenFilename
If dName <> "Falsch" Then
Set wkbNeu = Workbooks.Open(Filename:=dName)
Else
Exit Sub
End If
wkbNeu.Worksheets(1).Cells.Copy wkbBest.Worksheets(1)
wkbNeu.Close False
With wkbBest.Sheets("Trifelsauswertung")
.Activate
.Range("A1").Select
End With
End Sub

Trifel sollte nicht an erster Stelle stehen
Was is eigentlich Trifel? ;-)
Bye
Nike

Anzeige
AW: Speichern unter VBA
09.07.2003 10:22:45
Hallo Nike!
Danke für Hilfe!
Trifel ist eine Werkzeugbestandteil.
Nun habe so hingebastelt, dass es läuft, aber wie
kann ich es unterbinden, -in vba- dass ohne Nachfrage
eine Exceldatei geschlossen wird u n d keine Nachfrage
über die Zwischenablage (zuvor kopiert) kommt.
Makro bleibt bei der Frage, ob die Zwischenablage erhalten werden
soll. Diese Zwischenablage soll nicht erhalten bleiben.
Gruss
franz

AW: Speichern unter VBA
09.07.2003 10:36:31
Nike
Hi,
also bei meinem Ansatz dürfte da nix in der Zwischenablage rumfliegen ;-)
Ansonsten das hier
Application.DisplayAlerts = False
danach dann wieder auf true
oder
Application.CutCopyMode = False
versuchen...
Wenn du noch weiter mit deinem Code programmierst
kommst du ggf. mit deinen Selects usw. später noch zu Problemen,
daher mein Vorschlag,
den ich dir im Vergleich zu deinem Code nur ans Herz legen kann ;-)
Bye
Nike

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige