Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

speichern unter

Forumthread: 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
;

Beliebteste Forumthreads (12 Monate)

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