Zufallsfunktion mal anders

[JoergPorsch]

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

[Rabe]

Hi Jörg,

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.
[...]
In diesem Bild geht es bis zum Sheet 15, Tag für Tag wird aber noch ein Sheet dazu kommen.

Wie Du siehst, hat es mit dem Bild leider nicht geklappt, außerdem ist ein Bild sowieso schlecht, um Excel-Themen nachzuvollziehen, zu reparieren oder Lösungen zu erstellen!

Also stelle bitte (D)eine (Beispiel-)Tabelle als Excel-Datei zur Verfügung oder stelle die relevanten Ausschnitte hier dar, siehe die als Wichtige Themen: markierten Forums-Beiträge.
Deine Mustertabelle sollte mindestens etwa 10-15 Datensätze haben, sensible Daten anonymisiert. Vom Aufbau her muss sie aber deinem Original gleichen.
Auch ein Wunschergebnis sollte dargestellt und als solches erkennbar sein.
Die farbigen Texte sind anklickbare Links:

Hier steht, wie es geht:
Beitrag 2 WICHTIG: Arbeitsmappen zur Verfügung stellen
Beitrag 3 WICHTIG: Tabellenausschnitte und VBA-Codes im Forum einstellen

Eine Bitte:
Anstatt Screenshots ist eine Datei oder ein Ausschnitt besser!
"Du gehst ja auch nicht in die Werkstatt und gibst ein Foto Deines kaputten Autos ab!"

[Jockel]

Hi Jörg,

Wie Du siehst, hat es mit dem Bild leider nicht geklappt, außerdem ist ein Bild sowieso schlecht, um Excel-Themen nachzuvollziehen, zu reparieren oder Lösungen zu erstellen!

Hi Ralf, wenn man die Zitatantwort wählt, sieht man das Bild...

[url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]

[GMG-CC]

Moin Joerg,

Bilder an sich sind hier meistens ungeliebt, weil kaum jemand Lust hat, seine Zeit mit einem Nachbau zu vergeuden. Dieses "Bild" aber ist absolut nichtssagend :05: 

Also: Eine Musterdatei wäre in jedem Fall passender.

EDIT: Da war ich zu langsam ...

[Rabe]

Hi Jörg,

wenn man die Zitatantwort wählt, sieht man das Bild...

[url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]

bei mir kam das nicht, da kam auch wieder der ganze Zeichensalat.

[JoergPorsch]

Hallo zusammen,

danke erstmal für die Antworten. Ihr habt recht, erstens ist das Bild nicht zu sehen, zweitens nicht zweckmäßig.

Die neutrale Exceldatei im Anhang.

Danke

[Kuwer]

Hi Ralf,

bei mir kam das nicht, da kam auch wieder der ganze Zeichensalat.

war die Quelltextanzeige aktiviert (strg+shift+s) ?

Gruß Uwe

[schauan]

Hallöchen,

so was kommt auch vor, wenn man ein Bild mit Copy und Paste einfügt statt "ordentlich" als Anhang + Bild in den Beitrag einfügen ....

[Rabe]

Hi,

war die Quelltextanzeige aktiviert (strg+shift+s) ?

ja, das wars.

[JoergPorsch]

Keiner eine Idee? Oder gar nicht möglich?

Gruß Joerg