bin immer noch an meinem Problem mit der Ausgabe der aktiven Zelle in einer Userform. Dank Peter funktioniert es wie gewollt in einer Messagebox.
Kann mir jemand erklären wie ich den funktionierenden Code einzusetzen habe, dass dieser in der Userform statt der Messagebox funktioniert?
Original Code für Messagebox:
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
End If
Exit For
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
https://www.herber.de/bbs/user/118153.zip
Gruss Silvan