Thema Datum  Von Nutzer Rating
Antwort
17.07.2010 19:06:08 00schneider
NotSolved
Blau Makro nach einbau von Buttons extrem langasam
 17.07.2010 19:37:57 00schneider
NotSolved

Ansicht des Beitrags:
Von:
00schneider		 Datum:
17.07.2010 19:37:57		 Views:
743		 Rating:
     
Antwort:
  Ja
Thema:
Makro nach einbau von Buttons extrem langasam
Für die Druckbuttons hab ich folgenden Code verwendet :

Private Sub A1_Click()
Worksheets("BONS").Range("A5") = Name1
Worksheets("BONS").Range("A1:A6").PrintOut Copies:=1
Worksheets("BONS").Range("A5") = ""
With Worksheets("BONS").Range("D5")
.Value = .Value + 1
End With
End Sub

Der Code für die Bearbeitungsbutton, die das ganze langsam machen siehtfolgerndermaßen aus :

Private Sub AnzahlRESET_Click()

'Löscht die Anzahl der gedruckten Bons
If SicherungRESET = True Then
Range("D5:K5") = ""
Range("D11:K11") = ""
Range("D17:K17") = ""
Range("D23:K23") = ""
Range("D29:K29") = ""
Range("D35:K35") = ""
Range("D41:K41") = ""
End If
End Sub

Private Sub Bezeichnungübernehmen_Click()

'Ändert die Buttonbezeichnung
If SicherungButton = True Then
Worksheets("Buttons").A1.Caption = Zeile1
Worksheets("Buttons").B1.Caption = Zeile1
Worksheets("Buttons").C1.Caption = Zeile1
Worksheets("Buttons").D1.Caption = Zeile1
Worksheets("Buttons").E1.Caption = Zeile1
Worksheets("Buttons").F1.Caption = Zeile1
Worksheets("Buttons").G1.Caption = Zeile1
Worksheets("Buttons").H1.Caption = Zeile1

Worksheets("Buttons").A2.Caption = Zeile2
Worksheets("Buttons").B2.Caption = Zeile2
Worksheets("Buttons").C2.Caption = Zeile2
Worksheets("Buttons").D2.Caption = Zeile2
Worksheets("Buttons").E2.Caption = Zeile2
Worksheets("Buttons").F2.Caption = Zeile2
Worksheets("Buttons").G2.Caption = Zeile2
Worksheets("Buttons").H2.Caption = Zeile2

Worksheets("Buttons").A3.Caption = Zeile3
Worksheets("Buttons").B3.Caption = Zeile3
Worksheets("Buttons").C3.Caption = Zeile3
Worksheets("Buttons").D3.Caption = Zeile3
Worksheets("Buttons").E3.Caption = Zeile3
Worksheets("Buttons").F3.Caption = Zeile3
Worksheets("Buttons").G3.Caption = Zeile3
Worksheets("Buttons").H3.Caption = Zeile3

Worksheets("Buttons").A4.Caption = Zeile4
Worksheets("Buttons").B4.Caption = Zeile4
Worksheets("Buttons").C4.Caption = Zeile4
Worksheets("Buttons").D4.Caption = Zeile4
Worksheets("Buttons").E4.Caption = Zeile4
Worksheets("Buttons").F4.Caption = Zeile4
Worksheets("Buttons").G4.Caption = Zeile4
Worksheets("Buttons").H4.Caption = Zeile4

Worksheets("Buttons").A5.Caption = Zeile5
Worksheets("Buttons").B5.Caption = Zeile5
Worksheets("Buttons").C5.Caption = Zeile5
Worksheets("Buttons").D5.Caption = Zeile5
Worksheets("Buttons").E5.Caption = Zeile5
Worksheets("Buttons").F5.Caption = Zeile5
Worksheets("Buttons").G5.Caption = Zeile5
Worksheets("Buttons").H5.Caption = Zeile5

Worksheets("Buttons").A6.Caption = Zeile6
Worksheets("Buttons").B6.Caption = Zeile6
Worksheets("Buttons").C6.Caption = Zeile6
Worksheets("Buttons").D6.Caption = Zeile6
Worksheets("Buttons").E6.Caption = Zeile6
Worksheets("Buttons").F6.Caption = Zeile6
Worksheets("Buttons").G6.Caption = Zeile6
Worksheets("Buttons").H6.Caption = Zeile6

Worksheets("Buttons").A7.Caption = Zeile7
Worksheets("Buttons").B7.Caption = Zeile7
Worksheets("Buttons").C7.Caption = Zeile7
Worksheets("Buttons").D7.Caption = Zeile7
Worksheets("Buttons").E7.Caption = Zeile7
Worksheets("Buttons").F7.Caption = Zeile7
Worksheets("Buttons").G7.Caption = Zeile7
Worksheets("Buttons").H7.Caption = Zeile7
End If
End Sub


Private Sub DruckbereichRESET_Click()

'Löscht den zu druckenden Bereich
If SicherungDruckbereich = True Then
Range("A1:A60") = ""
End If
End Sub

Private Sub RESET_Namen_Click()

'Löscht die Namen der Bedienungen
If Sicherung_Namen = True Then
Worksheets("Buttons").Name1 = ""
Worksheets("Buttons").Name2 = ""
Worksheets("Buttons").Name3 = ""
Worksheets("Buttons").Name4 = ""
Worksheets("Buttons").Name5 = ""
Worksheets("Buttons").Name6 = ""
Worksheets("Buttons").Name7 = ""
Worksheets("Buttons").Name8 = ""
End If
End Sub

Private Sub RESETButtontext_Click()

'Löscht den Buttontext der Druckbuttons und die zugehörigen Eingabefelder
If SicherungButtontext = True Then

Zeile1 = ""
Zeile2 = ""
Zeile3 = ""
Zeile4 = ""
Zeile5 = ""
Zeile6 = ""
Zeile7 = ""

Worksheets("Buttons").A1.Caption = ""
Worksheets("Buttons").B1.Caption = ""
Worksheets("Buttons").C1.Caption = ""
Worksheets("Buttons").D1.Caption = ""
Worksheets("Buttons").E1.Caption = ""
Worksheets("Buttons").F1.Caption = ""
Worksheets("Buttons").G1.Caption = ""
Worksheets("Buttons").H1.Caption = ""

Worksheets("Buttons").A2.Caption = ""
Worksheets("Buttons").B2.Caption = ""
Worksheets("Buttons").C2.Caption = ""
Worksheets("Buttons").D2.Caption = ""
Worksheets("Buttons").E2.Caption = ""
Worksheets("Buttons").F2.Caption = ""
Worksheets("Buttons").G2.Caption = ""
Worksheets("Buttons").H2.Caption = ""

Worksheets("Buttons").A3.Caption = ""
Worksheets("Buttons").B3.Caption = ""
Worksheets("Buttons").C3.Caption = ""
Worksheets("Buttons").D3.Caption = ""
Worksheets("Buttons").E3.Caption = ""
Worksheets("Buttons").F3.Caption = ""
Worksheets("Buttons").G3.Caption = ""
Worksheets("Buttons").H3.Caption = ""

Worksheets("Buttons").A4.Caption = ""
Worksheets("Buttons").B4.Caption = ""
Worksheets("Buttons").C4.Caption = ""
Worksheets("Buttons").D4.Caption = ""
Worksheets("Buttons").E4.Caption = ""
Worksheets("Buttons").F4.Caption = ""
Worksheets("Buttons").G4.Caption = ""
Worksheets("Buttons").H4.Caption = ""

Worksheets("Buttons").A5.Caption = ""
Worksheets("Buttons").B5.Caption = ""
Worksheets("Buttons").C5.Caption = ""
Worksheets("Buttons").D5.Caption = ""
Worksheets("Buttons").E5.Caption = ""
Worksheets("Buttons").F5.Caption = ""
Worksheets("Buttons").G5.Caption = ""
Worksheets("Buttons").H5.Caption = ""

Worksheets("Buttons").A6.Caption = ""
Worksheets("Buttons").B6.Caption = ""
Worksheets("Buttons").C6.Caption = ""
Worksheets("Buttons").D6.Caption = ""
Worksheets("Buttons").E6.Caption = ""
Worksheets("Buttons").F6.Caption = ""
Worksheets("Buttons").G6.Caption = ""
Worksheets("Buttons").H6.Caption = ""

Worksheets("Buttons").A7.Caption = ""
Worksheets("Buttons").B7.Caption = ""
Worksheets("Buttons").C7.Caption = ""
Worksheets("Buttons").D7.Caption = ""
Worksheets("Buttons").E7.Caption = ""
Worksheets("Buttons").F7.Caption = ""
Worksheets("Buttons").G7.Caption = ""
Worksheets("Buttons").H7.Caption = ""
End If
End Sub

Die Zeilen habe ich folgendermaßen ausgeblendet (alles 7mal) :

Private Sub Zeile4ausblenden_Click()

If Zeile4ausblenden = True Then

Worksheets("Buttons").A4.Visible = False
Worksheets("Buttons").B4.Visible = False
Worksheets("Buttons").C4.Visible = False
Worksheets("Buttons").D4.Visible = False
Worksheets("Buttons").E4.Visible = False
Worksheets("Buttons").F4.Visible = False
Worksheets("Buttons").G4.Visible = False
Worksheets("Buttons").H4.Visible = False

Else

Worksheets("Buttons").A4.Visible = True
Worksheets("Buttons").B4.Visible = True
Worksheets("Buttons").C4.Visible = True
Worksheets("Buttons").D4.Visible = True
Worksheets("Buttons").E4.Visible = True
Worksheets("Buttons").F4.Visible = True
Worksheets("Buttons").G4.Visible = True
Worksheets("Buttons").H4.Visible = True
End If
End Sub

Die Zeilen habe ich folgendermaßen ausgeblendet (alles 8mal) :

Private Sub Spalte8ausblenden_Click()

If Spalte8ausblenden = True Then

Worksheets("Buttons").Name8.Visible = False
Worksheets("Buttons").H1.Visible = False
Worksheets("Buttons").H2.Visible = False
Worksheets("Buttons").H3.Visible = False
Worksheets("Buttons").H4.Visible = False
Worksheets("Buttons").H5.Visible = False
Worksheets("Buttons").H6.Visible = False
Worksheets("Buttons").H7.Visible = False

Else

Worksheets("Buttons").Name8.Visible = True
Worksheets("Buttons").H1.Visible = True
Worksheets("Buttons").H2.Visible = True
Worksheets("Buttons").H3.Visible = True
Worksheets("Buttons").H4.Visible = True
Worksheets("Buttons").H5.Visible = True
Worksheets("Buttons").H6.Visible = True
Worksheets("Buttons").H7.Visible = True
End If
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
17.07.2010 19:06:08 00schneider
NotSolved
Blau Makro nach einbau von Buttons extrem langasam
 17.07.2010 19:37:57 00schneider
NotSolved