Werte aus anderem Tabellenblatt in MsgBox
20.11.2016 12:37:41
Patrick
Habe eine kleine Frage.
Und zwar. Wenn ich in einer Zelle (B1, D1, F1, H1, ...) doppelklicke, soll eine MsgBox mit Werte aus einem anderen Tabellenblatt kommen.
Mit dem Code funktioniert das eigentlich recht toll.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address(0, 0)
Case "B1"
MsgBox Worksheets("Drucken").Range("A2") & vbCrLf & Worksheets("Drucken").Range("B2") & _
_
" " & Worksheets("Drucken").Range("C2")
Case "D1"
MsgBox Worksheets("Drucken").Range("A4") & vbCrLf & Worksheets("Drucken").Range("B4") & _
_
" " & Worksheets("Drucken").Range("C4")
End Select
Cancel = True
End Sub
Da ich aber insgesamt 35 Zellen habe, wird das schreiben recht langwierig. Gibt es da eine einfachere Variante?
Danke Patrick
Anzeige