Office: (Office 2016) 2x Inputbox durch Userform ersetzen?

Weshalb hast du die besagte Zeile entfernt? Im Else-Zweig steht doch der Code für die MsgBox, wenn das Datum nicht gefunden wurde...

Überlege mal logisch, wann das UserForm geschlossen werden soll: doch dann, wenn alle Daten übertragen wurden, die Mappe "Schichteinteilung.xlsm" geschlossen, der Blattschutz wieder gestzt und die Arbeitsmappe gespeichert wurde - oder etwa nicht? Damit sollte klar sein, wo Unload Me hin gehört. :D

Bis später,
Karin

 

Guten Morgen,
ja nach dem Hinweis leuchtet es ein..... tztztz. Danke!

Ich hatte ein "Else" entfernt nach dem Hinweis von dir, das dein Code anders aussah.
Welchen Teil würdest du denn anders machen? Im Moment finde ich keine Fehler mehr und es scheint ganz gut zu funktionieren....
LG
Marcel

HTML:

Private Sub CommandButton1_Click()
    Dim WKS As Worksheet
    Dim WKSZiel As Worksheet
    Dim rngFind As Range
    Dim wkbMappe As Workbook
    Dim blnOffen As Boolean
    With Application
      .DisplayAlerts = False
      .ScreenUpdating = False
      .Calculation = xlCalculationManual
    End With
    Set WKSZiel = ActiveSheet
    WKSZiel.Unprotect ("MHS")
    If Me.ComboBox1.ListIndex <> -1 Then
        For Each wkbMappe In Workbooks
            If wkbMappe.Name = "Schichteinteilung.xlsm" Then
                blnOffen = True
                Exit For
            End If
        Next wkbMappe
        If blnOffen = False Then
            Workbooks.Open Filename:="\\HECSOFILER01\Global-Data\MCO-Produktion\Schichteinteilung\Schichteinteilung.xlsm", Password:="2019", ReadOnly:=True
            Set wkbMappe = ActiveWorkbook
        End If
        On Error Resume Next
        Err.Clear
        Set WKS = wkbMappe.Worksheets(Me.ComboBox1.List(Me.ComboBox1.ListIndex))
        If Err.Number > 0 Then
            Beep
            MsgBox "Team nicht gefunden! Auswahl richtig?"
        Else
            If Me.ComboBox2.ListIndex <> -1 Then
                With WKS
                    Set rngFind = .Cells.Find(DateValue(Me.ComboBox2.List(Me.ComboBox2.ListIndex)), LookIn:=xlValues, LookAt:=xlWhole)
                    If Not rngFind Is Nothing Then
                   
                        'Team
                        WKSZiel.Cells(2, 14).Value = .Range("A2").Value
                        'Datum
                        WKSZiel.Cells(2, 8).Value = rngFind.Offset(0, 0).Value
                        'Schicht
                        WKSZiel.Cells(2, 17).Value = rngFind.Offset(0, 1).Value
                        'Schichtleiter A+B
                        WKSZiel.Cells(35, 13).Value = rngFind.Offset(0, 2).Value
                        'Schichtleiter C+D+E
                        WKSZiel.Cells(35, 15).Value = rngFind.Offset(0, 3).Value
                        'Stellvertretender Schichtleiter
                        WKSZiel.Cells(10, 4).Value = rngFind.Offset(0, 4).Value
                        'Spinnen+Lösen
                        WKSZiel.Cells(18, 3).Value = rngFind.Offset(0, 5).Value
                        'Vormontage
                        WKSZiel.Cells(18, 5).Value = rngFind.Offset(0, 6).Value
                        'SK1
                        WKSZiel.Cells(25, 4).Value = rngFind.Offset(0, 7).Value
                        'Gießen
                        WKSZiel.Cells(10, 9).Value = rngFind.Offset(0, 8).Value
                        'SK2
                        WKSZiel.Cells(18, 8).Value = rngFind.Offset(0, 9).Value
                        'SK3
                        WKSZiel.Cells(25, 9).Value = rngFind.Offset(0, 10).Value
                        'Endmontage
                        WKSZiel.Cells(18, 10).Value = rngFind.Offset(0, 11).Value
                        'Kartonieren
                        WKSZiel.Cells(10, 14).Value = rngFind.Offset(0, 12).Value
                        'Palettieren
                        WKSZiel.Cells(25, 14).Value = rngFind.Offset(0, 13).Value
                        'Sondertätigkeiten
                        WKSZiel.Cells(10, 17).Value = rngFind.Offset(0, 14).Value
                        'Sondertätigkeiten
                        WKSZiel.Cells(25, 17).Value = rngFind.Offset(0, 15).Value
                                                
                        Workbooks("Schichteinteilung.xlsm").Close savechanges:=False
                        WKSZiel.Protect ("MHS"), DrawingObjects:=True, Contents:=True, Scenarios:=True
                        
                        ThisWorkbook.Saved = False
                        Unload Me
                    Else
                    End If
                   
                    
                End With
            Else
            
                    Workbooks("Schichteinteilung.xlsm").Close savechanges:=False
                        MsgBox "Das Datum wurde nicht gefunden!"
                MsgBox "Bitte Datum wählen"
            End If
        End If
   Else
        MsgBox "Bitte ein Team auswählen"
    End If
    Set WKS = Nothing
    Set WKSZiel = Nothing
    Set rngFind = Nothing
    Set wkbMappe = Nothing
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With

End Sub

 

Hi Marcel,

wenn ich schreibe, dass mein Code anders aussieht, dann solltest du ihn dir auch genau anschauen (zumal ich noch im Detail beschrieben habe WAS und WO etwas fehlt) und nicht einfach eine Zeile nach Gutdünken löschen.

Bis später,
Karin

 

Hi Karin,

ohje das hab ich wohl nur so überflogen und dann das falsche gemacht.

Ich hab nun den unteren Teil berichtigt.
Der Code ist nun perfekt;-)
Nochmals vielen vielen Dank für die tolle Unterstützung.

LG
Marcel