Wie Schaltfläche kreieren ???

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
die Entwicklerleiste ist mit dem Haken versehen.
Dennoch kann ich nichts einfügen in der Entwicklertools.
Das Einfügen ist leider nicht anwählbar (Transparent).
Schaltflächen welche ich mit dem Formular gemacht habe, funktionieren nicht
Schaltflächen über die Steuerelemente gehen.
Bei mir sind alle Makros aktiviert.
Hier ein Makro welches FUNKTIONIERT:

Sub Druckbereich_JJ()
Dim rng As Range
Dim sFind As String
   With ActiveSheet
      Do
      sFind = InputBox("Bitte die gewünschte KW eingeben (1 bis 32)!", "erstellt Schichtplan mit 7 Wochen ab KW..")
         If sFind = "" Then Exit Sub
         If IsNumeric(sFind) And sFind > 0 And sFind < 33 Then
         Set rng = .Range("A4:A150").Find(what:=sFind, LookIn:=xlValues, lookat:=xlWhole)
            If Not rng Is Nothing Then
            .PageSetup.PrintArea = .Range(.Cells(rng.Row - 1, 1), .Cells(rng.Row + 27, 11)).Address ' 27   11 ändern
            .PrintPreview
            .PageSetup.PrintArea = ""
            Exit Sub
            End If
         Else
            If MsgBox("Ungültige Wochennummer!" & vbLf & vbLf & _
            "Wiederholen ?", vbRetryCancel + vbExclamation, "Hinweis") = vbCancel Then
            Exit Sub
            End If
         End If
      Loop
   End With
End Sub

Hier ein Makro welches NICHT FUNKTIONIERT:

' Druckbereich mittels Inputbox beim Abwesenheitskalender Jan-Juli
Sub Druckbereich_KW()
Dim rng As Range
Dim sFind As String
On Error GoTo ERRORH
Application.ScreenUpdating = False
    ActiveWindow.Zoom = 80
   With ActiveSheet
      Do
      sFind = InputBox("Bitte die gewünschte Kalenderwoche eingeben              (01,2,3,4.... bis max.27) !", "erstellt Arbeitsplan mit 5 1/2 Wochen ab KW..")
         If sFind = "" Then Exit Sub
         If IsNumeric(sFind) And sFind > 0 And sFind < 31 Then ' Anzahl Wochen (31)
         Set rng = .Range("B2:HP2").Find(what:=sFind, LookIn:=xlValues, lookat:=xlWhole) 'Bereich von Auswahl
            If Not rng Is Nothing Then
            .PageSetup.PrintArea = .Range(.Cells(rng.Row - 1, rng.Column - 2), .Cells(rng.Row + 78, rng.Column + 36)).Address
            .PrintPreview
            .PageSetup.PrintArea = ""
            Application.ScreenUpdating = True
            Exit Sub
            End If
         Else
            If MsgBox("Ungültige Wochennummer!" & vbLf & vbLf & _
            "Wiederholen ?", vbRetryCancel + vbExclamation, "Hinweis") = vbCancel Then
            Application.ScreenUpdating = True
            Exit Sub
            End If
         End If
      Loop
   End With
ERRORH:
Application.ScreenUpdating = True
End Sub

Wo ist den hier der Unterschied ?
Diese 2 Makros brauche ich in unserer Mitarbeiterplanung und brauche hier in nützlicher Frist eben eine Lösung:
Grus Reto

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wie Schaltfläche kreieren ???

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread