Vielen Dank!
Norbert
Sub test()
Dim abc(4711, 7)
abc(500, 1) = "hallo"
'xxx
MsgBox abc(500, 1)
End Sub
Sub test()
Dim abc(4711, 7)
abc(500, 1) = "hallo"
'xxx
MsgBox abc(500, 1)
End Sub
Sub test()
Dim abc(4711, 7)
abc(500, 1) = "hallo"
ReDim abc(4711, 7)
MsgBox abc(500, 1)
End Sub
Dieses Makro führt leider zu einem Fehler :(
Sub test()
Dim abc() As String
ReDim abc(4711, 7)
abc(500, 1) = "hallo"
MsgBox abc(500, 1)
ReDim abc(4711, 7)
MsgBox abc(500, 1)
End Sub