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!
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:
