Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.11.2010 22:35:59 |
Michael |
|
|
|
10.11.2010 05:45:17 |
Severus |
|
|
|
10.11.2010 12:40:57 |
Michael |
|
|
|
10.11.2010 16:05:43 |
Severus |
|
|
|
10.11.2010 17:47:53 |
Michael |
|
|
|
10.11.2010 18:26:28 |
Severus |
|
|
Aw:Aw:CommandButton`s beim Speichern entfernen |
10.11.2010 19:35:29 |
Michael |
|
|
Von:
Michael |
Datum:
10.11.2010 19:35:29 |
Views:
949 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:CommandButton`s beim Speichern entfernen |
Severus schrieb am 10.11.2010 18:26:28:
Michael schrieb am 10.11.2010 17:47:53:
Severus schrieb am 10.11.2010 16:05:43:
Michael schrieb am 10.11.2010 12:40:57:
Severus schrieb am 10.11.2010 05:45:17:
Michael schrieb am 09.11.2010 22:35:59:
Hallo und guten Abend...
ich habe ein kleines Problem mit meinem VBA Code.
Ich möchte das erste Tabellenblatt in meiner Excel Tabelle Speichern aber die Button's nicht dabei haben, damit das ganze Druckbar wird.
Nun habe ich schon einen Code geschrieben aber komischerweise entfernt er mir auch ein Bild welches in dem Tabellenblatt enthalten ist. Ich möchte aber nur die CommandButton's draussen haben. Kann mir vllt. jemand sagen was genau ich falsch mache?!
Hier mal der Code:
Private Sub CommandButton3_Click()
Application.DisplayAlerts = False
Sheets("Prüfprotokoll").Copy
For Each CommandButton In ActiveSheet.Shapes
CommandButton.Delete
Next
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
Vielen Dank schon mal im voraus^^
Grüße Michael
Hi Michael,
wozu der ganze Aufwand? Wenn's nur darum geht, daß der(die) ComandButton(s) nicht gedruckt werden, dann setz doch einfach unter "Eigenschaften" die PrintObject - Eigenschaft auf "False".
Severus
Hallo,
leider ist es eben nicht so einfach. Das erste Tabellenblatt sollte immer separat gespeichert werden. Das eig. Tabellenblatt dient nur der Vorlage bzw. zum Ausfüllen und muss dann unter einem gewissen Namen archiviert werden.
Es ist wie eine kleine Datenbank!
Vielleicht gibt es da ja doch noch ne Möglichkeit?!
Grüße Michael
Ist das ein Command_Button aus dem Formular-Dialog oder aus der Steuerelement-Toolbox?
Severus
Das sind ActivX Steuerelemente und es sind mehrere :)
Grüße Michael
CodeSchnipsel:
Sub CB_loeschen()
Dim SHP As Shape
With ThisWorkbook.ActiveSheet
For Each SHP In .Shapes
If InStr(1, UCase(SHP.Name), "COMMANDBUTTON", vbBinaryCompare) <> 0 Then
SHP.Select
Selection.Delete
End If
Next
End With
End Sub
Severus
SUPER GENIAL :)
Hat einwandfrei funktioniert. Hab allerdings das "with" draussen gelassen. Also sieht nun so aus:
Private Sub CommandButton3_Click()
Dim SHP As Shape
Application.DisplayAlerts = False
Sheets("Prüfprotokoll").Copy
For Each SHP In ActiveSheet.Shapes
If InStr(1, UCase(SHP.Name), "COMMANDBUTTON", vbBinaryCompare)_ <> 0 Then
SHP.Select
Selection.Delete
End If
Next
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
funktioniert aber trotzdem wie gewollt!!!
Vielen Dank super Hilfe :)
Grüße Michael |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.11.2010 22:35:59 |
Michael |
|
|
|
10.11.2010 05:45:17 |
Severus |
|
|
|
10.11.2010 12:40:57 |
Michael |
|
|
|
10.11.2010 16:05:43 |
Severus |
|
|
|
10.11.2010 17:47:53 |
Michael |
|
|
|
10.11.2010 18:26:28 |
Severus |
|
|
Aw:Aw:CommandButton`s beim Speichern entfernen |
10.11.2010 19:35:29 |
Michael |
|
|