Zelle mit Formel Wert ablesen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Range("BI13") = Target.Address
'ActiveCell.Select
If Not Intersect(Target, Range("BJ20:BO35")) Is Nothing Then
Dim rngZeile As Range, rngSpalte As Range
Dim intZeile As Integer
Set rngZeile = Worksheets("Tabelle6").Range("BB2")
Set rngSpalte = Worksheets("Tabelle6").Range("BG17")
' Fehler abfangen
If Target.Cells.Count > 1 Then
MsgBox "Auswahl nicht eindeutig, mehrere Zellen selektiert"
Exit Sub
End If
If rngZeile = 16 And rngSpalte = 6 Then
MsgBox "Aus die Maus, kein Platz mehr"
Exit Sub
End If
' Zähler erhöhen
If rngZeile = 0 Then rngZeile = 54
If rngSpalte = 6 Then
rngZeile = rngZeile + 1
rngSpalte = 1
Else
rngSpalte = rngSpalte + 1
End If
' Daten übertragen
intZeile = Application.Match(Target, Columns(92), 0)
Range(Cells(rngZeile, rngSpalte + 53), Cells(rngZeile, rngSpalte + 53)) = _
Range(Cells(intZeile, 93), Cells(intZeile, 94)).Value
End If
End Sub

=WENN(ZÄHLENWENN($CB$37:$CB$43;M$21);"E";"x")