Excel VBA：基于变量选择单元格

Question

I am trying to cycle through a row in my excel sheet. The row moves based on the data that is read into the sheet and the columns are variable and change based on the data. All the buttons are generated by another macro and when pressed enter their contents into the row I want to read from.

My Problem is that when I try to reference the cells with my variable I always get an error, no matter what I try. The most common error is a 'Type mismatch'

Sub Save()
Dim RowNum As Integer
Dim LastColumn As Long
Dim ws As Worksheet
Dim MyRange As Range
Dim answer As Integer
Dim i As Integer

Set ws = ActiveWorkbook.Sheets("Main")

answer = MsgBox("Sind Sie sicher, dass Sie speichen möchten?", vbYesNo + vbQuestion, "Sind Sie sicher")
If answer = vbNo Then
    Exit Sub
End If

Application.ScreenUpdating = False

'Finds the location of the button ("Speichen Freigegebene Protokolle") is pressed in order to locate the desired row
RowNum = ws.Buttons(Application.Caller).TopLeftCell.row
'Finds how many columns there are with this data set
LastColumn = ws.Cells(11, ws.Columns.count).End(xlToLeft).Column

'cycles through columns of the row
For i = 7 To LastColumn
    Set MyRange = ws.Range(Cells(RowNum, i), Cells(RowNum + 1, i))

    If MyRange.Value = "Gut" Then  '##Type Mismatch error##
        'Save
    ElseIf MyRange.Value = "Einzelfreigeben" Then
        'Save
    ElseIf MyRange.Value = "Nacharbeit" Then
        'Dont Save
    ElseIf MyRange.Value = "Ausschuss" Then
        'Dont save
    ElseIf MyRange.Value = "" Then
        Err = MsgBox("Fehler! Sie haben eine Protokole zu pruefen vergessen.", vbOKOnly, "Fehler")
        Exit Sub
    End If

Next i
End Sub

Any help would be really appreciated!

Answer 1

The answer already provided by @Scott Craner and @Rory.

You can replace all your If and ElseIf s and use a Select Case , like the code below:

Select Case MyRange.Value
    Case "Gut"
        'Save
    Case "Einzelfreigeben"
        'Save
    Case "Nacharbeit"
        'Dont Save
    Case "Ausschuss"
        'Dont save
    Case ""
        Err = MsgBox("Fehler! Sie haben eine Protokole zu pruefen vergessen.", vbOKOnly, "Fehler")
        Exit Sub
End Select

Answer 2

The answer already provided by @Scott Craner and @Rory. It was as simple as just referencing only the top left cell of the merged cells instead of all cells in the merged cell.

    Set MyRange = ws.Range(ws.Cells(RowNum, i), ws.Cells(RowNum, i))

Added the ws. before the Cells() was also a good tip to keep the code from changing sheets and workbooks.

Thanks all!