Opgelost MsgBox VBA Excel weergeven tijd uit cel

[PeterLJ]

Ik wil de tijd kopieren vanuit een cel en weergeven in MsgBox in Excel.
Ik ben pas met het toepassen van VBA in een module te schrijven en dus niet met behulp van het opnemen van een macro.
Alleen om VBA te doorgronden, de toepassing welke ik nu gebruik werkt, maar ik wil het in een MsgBox wergeven i.p.v. op de sheet. Het zal de schoonheidsprijs wel niet verdienen, ik ben dan ook voor elke verbetering vatbaar.

Vriendelijk groet,
Peter

 

[edmoor]

Druk op de knop in het werkblad Tijden:

 

[PeterLJ]

Druk op de knop in het werkblad Tijden:

Dat is snel... Top! Nu nog even uitzoeken hoe en en wat, maar het is precies wat ik wilde weten, dank je wel edmoor.

 

[snb]

Maar begin bij VBA vooral met alle samengevoegde cellen te verwijderen

En gebruik gewoon de bron van alle gegevens:

Private Sub CommandButton1_Click()
    MsgBox "Vandaag: " & Date & vbCrLf & vbCrLf & "Op " & Format(Blad1.Cells(2 * Day(Date), 1 + Month(Date)), "hh:mm") & vbCrLf & vbCrLf & "Onder " & Format(Blad1.Cells(2 * Day(Date) + 1, 1 + Month(Date)), "hh:mm"), vbOKOnly, "Tijden"
End Sub

 

[PeterLJ]

Maar begin bij VBA vooral met alle semengevoegde cellen te verwijderen

Ja, klopt, maar dit is maar een opzet "ter lering ende vermaek", de afwerking moet nog komen

 

[snb]

Maar een goed begin is het halve werk.

 

[PeterLJ]

Maar een goed begin is het halve werk.

Ik begrijp wat je bedoel. Dank.