28.08.2018, 06:39
Hallo Zusammen,
in meiner Arbeitsmappe habe ich einen CommandButton, der mir eine neue Arbeitsmappe erstellt. In der neuen Mappe werden je nachdem wie viele Maschinen die erste Arbeitsmappe hat, so viele Arbeitsblätter werden in der neuen Mappe erstellt. D.h. 4 Maschinen sind 4 Arbeitsblätter. 2 Maschinen sind 2 Arbeitsblätter.
In jedem Arbeitsblatt wird ein Vorgangsprozess dargestellt. Jedes Arbeitsblatt hat 5 Buttons die per Macro erstellt werden und einen Code bekommen.
Mein Problem ist es jetzt, dass wenn ich auf den Button klicke nur im ersten Arbeitsblatt alle 5 Buttons angezeigt werden. In den darauffolgenden Blättern wird immer nur ein Button ohne Code erstellt.
Wenn ich das Macro mit F8 gedrückt durchlaufen lasse funktioniert alles einwandfrei. Kein Fehler und alle Buttons mit Code sichtbar.
Ich hoffe jmnd. kann mir helfen dieses Problem zu lösen.
Anbei noch mein Macro zum erstellen der Buttons.
Ich habe es auch schon mit "Application.Wait()" probiert bevor das Macro aktiviert wird. Hat aber leider auch nichts gebracht.
in meiner Arbeitsmappe habe ich einen CommandButton, der mir eine neue Arbeitsmappe erstellt. In der neuen Mappe werden je nachdem wie viele Maschinen die erste Arbeitsmappe hat, so viele Arbeitsblätter werden in der neuen Mappe erstellt. D.h. 4 Maschinen sind 4 Arbeitsblätter. 2 Maschinen sind 2 Arbeitsblätter.
In jedem Arbeitsblatt wird ein Vorgangsprozess dargestellt. Jedes Arbeitsblatt hat 5 Buttons die per Macro erstellt werden und einen Code bekommen.
Mein Problem ist es jetzt, dass wenn ich auf den Button klicke nur im ersten Arbeitsblatt alle 5 Buttons angezeigt werden. In den darauffolgenden Blättern wird immer nur ein Button ohne Code erstellt.
Wenn ich das Macro mit F8 gedrückt durchlaufen lasse funktioniert alles einwandfrei. Kein Fehler und alle Buttons mit Code sichtbar.
Ich hoffe jmnd. kann mir helfen dieses Problem zu lösen.
Anbei noch mein Macro zum erstellen der Buttons.
Code:
Sub Add_CommandButton()
Dim btn As Object
Dim a, b, FTop As Integer
Dim Code As String
a = 1
b = 1
FTop = 10
Do
Set btn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False _
, Left:=10, Top:=FTop, Width:=110, Height:=25)
ActiveSheet.OLEObjects(a).Object.Catption = "Report_" & b
btn.Name = "Project_Report_" & b
Code = "Private Sub Project_Report_" & b & "_Click()" & vbCrLf
Code = Code & " [UserForm" & b &"].Show" & vbCrLf
Code = Code & "End Sub"
a = a + 1
b = b + 1
FTop = FTop + 50
Loop Until a = 6
End SubIch habe es auch schon mit "Application.Wait()" probiert bevor das Macro aktiviert wird. Hat aber leider auch nichts gebracht.