Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
292to296
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
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schaltflächen entfernen

Schaltflächen entfernen
15.08.2003 11:48:54
Micha_S
Hallo zusammen,
ich schon wieder ;-)
gibt es eine Möglichkeit in meiner Datei (s.u) die Schaltflächen vor dem Speichervorgang zu löschen? (mit dem Recorder wird der Code ja ellenlang).
Vorab schon mal vielen Dank für Eure Hilfe.
Gruss aus Berlin
Micha

Sub Mit_Namen_Speichern()
DIM sFile As String, sPath As String
sPath = "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Excel\" 'daran lag es
sFile = Range("B1").Value & "_" & Range("B4").Value & ".xls" 'in B1 + B4 steht der zukünftige Dateiname
ActiveWorkbook.SaveAs sPath & sFile
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schaltflächen entfernen
17.08.2003 13:21:20
Heinz Ulm
Hallo Micha,
ich weiß nicht ob dir das hilft, mit:
Sub Zeichnungsobjekte_Löschen()
ActiveSheet.DrawingObjects.Delete
End Sub

lösche ich alle Zeichnungsobjekte aus meinem Tabellenblatt.
Damit ich das Makro immer aufrufen kann habe ich es beim Start der Mappe in die Menüleiste abgelegt. Das folgende Makro zeichnert eine "Buchhalternase" über einen bestimten Bereich. Es soll nur als Anhaltspunkt dienen und wird in DieseArbeitsmappe abgelegt.

Private Sub Workbook_Activate()
Dim cmdBar     As CommandBar
Dim cmdBarCtrl As CommandBarControl
Dim cmdBarBtn  As CommandBarButton
Set cmdBar = Application.CommandBars(1)
On Error Resume Next
cmdBar.Controls("Zoll").Delete 'falls Menüpunkt "Zoll" vorhanden erstmal löschen
On Error GoTo 0
Set cmdBarCtrl = cmdBar.Controls.Add( _
Type:=msoControlPopup, _
Temporary:=True)
cmdBarCtrl.Caption = "Zoll" 'Menüpunkt "Zoll" erstellen
Set cmdBarBtn = cmdBarCtrl.Controls.Add 'Untermenüpunkt "Buchhalternase" einrichten
With cmdBarBtn
.Style = msoButtonIconAndCaption
.FaceId = 2059
.Caption = "Buchhalternase"
.OnAction = "Buchhalternase"
End With
Set cmdBarBtn = cmdBarCtrl.Controls.Add
With cmdBarBtn
.Style = msoButtonIconAndCaption
.FaceId = 2060
.Caption = "Buchhalternase löschen"
.OnAction = "Buchhalternase_löschen" ' Untermenüpunkt "Buchhalternase löschen" einrichten
End With
End Sub

Das gehört auch noch in DieseArbeitsmappe

Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars(1).Controls("Zoll").Delete 'beim Beenden Menüpunkt "Zoll" löschen
End Sub

Gruß Heinz

Anzeige
AW: Schaltflächen entfernen
18.08.2003 08:08:19
Micha_s
Hallo Heinz,
vielen Dank für Deine Unterstützung.
Ich werde das Makro ausprobieren.
Gruss aus Berlin
Micha

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige