Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
528to532
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
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schaltfläche nicht mit speichern.

Schaltfläche nicht mit speichern.
11.12.2004 14:34:26
Michael
Hallo,
ich habe mir eine vorlage gebastelt. In dieser habe ich eine Schaltfläche mit makro, mit dem ich die datei unter einem bestimmten namen als .xls speichere. Nun zu meinem problem, ich möchte das die schaltfläche nicht mit in der .xls datei gespeichert wird. Wie kann ich das realisieren?
MfG
Michael

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schaltfläche nicht mit speichern.
11.12.2004 14:40:28
Josef
Hallo Michael!
Schreib in den Code zum speichern
ActiveSheet.Shapes("Schaltfläche 1").Delete
wobei du den namen der Schaltfläche ggf. anpassen musst!
Gruß Sepp
AW: Schaltfläche nicht mit speichern.
Michael
Hallo Sepp,
wo muss ich den code einfügen? Hab da wirklich fast keine ahnung.
Sub Speichern() Dim Dateiname$ Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Rechnung") Dateiname = ws.Range("B17") & ".xls" ChDir ThisWorkbook.Path On Error Resume Next Application.DisplayAlerts = False Application.DisplayAlerts = True On Error GoTo 0 ThisWorkbook.SaveAs Filename:=Dateiname Set ws = Nothing End Sub
Anzeige
AW: Schaltfläche nicht mit speichern.
11.12.2004 16:33:47
Josef
Hallo Michael!
In etwa so:

Sub Speichern()
Dim Dateiname$
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Rechnung")
Dateiname = ThisWorkbook.Path & "\" & ws.Range("B17") & ".xls"
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.SaveAs Filename:=Dateiname
ActiveSheet.Shapes("Schaltfläche 1").Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
On Error GoTo 0
Set ws = Nothing
End Sub
Gruß Sepp
Anzeige
Danke es geht!!!!
Michael
Danke Sepp für deine hilfe!!!!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige