Erneutes Starten über Button nicht mgl.

Hallo ihr lieben,
ich habe mal eine Frage, bei der sich die Profis sicherlich wieder an den Kopf greifen, aber ich habe dazu nirgends etwas gefunden. Ich habe ein einfaches Makro, was Blätter mit fortlaufenden Nummern druckt. Das Makro wird durch klicken eines Buttons ausgeführt. Ist das Makro durchgelaufen und ich ändere die Zahlen, kann ich es nicht erneut ausführen, nur indem ich in die Entwicklungsumgebung gehe und über "Play" starte. Könnt ihr mir bitte sagen, woran das liegt?
Vielen lieben Dank.


Private Sub Drucken_Click()
Dim zahl1 As Integer
Dim zahl2 As Integer
Dim monat As String
Dim i As Integer
zahl1 = Cells(2, 4).Value
zahl2 = Cells(2, 5).Value
monat = Cells(1, 4).Value
Select Case monat
Case "Januar"
Cells(3, 2).Value = "'01"
Cells(7, 2).Value = "'01"
Case "Februar"
Cells(3, 2).Value = "'02"
Cells(7, 2).Value = "'02"
Case "März"
Cells(3, 2).Value = "'03"
Cells(7, 2).Value = "'03"
Case "April"
Cells(3, 2).Value = "'04"
Cells(7, 2).Value = "'04"
Case "Mai"
Cells(3, 2).Value = "'05"
Cells(7, 2).Value = "'05"
Case "Juni"
Cells(3, 2).Value = "'06"
Cells(7, 2).Value = "'06"
Case "Juli"
Cells(3, 2).Value = "'07"
Cells(7, 2).Value = "'07"
Case "August"
Cells(3, 2).Value = "'08"
Cells(7, 2).Value = "'08"
Case "September"
Cells(3, 2).Value = "'09"
Cells(7, 2).Value = "'09"
Case "Oktober"
Cells(3, 2).Value = "'10"
Cells(7, 2).Value = "'10"
Case "November"
Cells(3, 2).Value = "'11"
Cells(7, 2).Value = "'11"
Case "Dezember"
Cells(3, 2).Value = "'12"
Cells(7, 2).Value = "'12"
End Select
For i = zahl1 To zahl2
If i  9 And i  99 And i

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Drucken_Click() Dim zahl1 As Integer Dim zahl2 As Integer Dim monat As String Dim i As Integer zahl1 = Cells(2, 4).Value zahl2 = Cells(2, 5).Value monat = Cells(1, 4).Value Cells(3, 2).Value = "'" & Format(CDate("1." & monat), "MM") Cells(7, 2).Value = "'" & Format(CDate("1." & monat), "MM") For i = zahl1 To zahl2 Cells(4, 2) = "'" & Format(i, "0000") ActiveSheet.PrintOut Next i End Sub

HI
der Button funktioniert bei mir auch bei wiederholtem Klick.
um den Button zu deaktivieren müsste eines der folgenden Dinge passieren:
a) du aktivierst den Entwurfsmodul (ist ein Button in den Entwicklertools)
b) die Events werden ausgeschaltet mit dem Befehl Application.EnableEvents = False
c) der Button wird mit Drucken.Enabled = False deaktiviert (aber das siehst du an der Formatierung des Buttons)
Enthält deine Originaldatei noch mehr Code als das was du hochgeladen hast? Wenn ja, müsstest du diesen mal auf b) oder c) durchsuchen, vielleicht gibts ja noch ein Change-Event im Blatt.
wenn du da nichts findest, hilft vielleicht folgender Workaround:
- Schreibe das Makro als ein normales Makro (Public Sub Drucken()) in ein allgemeines Modul (Modul 1)
- Erstelle einen Button aus der Gruppe der Formularfeldsteuerelemente (gleiches Menü, obere Zeile) und weise diesem Button dann das Makro zu.
Formulafeldsteuerelemente sind etwas weniger kapriziös als ihre ActiveX-Kollegen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Erneutes Starten über Button nicht mgl.

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread