Dag allemaal,
Inj het kader van mijn projectje is er nog een dingetje niet helemaal goed:
in mijn programma worden verschillende acties doorlopen. Elke actie is een status.
Die schrijf ik weg in dat programma onder Range("Historie1"). Daarnaast een Range("Historie2") met daarin het moment waarop de status is gewijzigd (=NOW()).
De bedoeling is dat de gebruiker, door te drukken op een knop, de statussen met hun tijden onder elkaar ziet in een Messagebox ..
Dat heb ik ook gedaan:
Sub MsgboxStatusoverzicht()
Application.ScreenUpdating = False
MsgBox " Statusoverzicht" & vbCrLf _
& Range("V2").Value & " " & Range("W2").Value & vbCrLf _
& Range("V3").Value & " " & Range("W3").Value & vbCrLf _
& Range("V4").Value & " " & Range("W4").Value & vbCrLf _
& Range("V5").Value & " " & Range("W5").Value & vbCrLf _
Application.ScreenUpdating = True
End Sub
Het werkt allemaal wel, maar het probleem is dat de gegevens in de rechterkolom (die met de tijden) niet recht onder elkaar staan. Dat komt natuurlijk omdat de omschrijving van de status in de linkerkolom nu eenmaal niet even lang is.
Nu heb ik wel gebrobeerd elke status omschrijving even lang te maken (met spaties), maar dan NOG staat de tweede kolom niet mooi en strak onder elkaar.
Vraag: kan wat ik wil eigenlijk wel in een Msgbox? Of is iets anders geschikter? En zo ja, wat dan?
Alvast bedankt voor (any) reactie
Groet
Inj het kader van mijn projectje is er nog een dingetje niet helemaal goed:
in mijn programma worden verschillende acties doorlopen. Elke actie is een status.
Die schrijf ik weg in dat programma onder Range("Historie1"). Daarnaast een Range("Historie2") met daarin het moment waarop de status is gewijzigd (=NOW()).
De bedoeling is dat de gebruiker, door te drukken op een knop, de statussen met hun tijden onder elkaar ziet in een Messagebox ..
Dat heb ik ook gedaan:
Sub MsgboxStatusoverzicht()
Application.ScreenUpdating = False
MsgBox " Statusoverzicht" & vbCrLf _
& Range("V2").Value & " " & Range("W2").Value & vbCrLf _
& Range("V3").Value & " " & Range("W3").Value & vbCrLf _
& Range("V4").Value & " " & Range("W4").Value & vbCrLf _
& Range("V5").Value & " " & Range("W5").Value & vbCrLf _
Application.ScreenUpdating = True
End Sub
Het werkt allemaal wel, maar het probleem is dat de gegevens in de rechterkolom (die met de tijden) niet recht onder elkaar staan. Dat komt natuurlijk omdat de omschrijving van de status in de linkerkolom nu eenmaal niet even lang is.
Nu heb ik wel gebrobeerd elke status omschrijving even lang te maken (met spaties), maar dan NOG staat de tweede kolom niet mooi en strak onder elkaar.
Vraag: kan wat ik wil eigenlijk wel in een Msgbox? Of is iets anders geschikter? En zo ja, wat dan?
Alvast bedankt voor (any) reactie
Groet