スキルアップ・問題解決なら、モーグにおまかせ！

お疲れさまです。
 
フィルターがかかったデータシートから、表示されるているD列の担当者名を配列変数に記録したいと考えております。配列変数に記録していると考えておりましたが、記録された内容が表示されませんでした。
どこが間違いなのかをご指摘頂けないでしょうか
 
 
 ●MsgBox namae(1) & " " & namae(2) & " " & namae(3) & " " & namae(4) & " " & namae(5) & " " & namae(6)
こちらは、担当者が表示されます。
● MsgBox namae(ZZ)
こちらだと、何も表示されませんでした。
 
 
  Dim lr As Long
  Dim ZZ As Integer
  Dim namae(100) As Integer
 
  lr = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
  'D列の値を取得
  ZZ = 1
  For i = 2 To lr
    If ws.Cells(i, "A").EntireRow.Hidden = False Then
      namae(ZZ) = ws.Cells(i, "D").Value
       
      ZZ = ZZ + 1
     End If
  Next i
  MsgBox namae(1) & " " & namae(2) & " " & namae(3) & " " & namae(4) & " " & namae(5) & " " & namae(6)
  For i = 1 To ZZ
  MsgBox namae(ZZ)
  Next i

(前回もそうでしたが。。。)
https://www.moug.net/faq/viewtopic.php?t=82064
Access VBAに関するフォーラムです。
Excel VBA の質問でしょうか、それとも、Access VBA の質問でしょうか。

まぁ、色々おかしいのは置いておいて、、、

Sub Test_001()
    Dim i As Long'追加
    Dim ws As Worksheet'追加
    Dim lr As Long
    Dim ZZ As Integer
    Dim namae(100) As String'修正：Integer → Long
    
    Set ws = Sheets("Data")'追加
    
    lr = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    'D列の値を取得
    ZZ = 1
    For i = 2 To lr
        If ws.Cells(i, "A").EntireRow.Hidden = False Then
            namae(ZZ) = ws.Cells(i, "D").Value
            
            ZZ = ZZ + 1
        End If
    Next i
    MsgBox namae(1) & " " & namae(2) & " " & namae(3) & " " & namae(4) & " " & namae(5) & " " & namae(6)
    
    For i = 1 To ZZ
        MsgBox namae(i)'修正：ZZ → i
    Next i
End Sub

色々とご指摘をありがとうございます。
 
記載場所を間違ってしまいました。Excel vba でした。
すみませんでした。