Uitbreiding Code

[Robert100]

Beste forumleden,

ik heb onderstaande code gevonden;
ik zou graag in de MsgBox cel A3,A4,A5,A6 zichtbaar hebben?


rivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If ActiveCell.Cells.Address = "$A$1" Then
MsgBox Range("A3").Value
End If

End Sub

met vriendelijke gr.

 

[tkint]

Beste,

Zoiets misschien?

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.Cells.Address = "$A$1" Then
MsgBox (Range("A3").Value & "  " & Range("A4").Value & "  " & Range("A5").Value & "  " & Range("A6").Value)
End If
End Sub

 

[HSV]

Bv.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If target.address = "$A$1" Then
   MsgBox join(filter(application.transpose([if(a3:a6>0,a3:a6,"~")]), "~", false), vblf)
 End If
End Sub

 

[ExcelAmateur]

Zo misschien?
Hij zet ze onder elkaar.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.Cells.Address = "$A$1" Then
  MsgBox [A3].Value & vbCr & [A4].Value & vbCr & [A5].Value & vbCr & [A6].Value
End If
End Sub

 

[Robert100]

Bedankt Harry,

Dat is precies wat ik wil

Gr Robert.