Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
420to424
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
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

speichern unter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: speichern unter
Werner

Hallo Jens,
Jetzt ist alles klar!
Füge das Makro mit den Änderungen ein!
PS: Bitte Zipp das nächste mal die Datei!
Denn nicht jeder hat so eine schnelle Verbindung wie ich.
Gruss Werner
Private Sub CommandButton4_Click()
Dim datei As String
Dim check As String
Dim knopf As Integer
ActiveSheet.Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial xlPasteValues
Application.CutCopyMode = False
ActiveSheet.[A1].Select
Speichern:
datei = Application.GetSaveAsFilename( _
InitialFileName:="Auswertung" & Format(Now, "ddmmyy hhmm"), _
Filefilter:= _
"Microsoft Excel-Arbeitsmappe (*.xls), *.xls," & _
"beliebige Dateien (*.*), *.*", _
FilterIndex:=1, _
Title:="Diese Mappe wird gespeichert")
If datei = "Falsch" Then Exit Sub
check = Dir(datei)
If check <> "" Then
knopf = MsgBox( _
Title:="Die Datei '" & datei & "' besteht bereits.", _
prompt:="Möchten Sie bestehende Datei ersetzen?", _
Buttons:=vbYesNo + 256 + vbInformation)
If knopf = vbNo Then GoTo Speichern
End If
Application.DisplayAlerts = False
ActiveSheet.SaveAs Filename:=datei
Application.DisplayAlerts = True
End Sub
Anzeige
AW: speichern unter
jede029
Danke Danke Werner
es geht super
entschuldige das es sone große datei war
versteh ich selber nicht warum.
aber trotz alledem besten dank
Gruß jens
Danke für die Rückmeldung! Gruss Werner owT.
30.04.2004 20:08:30
Werner

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige