AW: Zwischenwerte durch Klicken in bestimmte Zelle
31.07.2019 16:24:05
Werner
Hallo,
Makrolösung möglich?
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ws As Worksheet, raFund As Range, strErgebnis As String
If Target.Column > 1 Then Exit Sub
If Target.Row "Gesamt" Then
With ws
Set raFund = .Columns(1).Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
If strErgebnis = vbNullString Then
strErgebnis = ws.Name & vbLf & "Umsatz: " & .Cells(raFund.Row, 2) _
& vbLf & "Gewinn: " & .Cells(raFund.Row, 3) & vbLf _
& "Provision: " & .Cells(raFund.Row, 4)
Else
strErgebnis = strErgebnis & vbLf & vbLf _
& ws.Name & vbLf & "Umsatz: " & .Cells(raFund.Row, 2) _
& vbLf & "Gewinn: " & .Cells(raFund.Row, 3) & vbLf _
& "Provision: " & .Cells(raFund.Row, 4)
End If
End If
End With
End If
Next ws
If strErgebnis = vbNullString Then
MsgBox Target & " hat weder Umsätze noch Gewinn oder Provision"
Else
MsgBox strErgebnis
End If
End Sub
Das Makro gehört ins Codemodul vom Tabellenblatt "Gesamt"
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren.
Der Code reagiert auf einen Doppelklick auf einen der Namen im Tabellenblatt "Gesamt"
Gruß Werner