AW: activeCell.offset(0,2).Value
24.11.2017 09:12:48
Peter
Hallo Silvan,
Probier mal:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strMeldung As String, i As Integer
On Error Resume Next
If Target.Column = 35 Then
If Target.Row >= 56 Then
If Rows.Rows(ActiveCell.Row - 1).EntireRow.Hidden = True Then
For i = ActiveCell.Row To 56 Step -1
If Cells(i - 1, 37).EntireRow.Hidden = False Then
If Cells(i - 1, 37).Value 0 Then
strMeldung = Cells(i - 1, 37).Value
Exit For
End If
End If
Next i
End If
If ActiveCell.Offset(-1, 2) "" And ActiveCell.Offset(-1, 2) 0 Then
strMeldung = ActiveCell.Offset(-1, 2).Value
End If
If strMeldung "" Then
MsgBox "Du hast den " & strMeldung & " richtig und sauber fertiggestellt.", _
vbInformation, "Meldung"
End If
End If
End If
End Sub
Gruß
Peter (hpo)