24.05.2016, 12:17
Hallo zusammen,
ich habe jetzt mal eine blöde Frage zu einem interessanten Thema bei dem ich nicht mal weiss ob so etwas möglich ist, daher werfe ich die Idee einfach mal in den Raum, evtl. hat jemand ja eine Idee ob es so umsetzbar ist. Dabei bin ich für jede Idee dankbar.
Ich habe eine Exceltabelle mit mehreren Sheets, ein Sheet "Auswahl", und eine beliebige Anzahl von Sheets die von 1 bis x durchnummeriert sind, dabei wird sich die Anzahl der Sheets von 1 bis x immer mehr erweitern.
[img=541x87]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAvYAAAB6CAIAAABbboD9AAALI0lEQVR4nO3dO28bVxoG4PNPVv4tkd3tz2CxTTYXLCjQSCoChlxJjQEHLgyCrlIYbgwWMVTIimHDBrZIJ2ARCDDUC4TabCFF4nXEGZ0LOXwevE2iy3k5pA4/DYdy+GsT/PHHH6UrbCTHrRnHrRnHrRnHrRnHrYEQ/nuVl9shlD7gK/FQbsZxa8Zxa8Zxa8Zxa8Zxa8CIs448lJtx3Jpx3Jpx3Jpx3Jpx3BrYuhHn5gaLiIjINqT07JGJEUdERGS7Unr2yMSIIyIisl0pPXtkEkoXAACIL5QuAAAQXyhdAAAgvlC6AABAfKF0AQCA+ELpAgAA8YXSBQAA4gulCwAAxBdKFwAAiC+ULgAAEF8oXQAAIL5QugAAQHyhdAEAgPhC6QIAAPGF0gUAAOILpQsAAMQXShcAAIgvlC4AABBfKF0AACC+ULoAAEB8oXQBAID4QukCAADxhdIFAADiC6ULAADEF0oXAACIL5QuAAAQXyhdAAAgvlC6AABAfKF0AQCA+ELpAgAA8YXSBQAA4gulCwAAxBdKFwAAiC+ULgAAEF8oXQAAIL5QugAAQHyhdAEAgPhC6QIAAPGF0gUAAOILpQsAAMQXShcAAIgvlC4AABBfKF0AACC+ULoAAEB8oXQBAID4QukCAADxhdIFAADiC6ULAADEF0oXAACIL5QuAAAQXyhdAAAgvlC6AABAfKF0AQCA+ELpAgAA8YXSBQAA4gulCwAAxBdKFwAAiC+ULgAAEF8oXQAAIL5QugAAQHyhdAEAgPhC6QIAAPGF0gUAAOILpQsAAMQXShcAAIgvlC4AABBfKF0AACC+ULoAAEB8oXQBAID4QukCAADxhdIFAADiC78S1V/plb6JALABwiXx/JprxCl9QwFg3RlxYjLiAMCaMOLEZMQBgDVxrxFn059rTwed3c7gdMlHj/q7u/2jWt+wTSOOVaxiFR10aGWH4gWyKTHiHPV3dytGi3xKjzi//+fHRw9+fPTP387SjDing87urfq3Jf0iDR5CR/3666y6ytX3nlDrUVrvtkyuVefWrLTK3A2pe2tq3JamN6TWKpOPsjyPsQUHa6JE3e0rWoc7PpShQ5ZdpbpDiT2n+oki1Y5U3eEe+1WREWc8Hn/58mU4HB4cHOzt7e3t7R0cHAyHwy9fvozH40SL5h9xTged3U6narbIptSI87/f/vXgx0c3STTinA46E/WP+imeSi8vTwf9myN4OujU3XvrPoSO+rudTifliFN3w6y/SqMD1WCV2RXrLFjniN1833SPsYl7fOo/Yq5yOf2UsfBp9Xrd+vdflA5V9XJ1yLOr3NUh056zygFPuyNVd7jHfpV/xDk7Ozs8POx2u8+ePRuNRsfHx8fHx6PR6NmzZ91u9/Dw8OzsLMW62Uec00Fnt39Ud8dNo90jzoIbW+f2NFql9u+X9Va5evDUv2PWa8S534N/ne6X2cdUmkFq9l5JNa7dHqYFK8yUSPfTdEeHJR/K1mFGkeOw+BOLdEi9I1V32JwR5927d48fPx4Oh1+/fp3/6NevX4fD4ePHj9+9exd96dwjztVD4vJq+K3cROa2stkT4gs2nZnPnvyda+pLp79kyfnntCPO8Pf0L1RNq3l7Gj+VJvoN+/axs+Ejzv0WaXS/JDtiM9+47rPNSqvM7+01n+LrH7H5Be7anHJ0aLp2kg5/S76rrDTiJNtzqjuk35GqO2zIiPPmzZter3dyclL9aScnJ71e782bN3FXzzziTNwnc3dP5S4yc656cDT7BVdzys1jYOJrj/q333X6tOb1bLPkRPvmX4szJd3vvjcaXCNQ78Wdq2++2SPOfU9gNrxfEl0zMfkjU/tVi9VHnPmdIu94cfdpnfQdVvpQtg4Nq0TvkHTPqe6QY0eq7rAJI86nT5+63e6d882Vk5OTbrf76dOniAXyjjhTd8ns/VM14iw8HzozAnX6/c7kiZvFD/zJVeZex51aplUjTpYrGBJuu5N3aNoRZ+H5voirXLVvfo1u7Xu//l1fb5Xbk6C17/8a54qm943cI86CJ1IjTtpdpbpDjj2nukOeHam6wz32qzwjzsXFRb/fHw6H8x/qdrvdbnf+/w+Hw/39/YuLi1gdso44C05rL//P+QfR3J14+wm3V/hcfcrsy2DTr1VNnhpafj66RSNOk2e5hq9CJvlJm76jcmwoTd73t/o5ibkziQlP9Td7Plx5letdtt/vJx3XJjbz2lfyGXESdLjMtavccWOT7TnVHfLvSHfd6TX3qzwjzsePH/f29s7Pz+c/tGzEOT8/39vb+/jxY6wOGUec6TFjdty4++Xum6+//X+TV/b0jxa/NjrzS9/kZrUdI07Dt+80+xlIcTXG7FaaZ8RJdGXJ/Het+UzR4N5P9nQ489BKPq5dy3/9hxeqFn0oy65y941N83Na1aHEjhT5OOQZcYbD4YsXLxZ+aNmIc3l5+csvvyw88dNMvhFn0U4+95bTFa7om5pWr7/mesL5++zN7dmc+VW3bMRpuBNdrtGbkxePxhl+ZUnzbpH5jSjlk2XTV+vX9ULgBou43Dh6h5y7yhpeD1RkR1rtOKz8w55nxHn69Onbt28XfqhixHn79u2TJ09idcg24iw+/pP7/ezev/TnaGYO6QwG/clvMnlNzuL5e2tGnAbX4k3elgZfVfegrdX7gxask2DrvOd7oGvdlsbXI67xiJP4DxNcXi67YenfHl/dofHikTvk3VVWO3uRds9Z5UUiZ3EW+Pnnn9+/f3/zn91KN5/2/v37Xq8Xq0OuEWfZhLn0HRnT1yxM/rGn6XvyqL/b6XSWvklq+ptev6JfesSZ+bs4f2f/t6gjTv03uMzelhU+a/KOafLL3VqNOHPvvUvzGv/Uz0LtYxbhhy7aKoteqEoyFE6/cbLIO2hmT/+WeqNy9YeSd8iyq1R3yL/nrOmIc5/9as1HnJ9++ilWh0wjzvIfjPn9/trUVYVTpwbnr2SYPYm47FLjzuB0HV6oyjHiLDyZGv/pZ2aZ2nvfWo04iy9Kj73K7ErJLths+ExYb5XpY5bmtky9caT+02u9I1bxMzN1zXOBDnfUy9Ah065S2SHjnrPqAU854qz8eEj/u2V9jV+oevr0aawOW/3PcEZX84WqhvIcdqtYxSo66NDKDut8ufGLFy828nLjbWDEsYpVtnMVHXTYoA7eNL6S4vfTujHiWMUq27mKDjpsUIc8BS4uLvb39+v+6b8nT55s6p/+az0jjlWssp2r6KDDBnXIVuDqH3D48OHDKp/84cOHDf8HHNrOiGMVq2znKjrosEEdchZ4/fr16v8M5+vXr+OubsSJyYhjFats5yo66LBBHXIWGI/Ho9Go1+u9evVq4XU55+fnr1696vV6o9FoPB7HXd2IE5MRxypW2c5VdNBhgzrkL3B2dnZ4eNjtdp8/fz4ajY6Pj4+Pj0ej0fPnz7vd7uHh4Z9//pliXSNOTIv+2k2SZLgtbXr6sYpVytJBh7XqUKTAeDz+/PnzYDA4ODi4utz44ODg5cuXnz9/jn7y5sa9RhxmtGnEAYCNZsQBAFrIiAMAtJARBwBooTB7nccPjx788HDn+4c73z/c+W5357vdnX/v7nz7zc633/yjMjvrnH/HzW6ZfNeufH+Th+uWBw3yw/rkUYTkuqpMRCRd5kYcERERkc2PEUdERERaGCOOiIiItDBGHBEREWlhjDgiIiLSwhhxREREpIUx4oiIiEgLY8QRERGRFsaIIyIiIi2MEUdERERaGCOOiIiItDBGHBEREWlhjDgiIiLSwhhxREREpIUx4oiIiEgL83/kMXYwYtjgJwAAAABJRU5ErkJggg==[/img]
In diesem Bild geht es bis zum Sheet 15, Tag für Tag wird aber noch ein Sheet dazu kommen.
1. Thema: Um ein neues Sheet zu erzeugen würde ich gerne ein Makro einsetzen das mir das komplette Sheet kopiert und am Ende hinzufügt mit dem Namen +1, sprich wenn ich im Sheet 15 das Makro betätige soll das Sheet 15 kopiert werden und nach dem Sheet 15 eingefügt werden und als 16 umbenannt werden.
2.Thema: Jetzt zur kniffligen Zufallsfunktion, ich überlege wie ich eine Funktion einfügen kann, die mir aus den vorhandenen Sheets 1 - x per Zufall immer eine andere aufruft, also z.B. nach betätigen des Makros wird das Sheet 7 angezeigt, nach nochmaligen betätigen dann z.B. das Sheet 13 usw.
Geht so etwas? Bin bei dem Thema VBA noch ein Anfänger und immer wieder verwundert über die Möglichkeiten, aber zu diesen Themen habe ich auch mit der Suchfunktion nichts finden können.
Vielleicht hat ja der ein oder andere von euch eine Idee.
Danke und schöne Grüße
Joerg
ich habe jetzt mal eine blöde Frage zu einem interessanten Thema bei dem ich nicht mal weiss ob so etwas möglich ist, daher werfe ich die Idee einfach mal in den Raum, evtl. hat jemand ja eine Idee ob es so umsetzbar ist. Dabei bin ich für jede Idee dankbar.
Ich habe eine Exceltabelle mit mehreren Sheets, ein Sheet "Auswahl", und eine beliebige Anzahl von Sheets die von 1 bis x durchnummeriert sind, dabei wird sich die Anzahl der Sheets von 1 bis x immer mehr erweitern.
[img=541x87]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAvYAAAB6CAIAAABbboD9AAALI0lEQVR4nO3dO28bVxoG4PNPVv4tkd3tz2CxTTYXLCjQSCoChlxJjQEHLgyCrlIYbgwWMVTIimHDBrZIJ2ARCDDUC4TabCFF4nXEGZ0LOXwevE2iy3k5pA4/DYdy+GsT/PHHH6UrbCTHrRnHrRnHrRnHrRnHrYEQ/nuVl9shlD7gK/FQbsZxa8Zxa8Zxa8Zxa8Zxa8CIs448lJtx3Jpx3Jpx3Jpx3Jpx3BrYuhHn5gaLiIjINqT07JGJEUdERGS7Unr2yMSIIyIisl0pPXtkEkoXAACIL5QuAAAQXyhdAAAgvlC6AABAfKF0AQCA+ELpAgAA8YXSBQAA4gulCwAAxBdKFwAAiC+ULgAAEF8oXQAAIL5QugAAQHyhdAEAgPhC6QIAAPGF0gUAAOILpQsAAMQXShcAAIgvlC4AABBfKF0AACC+ULoAAEB8oXQBAID4QukCAADxhdIFAADiC6ULAADEF0oXAACIL5QuAAAQXyhdAAAgvlC6AABAfKF0AQCA+ELpAgAA8YXSBQAA4gulCwAAxBdKFwAAiC+ULgAAEF8oXQAAIL5QugAAQHyhdAEAgPhC6QIAAPGF0gUAAOILpQsAAMQXShcAAIgvlC4AABBfKF0AACC+ULoAAEB8oXQBAID4QukCAADxhdIFAADiC6ULAADEF0oXAACIL5QuAAAQXyhdAAAgvlC6AABAfKF0AQCA+ELpAgAA8YXSBQAA4gulCwAAxBdKFwAAiC+ULgAAEF8oXQAAIL5QugAAQHyhdAEAgPhC6QIAAPGF0gUAAOILpQsAAMQXShcAAIgvlC4AABBfKF0AACC+ULoAAEB8oXQBAID4QukCAADxhdIFAADiC78S1V/plb6JALABwiXx/JprxCl9QwFg3RlxYjLiAMCaMOLEZMQBgDVxrxFn059rTwed3c7gdMlHj/q7u/2jWt+wTSOOVaxiFR10aGWH4gWyKTHiHPV3dytGi3xKjzi//+fHRw9+fPTP387SjDing87urfq3Jf0iDR5CR/3666y6ytX3nlDrUVrvtkyuVefWrLTK3A2pe2tq3JamN6TWKpOPsjyPsQUHa6JE3e0rWoc7PpShQ5ZdpbpDiT2n+oki1Y5U3eEe+1WREWc8Hn/58mU4HB4cHOzt7e3t7R0cHAyHwy9fvozH40SL5h9xTged3U6narbIptSI87/f/vXgx0c3STTinA46E/WP+imeSi8vTwf9myN4OujU3XvrPoSO+rudTifliFN3w6y/SqMD1WCV2RXrLFjniN1833SPsYl7fOo/Yq5yOf2UsfBp9Xrd+vdflA5V9XJ1yLOr3NUh056zygFPuyNVd7jHfpV/xDk7Ozs8POx2u8+ePRuNRsfHx8fHx6PR6NmzZ91u9/Dw8OzsLMW62Uec00Fnt39Ud8dNo90jzoIbW+f2NFql9u+X9Va5evDUv2PWa8S534N/ne6X2cdUmkFq9l5JNa7dHqYFK8yUSPfTdEeHJR/K1mFGkeOw+BOLdEi9I1V32JwR5927d48fPx4Oh1+/fp3/6NevX4fD4ePHj9+9exd96dwjztVD4vJq+K3cROa2stkT4gs2nZnPnvyda+pLp79kyfnntCPO8Pf0L1RNq3l7Gj+VJvoN+/axs+Ejzv0WaXS/JDtiM9+47rPNSqvM7+01n+LrH7H5Be7anHJ0aLp2kg5/S76rrDTiJNtzqjuk35GqO2zIiPPmzZter3dyclL9aScnJ71e782bN3FXzzziTNwnc3dP5S4yc656cDT7BVdzys1jYOJrj/q333X6tOb1bLPkRPvmX4szJd3vvjcaXCNQ78Wdq2++2SPOfU9gNrxfEl0zMfkjU/tVi9VHnPmdIu94cfdpnfQdVvpQtg4Nq0TvkHTPqe6QY0eq7rAJI86nT5+63e6d882Vk5OTbrf76dOniAXyjjhTd8ns/VM14iw8HzozAnX6/c7kiZvFD/zJVeZex51aplUjTpYrGBJuu5N3aNoRZ+H5voirXLVvfo1u7Xu//l1fb5Xbk6C17/8a54qm943cI86CJ1IjTtpdpbpDjj2nukOeHam6wz32qzwjzsXFRb/fHw6H8x/qdrvdbnf+/w+Hw/39/YuLi1gdso44C05rL//P+QfR3J14+wm3V/hcfcrsy2DTr1VNnhpafj66RSNOk2e5hq9CJvlJm76jcmwoTd73t/o5ibkziQlP9Td7Plx5letdtt/vJx3XJjbz2lfyGXESdLjMtavccWOT7TnVHfLvSHfd6TX3qzwjzsePH/f29s7Pz+c/tGzEOT8/39vb+/jxY6wOGUec6TFjdty4++Xum6+//X+TV/b0jxa/NjrzS9/kZrUdI07Dt+80+xlIcTXG7FaaZ8RJdGXJ/Het+UzR4N5P9nQ489BKPq5dy3/9hxeqFn0oy65y941N83Na1aHEjhT5OOQZcYbD4YsXLxZ+aNmIc3l5+csvvyw88dNMvhFn0U4+95bTFa7om5pWr7/mesL5++zN7dmc+VW3bMRpuBNdrtGbkxePxhl+ZUnzbpH5jSjlk2XTV+vX9ULgBou43Dh6h5y7yhpeD1RkR1rtOKz8w55nxHn69Onbt28XfqhixHn79u2TJ09idcg24iw+/pP7/ezev/TnaGYO6QwG/clvMnlNzuL5e2tGnAbX4k3elgZfVfegrdX7gxask2DrvOd7oGvdlsbXI67xiJP4DxNcXi67YenfHl/dofHikTvk3VVWO3uRds9Z5UUiZ3EW+Pnnn9+/f3/zn91KN5/2/v37Xq8Xq0OuEWfZhLn0HRnT1yxM/rGn6XvyqL/b6XSWvklq+ptev6JfesSZ+bs4f2f/t6gjTv03uMzelhU+a/KOafLL3VqNOHPvvUvzGv/Uz0LtYxbhhy7aKoteqEoyFE6/cbLIO2hmT/+WeqNy9YeSd8iyq1R3yL/nrOmIc5/9as1HnJ9++ilWh0wjzvIfjPn9/trUVYVTpwbnr2SYPYm47FLjzuB0HV6oyjHiLDyZGv/pZ2aZ2nvfWo04iy9Kj73K7ErJLths+ExYb5XpY5bmtky9caT+02u9I1bxMzN1zXOBDnfUy9Ah065S2SHjnrPqAU854qz8eEj/u2V9jV+oevr0aawOW/3PcEZX84WqhvIcdqtYxSo66NDKDut8ufGLFy828nLjbWDEsYpVtnMVHXTYoA7eNL6S4vfTujHiWMUq27mKDjpsUIc8BS4uLvb39+v+6b8nT55s6p/+az0jjlWssp2r6KDDBnXIVuDqH3D48OHDKp/84cOHDf8HHNrOiGMVq2znKjrosEEdchZ4/fr16v8M5+vXr+OubsSJyYhjFats5yo66LBBHXIWGI/Ho9Go1+u9evVq4XU55+fnr1696vV6o9FoPB7HXd2IE5MRxypW2c5VdNBhgzrkL3B2dnZ4eNjtdp8/fz4ajY6Pj4+Pj0ej0fPnz7vd7uHh4Z9//pliXSNOTIv+2k2SZLgtbXr6sYpVytJBh7XqUKTAeDz+/PnzYDA4ODi4utz44ODg5cuXnz9/jn7y5sa9RhxmtGnEAYCNZsQBAFrIiAMAtJARBwBooTB7nccPjx788HDn+4c73z/c+W5357vdnX/v7nz7zc633/yjMjvrnH/HzW6ZfNeufH+Th+uWBw3yw/rkUYTkuqpMRCRd5kYcERERkc2PEUdERERaGCOOiIiItDBGHBEREWlhjDgiIiLSwhhxREREpIUx4oiIiEgLY8QRERGRFsaIIyIiIi2MEUdERERaGCOOiIiItDBGHBEREWlhjDgiIiLSwhhxREREpIUx4oiIiEgL83/kMXYwYtjgJwAAAABJRU5ErkJggg==[/img]
In diesem Bild geht es bis zum Sheet 15, Tag für Tag wird aber noch ein Sheet dazu kommen.
1. Thema: Um ein neues Sheet zu erzeugen würde ich gerne ein Makro einsetzen das mir das komplette Sheet kopiert und am Ende hinzufügt mit dem Namen +1, sprich wenn ich im Sheet 15 das Makro betätige soll das Sheet 15 kopiert werden und nach dem Sheet 15 eingefügt werden und als 16 umbenannt werden.
2.Thema: Jetzt zur kniffligen Zufallsfunktion, ich überlege wie ich eine Funktion einfügen kann, die mir aus den vorhandenen Sheets 1 - x per Zufall immer eine andere aufruft, also z.B. nach betätigen des Makros wird das Sheet 7 angezeigt, nach nochmaligen betätigen dann z.B. das Sheet 13 usw.
Geht so etwas? Bin bei dem Thema VBA noch ein Anfänger und immer wieder verwundert über die Möglichkeiten, aber zu diesen Themen habe ich auch mit der Suchfunktion nichts finden können.
Vielleicht hat ja der ein oder andere von euch eine Idee.
Danke und schöne Grüße
Joerg