• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opgelost is een dynamische lengte van een messagebox mogelijk met VBA?

Dit topic is als opgelost gemarkeerd
Status
Niet open voor verdere reacties.

antonl007

Gebruiker
Lid geworden
15 sep 2022
Berichten
86
Gents,

Zie hieronder de CB sub, als je op de knop drukt verschijnt er een klein overzichtje van wat in 4 kolommen aanwezig is in de range van a10:ends.

Dat ends is variabel, dwz, het kan bijv. 10 zijn of max. 50. Graag zou ik dan willen dat het popupje die lengte meeneemt en dus niet allemaal lege regels e.d.

vraag: kan je het einde (ends) van de tabel/matrix (startend bij a10) dynamisch maken? Ik heb het geprobeerd en kreeg direct een foutmelding.

Bijvoorbaat dank voor de moeite!

Code:
Private Sub CommandButton1_Click()
   
Dim myData
Dim myStr       As String
Dim x             As Integer
Dim myRange   As Range
Dim eindpunt   As Variant

Ends = "d" & Range("b2").Value + 16

Set myRange = Range("a10:ends")

myData = myRange.Value

For x = 1 To UBound(myData, 1)
    myStr = myStr & myData(x, 1) & vbTab & myData(x, 2) & vbTab & myData(x, 3) & vbTab & myData(x, 4) & vbCrLf
Next x

MsgBox myStr, vbMsgBoxleft, "Overzicht verschillende waarden"

End Sub
 
Laatst bewerkt door een moderator:
Plaats svp een excelbestand
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan