Excel-Fehler in VBA "Laufzeitfehler '424': Objekt erforderlich

Question

Ich bin neu in VBA und Codierung im Allgemeinen. Ich versuche derzeit, Datum aus einem Multitab in eine Arbeitsmappe zu übertragen und den Laufzeitfehler 424 erhalten :.. Objekt erforderlich Bitte helfen

Dim sheetname As String 

Private Sub CommandButton2_Click() 
Dim LastRow As Long 
Dim sheetname As String 
Select Case MultiPage1.Value 
    Case 0`sheetname = "Hannah" 
    Sheets(sheetname).Select 
    LastRow = Range("A" & Rows.Count).End(xlUp).Row 
    Range("A1").Select`enter code here` 
    Selection.End(xlDown).Offset(1, 0).Select 
    ActiveCell.Value = Date 
    ActiveCell.Offset(0, 1).Value = Me.RequestorHR.Value 
    ActiveCell.Offset(0, 2).Value = Me.CaseHR.Value 
    ActiveCell.Offset(0, 3).Value = Me.TypeHR.Value 
    ActiveCell.Offset(0, 4).Value = Me.UrgencyHR.Value 
    ActiveCell.Offset(0, 5).Value = Me.ReasonsHR.Value 
    ActiveCell.Offset(0, 6).Value = Me.DeadlineHR.Value 
    Clear_Click 
    Case 1 
    sheetname = "John" 
    Sheets(sheetname).Select 
    LastRow = Range("A" & Rows.Count).End(xlUp).Row 
    Range("A1").Select 
    Selection.End(xlDown).Offset(1, 0).Select 
    ActiveCell.Value = Date 
    ActiveCell.Offset(0, 1).Value = Me.RequestorJM.Value 
    ActiveCell.Offset(0, 2).Value = Me.CaseJM.Value 
    ActiveCell.Offset(0, 3).Value = Me.TypeJM.Value 
    ActiveCell.Offset(0, 4).Value = Me.UrgencyJM.Value 
    ActiveCell.Offset(0, 5).Value = Me.ReasonsJM.Value 
    ActiveCell.Offset(0, 6).Value = Me.DeadlineJM.Value 
    Clear_Click 

Answer 1

ich einige Vorschläge unten, so dass Sie sich wiederholenden Code haben weniger gemacht habe ich ein Array, so dass Sie nicht jedes Mal halten müssen Abtippen Werte all Textbox (Vorausgesetzt) ​​ich hoffe, dass. Ich musste raten, also, wenn es zwickt werden muss, lassen Sie mich knospen wissen! Es könnte ein Fehler laufen, weil ich nicht sicher war, von der aktiven Zelle, die Sie auch beziehen. Wenn Sie mich wissen lassen, kann ich es beheben.

Private Sub CommandButton2_Click() 
    Dim LastRow As Long 
    Dim sheetname As String 
    Dim strList() As Variant 
    Dim i As Integer 

    strList = Array(, Me.RequestorHR.Value, Me.CaseHR.Value, Me.TypeHR.Value, _ 
        Me.UrgencyHR.Value, Me.ReasonsHR.Value, Me.DeadlineHR.Value) 

    Select Case MultiPage1.Value 

    Case 0 

    sheetname = "Hannah" 

    Sheets(sheetname).Select 

    LastRow = Sheets(sheetname).Range("A" & Rows.Count).End(xlUp).Row 

    Sheets(sheetname).Range("A1").End(xlDown).Offset(1, 0).Value = Date 

    For i = 1 To 6 
     With Sheets(sheetname) 
      .ActiveCell.Offset(0, i).Value = strList(i) 
     End With 
    Next i 

    Clear_Click 

    Case 1 

    sheetname = "John" 

    Sheets(sheetname).Select 

    LastRow = Sheets(sheetname).Range("A" & Rows.Count).End(xlUp).Row 

    Sheets(sheetname).Range("A1").End(xlDown).Offset(1, 0).Value = Date 

    For i = 1 To 6 
     With Sheets(sheetname) 
      .ActiveCell.Offset(0, i).Value = strList(i) 
     End With 
    Next i 

    Clear_Click 

In Userform Code:

' StartUpPosition > Manual 
Private Sub UserForm_Initialize() 
With Me 
    .Top = Int(((Application.Height/2) + Application.Top) - (.Height/2)) 
    .Left = Int(((Application.Width/2) + Application.Left) - (.Width/2)) 
End With 
End sub 

-Code in Arbeitsblatt oder Modul:

Sub Open_Userform 
    UserForm1.Show False 
End sub 

Haben Sie einen großen Tag!