Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1516to1520
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

VBA

VBA
28.09.2016 17:31:18
willi
Hallo Experten,
eine Frage, wie kann mann in dem Makro erreichen, das mann eine neue Pfad eingeben kann zu speicher z.B D:\www\yyy\zzz\kopie.xlsx.
Gibt es noch eine Möglichkeit, dass die Kopie bei jeden speichern einen höher zählt z. B. 9. Kopie, 10.Kopie usw.
Private Sub CommandButton2_Click()
Dim ws As Worksheet, wb As Workbook
Worksheets(1).Copy
Set ws = ActiveSheet
ws.OLEObjects(1).Delete
Set wb = ws.Parent
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 1
 .InitialFileName = "Kopie.xlsx"
If .Show Then
Application.DisplayAlerts = False
wb.SaveAs Filename:=.SelectedItems(1), FileFormat:=xlOpenXMLWorkbook
wb.Close SaveChanges:=False
Application.DisplayAlerts = True
End If
End With
Set ws = Nothing
Set wb = Nothing
End Sub
danke im voraus,
Gruß Willi

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA
28.09.2016 17:59:35
willi
Hallo Hajo,
danke für die schnelle Antwort aber leider weis ich nicht was du meinst.
Gruß willi
AW: VBA
28.09.2016 18:00:18
Hajo_Zi
schaue einen Beitrag weiter nach unten.
Gruß Hajo
AW: VBA
28.09.2016 17:59:46
willi
Hallo Hajo,
danke für die schnelle Antwort aber leider weis ich nicht was du meinst.
Gruß willi
AW: VBA
28.09.2016 18:01:28
Hajo_Zi
oder führe den Link in meinem Beitrag aus.
Gruß Hajo
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige