AW: Ist nich schlimm aber ich würde gern...
14.11.2018 17:36:15
Werner
Hallo Philipp,
so:
Private Sub CommandButton1_Click()
Dim loVertikal As Long, loHorizontal As Long
Dim raVertikal As Range, raHorizontal As Range
With Worksheets("Start")
loVertikal = .Range("E28")
loHorizontal = .Range("E27")
With Worksheets("Matrix-Auswahl")
Set raVertikal = .Columns(2).Find(what:=loVertikal, LookIn:=xlValues, lookat:=xlWhole)
Set raHorizontal = .Rows(5).Find(what:=loHorizontal, LookIn:=xlValues, lookat:=xlWhole)
End With
If Not raVertikal Is Nothing And Not raHorizontal Is Nothing Then
.Range("H26") = Worksheets("Matrix-Auswahl").Cells(raVertikal.Row, raHorizontal.Column)
End If
End With
Set raVertikal = Nothing: Set raHorizontal = Nothing
End Sub
Gruß Werner