list = {{1, 2, 3, 4, 5}, {2, 2, 2, 2, 2}};
ListPointPlot3D[list]

list = {{1, 2, 3, 4, 5}, {2, 2,    2, 2, 2}};
list2 = Thread[{1, Range @ Length @ #, #}] & /@ list;
ListPointPlot3D[list2, BaseStyle -> PointSize[Large]]

ListPointPlot3D /@ List /@ list // Show

cyclicListIterator[input_List] :=
 GeneralUtilities`NewIterator[cyclicListIterator,
  {i = 0, n = Length[input], list = input}, list[[Mod[++i, n, 1]]]]

colors = "DefaultPlotStyle" /. (Method /.
       Charting`ResolvePlotTheme[Automatic, ListPointPlot3D]) //
    cyclicListIterator;
ListPointPlot3D[{#}, PlotStyle -> Read[colors]] & /@ list // Show