Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sportfest optimieren durch Makro?

Forumthread: Sportfest optimieren durch Makro?

Sportfest optimieren durch Makro?
07.07.2024 17:09:53
Fibonacci144
A: Schülerliste mit vier Spalten: Klasse (z.B. 5a), Name, Vorname, Sex
B: neues Mappe = Schreibliste: mehrere Reiter (5a_m, 5a_w, 5b_m, 5b_w, usw.)

Können die Daten aus A in die einzelnen Reiter von B gelangen? Ohne copy & paste ;-) Leider meine aktuelle Variante ;-(

Anmerkung: Die Anzahl der Jungs bzw. Mädchen einer Klasse ist variabel (bis zu 20 Zeilen pro Reiter)

Ich bin gespannt wie ein "Flitzebogen", ob mein erster Beitrag ausreichend formuliert wurde.

LG
Anzeige

23
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sportfest optimieren durch Makro?
07.07.2024 17:20:06
ReginaR
Hi,
Antwort auf Dene Frage: Ja! geht!

Rückfrage: Makro erlaubt? Beispielmappe?

VG Regina
AW: Sportfest optimieren durch Makro?
07.07.2024 17:59:27
Fibonacci144
Ich würde gerne eine Datei uploaden. Allein, sie wird mir nicht angezeigt. Keine Leerzeichen im Namen, 36 kb. Abgelegt direkt unter C:\

Makro erlaubt? Ja.
AW: Sportfest optimieren durch Makro?
07.07.2024 19:33:33
Fibonacci144
Der Upload mit einem anderen Browser hat geklappt. Danke an RPP63 und Onur ;-)

https://www.herber.de/bbs/user/170756.xlsx
Anzeige
AW: Sportfest optimieren durch Makro?
07.07.2024 19:38:52
Onur
Ja, aber eine Datei alleine wird nix bringen.
AW: Sportfest optimieren durch Makro?
07.07.2024 20:29:16
Onur
Dafür müsste idealerweise der Blattname irgendwo auf dem Blättern stehen. Ist das ok?
Anzeige
AW: Sportfest optimieren durch Makro?
07.07.2024 20:46:03
Uduuh
Hallo,
in ein Modul: 
Option Explicit



Sub KlassenErstellen()

  Dim objKlassen As Object, oObj

  Dim vntDaten, vntOUT, vntTmp, i As Long

  Dim strKey As String

  Dim wks As Worksheet

  Set objKlassen = CreateObject("scripting.dictionary")

  vntDaten = Sheets(1).Cells(1, 1).CurrentRegion

  

  For i = 2 To UBound(vntDaten)

    objKlassen(vntDaten(i, 1) & "_" & vntDaten(i, 4)) = 0

  Next

  

  For i = 2 To UBound(vntDaten)

    strKey = vntDaten(i, 1) & "_" & vntDaten(i, 4)

    objKlassen(strKey) = objKlassen(strKey) & "|" & vntDaten(i, 2) & "#" & vntDaten(i, 3)

  Next

  

  For Each oObj In objKlassen

    vntTmp = Split(objKlassen(oObj), "|")

    ReDim vntOUT(1 To UBound(vntTmp), 1 To 2)

    vntOUT(1, 1) = "Name"

    vntOUT(1, 2) = "Vorname"

    

    For i = 2 To UBound(vntTmp)

      vntOUT(i, 1) = Split(vntTmp(i), "#")(0)

      vntOUT(i, 2) = Split(vntTmp(i), "#")(1)

    Next i



    On Error Resume Next

    Set wks = Worksheets(oObj)

    On Error GoTo 0

    If wks Is Nothing Then Set wks = Worksheets.Add(after:=Sheets(Sheets.Count))



    With wks

      .Cells(1, 1) = oObj

      .Cells(1, 1).Font.Bold = True

      .Cells(3, 1).Resize(UBound(vntOUT), 2) = vntOUT

      .Name = oObj

    End With

    

  Next oObj

  

End Sub

Gruß aus'm Pott
Udo
Anzeige
AW: Sportfest optimieren durch Makro?
07.07.2024 21:10:25
Fibonacci144
Werde ich mir morgen ansehen und dann eine Rückmeldung geben. Erstmal: Danke und Grüße in den Pott ;-)
AW: Sportfest optimieren durch Makro?
08.07.2024 09:22:26
Fibonacci144
Moin Udo,

ich habe dein Modul kopiert und in 170757.xlsx eingefügt (Alt+F11, usw.), dann gespeichert (mit Makro), habe aber keinen Output. Da ich wirklich noch nie mit einem Modul gearbeitet habe, kann ich mir leider auch gar nicht vorstellen, was ich zu erwarten habe. Danach habe ich dein Modul noch in 170759 eingefügt. Wieder kein sichtbares Ergebnis.

Da mir die Lösung von Onur genügt, verbleibe ich mit echter Dankbarkeit für deinen Einsatz und wünsche dir einen wunderbaren Start in die Woche.

LG
Anzeige
AW: Sportfest optimieren durch Makro?
07.07.2024 20:34:46
Fibonacci144
Selbstverständlich ;-) Danke für deine Mühe.
AW: Sportfest optimieren durch Makro?
07.07.2024 20:37:50
Eifeljoi 5
Hallo

Anbei mein Vorschlag als PQ/ Pivot Lösung, da ich eine no go Mensch für das verteilen auf mehrere Register bin.
https://www.herber.de/bbs/user/170758.xlsx
AW: Sportfest optimieren durch Makro?
07.07.2024 20:43:29
Onur
Der Blattname muss immer in M3 stehen.
Einfach die Formel jeweils in B6 kopieren (vorher 3x Dateiname in der Formel anpassen).
https://www.herber.de/bbs/user/170759.xlsx
Anzeige
AW: Sportfest optimieren durch Makro?
07.07.2024 21:09:11
Fibonacci144
Ich werde mir das morgen ansehen. Schreibe jetzt von einem anderen Rechner. Herzlichen Dank für die Unterstützung ;-)
Gerne !
07.07.2024 21:09:56
Onur
AW: Gerne !
08.07.2024 08:23:19
Fibonacci144
Lieber Onur, deine Idee mit der LET-Funktion und den Verknüpfungen klappt großartig ;-) Ganz herzlichen Dank!

Auf dem Dienstrechner meiner Kollegen ist leider Excel 2019 (statt 365 Business), weshalb nur ich von deinem Wissen profitieren kann. Stand heute = völlig ausreichend. Trotzdem die Frage, könnte ich deine Eingabe (also in B6) für meine Kollegen anpassen?

Ich wünsche dir einen wunderbaren Start in die Woche.
Anzeige
AW: Gerne !
08.07.2024 11:57:03
Onur
So sollte es als Notlösung auch bei 2019 klappen (ist zwar ungefiltert, aber da wird ja eh nix manuell eingetragen).
https://www.herber.de/bbs/user/170769.xlsx
Wie gehabt, Pfad und Dateiname anpassen.
Die Formeln in den blauen Zellen ggf als Arrayformeln abschliessen.
Anzeige
AW: Gerne !
08.07.2024 12:11:42
Onur
Die Formeln in N, O und Q könnte man, statt in jedes Blat, in EIN separates Blatt schreiben, dann müsste die Formel in B6 entsprechend angepasst werden (Blattnamen mitangeben).
AW: Gerne !
09.07.2024 07:47:46
Fibonacci144
Eine Solche Lösung hatte ich ursprünglich selbst. Die ist nicht stabil.
Deine Lösung über LET ist spitze. Kannte ich nicht. Ich kann die Dateien verschieben und umbenennen, trotzdem läuft alles wie am Schnürchen ;-)

Besten Dank
Anzeige
AW: Sportfest optimieren durch Makro?
07.07.2024 17:23:20
Eifeljoi 5
Hallo

Ich bin der Meinung dazu benötigt man kein VBA.
Außerdem dem fehlt wie in den meisten Fällen die Beispieldatei und das Wunschergebnis.
AW: Sportfest optimieren durch Makro?
07.07.2024 18:00:16
Fibonacci144
Ich würde gerne eine Datei uploaden. Allein, sie wird mir nicht angezeigt. Keine Leerzeichen im Namen, 36 kb. Abgelegt direkt unter C:\
Dateiupload
07.07.2024 18:20:11
RPP63
Moin!
Du musst unter Dateityp im Auswahldialog "Alle Dateien *.*" auswählen, dann werden Dir auch die .xls* angezeigt.
Ist ein kleiner Bug der Forensoftware.

Gruß Ralf
Anzeige
AW: Dateiupload
07.07.2024 19:02:44
Onur
Liegt wohl eher am Rechner (Mac ?) bzw Webbrowsersoftware (Edge ?).
AW: Dateiupload
07.07.2024 19:08:41
Onur
Hast wohl Recht, die Kombi aus Webbrowser und Bug.
Bei Firefox passiert das nie. und bei Edge nur bei Herber.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige