Thema Datum  Von Nutzer Rating
Antwort
19.02.2016 12:57:26 Tobias K.
NotSolved
19.02.2016 13:13:24 Amicro2000
NotSolved
19.02.2016 13:26:22 Tobias K.
NotSolved
19.02.2016 19:29:33 Gast80772
*****
Solved
Rot Update
 19.02.2016 19:35:59 Gast83615
*****
Solved
22.02.2016 10:56:18 Tobias K.
NotSolved
22.02.2016 11:15:25 Gast83615
*****
Solved
22.02.2016 11:28:05 Tobias K.
NotSolved

Ansicht des Beitrags:
Von:
Gast83615		 Datum:
19.02.2016 19:35:59		 Views:
815		 Rating:
     
Antwort:
 Nein
Thema:
Update

Wenn Schaltflächen o.ä.

Option Explicit

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

On Error GoTo fail

   Sheets("Tabelle1").Copy
   With ActiveSheet
      .Cells.ClearOutline
      .Cells.Copy
      .Cells(1).PasteSpecial xlPasteValues
      .Cells(1).Select
      Dim oShp As Object
      For Each oShp In .Shapes
         oShp.Delete
      Next oShp
      .SaveAs _
      Filename:=Environ("UserProfile") & "\Desktop\" & "Daten" & Format(Now, "dd_mm_yyyy"), _
      FileFormat:=51
   End With
   Workbooks(2).Close False
   
fail:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

Ihre Antwort
  • 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: Name: Email:



  • 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
19.02.2016 12:57:26 Tobias K.
NotSolved
19.02.2016 13:13:24 Amicro2000
NotSolved
19.02.2016 13:26:22 Tobias K.
NotSolved
19.02.2016 19:29:33 Gast80772
*****
Solved
Rot Update
 19.02.2016 19:35:59 Gast83615
*****
Solved
22.02.2016 10:56:18 Tobias K.
NotSolved
22.02.2016 11:15:25 Gast83615
*****
Solved
22.02.2016 11:28:05 Tobias K.
NotSolved