Blätter-erzeugen_Nummerierung+Einfärben

Hi zusammen! :)
Ich habe eine kleine Idee gehabt für eine Tabelle, mit der mir neulich onur und Yal (like a boss) geholfen haben.
Was ich gerade nicht hinkriege:
Man sieht in der Beispieltabelle in Spalte G, dass es mit dem aktuellen Angebot in den deutschen Fußballstadien 5 verschiedene Arten gibt:
(1) 00111.
(2) 10001.
(3) 00001.
(4) 11111
(5) 2x 10000
https://www.herber.de/bbs/user/152347.xlsm
Frage:
Ist es möglich:
- diese "Binärcodierungen" zu Nummerieren in der Spalte H (gelbe Zellen) und entsprechend viele Kopien des Blattes "Grundlage" zu machen? Also 5 im aktuellen Beispiel?
- diese Blattkopien mit der Nummerierung zu benennen und eine random Registerfarbe zu geben?
- ab Spalte B2 in dem neuen Blatt nach rechts die Städte einzutragen, die zu diesem Fall gehören?
Ich habe das mit dem Makrorecorder mal als Beispiel aufgezeichnet (für die Erzeugung von einem der 5 Blätter) und auf einen Button gelegt.
Was ich schon gefunden haben: Wie man die Registerkarte einfärben kann:


Sub neue_Tabelle()
With Sheets.Add
.Tab.ColorIndex = Int((36 * Rnd) + 1)
End With
End Sub

Kann mir da jemand helfen?
Viele Grüße!
Henny

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Onur,
- wenn ich bei meinem Button Rechtsklicke, öffnet sich ein Menü mit "Ausschneiden", "Kopieren", "Text bearbeiten", "Makro zuweisen" usw.
Dies habe ich mit deinem Button auch probiert, um selbst zu verstehen, was passiert, bevor ich hier wieder nachfrage. Dort wird mir das aber nicht angezeigt.
- ein Teil der Blätter: Ja. Er erzeugt die Blätter 1, 7 und 17. Aber nicht die Blätter 24 und 31.
- Bzgl. der Nummerierung: Ich sagte Folgendes:
"Ist es möglich, diese "Binärcodierungen" zu Nummerieren in der Spalte H (gelbe Zellen) und entsprechend viele Kopien des Blattes "Grundlage" zu machen? Also 5 im aktuellen Beispiel?"
Wir hatten hier wohl ein Missverständnis; ich wollte tatsächlich nur eine Nummerierung mit fortlaufender Nummer haben.
Ich verstehe, dass man das so interpretieren kann, wie du es gemacht hast. Das hatte ich aber nicht gemeint. Einfach ein Missverständnis.
Das Ziel war keine Transformation von Binär zu normaler Zahl; nur das Durchzählen.
Darum hatte ich das nochmal erläutert und ein neues Beispiel gemacht.
Dankeschön für deine Hilfe heute und letztes Mal. Verstehen tue ich nicht, wieso deine Antwort einen Angriff ("schon stark übertrieben") enthält sowie der insgesamt aggressive Ton ("gemäß deiner Vorgaben").
Ich tue mein Bestes, höflich und freundlich zu sein und mir Mühe zu geben.
Den Umgang finde ich in der Art unnötig. Schade, wie sich das nun entwickelte.
Entschuldigung für das Missverständnis mit der Nummerierung; ich tat dies nicht mit Absicht.
Aufrichtiges Danke für deine letzte und heutige Hilfe.
MfG
Henny

Private Sub CommandButton1_Click() Dim wks, nam As String, found As Boolean Randomize Timer For z = 3 To 10000 found = False nam = Cells(z, 8) If nam "" Then For Each wks In ThisWorkbook.Worksheets If wks.Name = nam Then found = True 'If wks.Name = "24" Then Stop Next If Not found Then Sheets("Grundlage").Copy after:=Sheets(3) Sheets(4).Name = nam Sheets(4).Tab.ColorIndex = Int(Rnd(Timer) * 56) + 1 End If End If Next z End Sub

Beliebteste Forumthreads (12 Monate)

Blätter-erzeugen_Nummerierung+Einfärben

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Blätter-erzeugen_Nummerierung+Einfärben

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread