Macros und verbundene Zellen

Hallo zusammen,
ich habe gleich mehrere Probleme mit meiner Excelliste.
Zum Verständnis:
im Tabellenblatt Projektübersicht pflegen wir die Daten zu erst einmal ein.
An "Projektübersicht" funktioniert soweit alles, wird noch etwas hübscher gestaltet aber die Funktionalität passt.
"Timetable" holt sich schon mal einen Teil der Informationen von dort. Dass funktioniert auch ganz gut.
Dann gibt es dort einige WENN Funktionen und bedingte Formatierungen die auch alle funktionieren.
An Timetable funktioniert soweit auch alles, bis auf das Zellen verbinden,
was mir die Zellwerte aus den darunterliegenden Zellen entfernt und ich sie dann
im Tabellenblatt Mitarbeiter- Auslastung nicht mehr zur Verfügung habe.
Ich will aber der Optik wegen nicht in jeder Zeile das selbe stehen haben.
In "Mitarbeiter- Auswertung" hole ich mir mit Macros Zeilen aus dem Timetable.
Dort gibt es wie gesagt das Problem dass ich mir vorne leere Zellen hole, weil sie auf Zellen schauen die im Zellverbund sind und keine Werte haben.
Und mein allergrößtes Problem:
Meine Macros die ich mir hier so zusammen gesucht und angepasst habe sind mega langsam, dafür, dass sie eigentlich nicht viel machen. Zumindest in meinem Verständniss.
Ich nutze Office 365 mit installiertem Excel auf dem PC.
Und bin eigentlich in der Planung und im 3D CAD unterwegs und nicht in MS- Office.
Daher auch nur so halb gute Kenntnisse.
Ich bin für jede Idee und jeden Tipp dankbar.
Hier der Link zum Download:
https://www.dropbox.com/s/6jvf8asfvns0pmi/Ressourcen%20Plan%20ohne%20Daten.xlsm?dl=0
Beste Grüße aus dem Münchner Westen
Sebastian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Krass wie schnell man hier Antworten bekommt! :-)
Also das mit dem verketten hab ich kapiert, ist natürlich schon mal mega übersichtlicher und eleganter.
Wobei ich dann etwas mehr handarbeit beim anpassen für die jeweiligen Projekte habe, aber daran soll es nicht scheitern.
Das Codemodul von Ralf (darf man sich hier dutzen?) hab ich noch nicht mit gewünschtem Resultat zum laufen gebracht aber ich habs auch bisher nur teilweise verstanden was da passiert.
Er macht mir lustiger weise bei Rudi oben dirakt auch den FL#2 rein und übernimmt nicht die Werte aus dem Timetable im Datumsbereich.
Der Linke Bereich wird brav übernommen.
Userbild

hier dann der Uli, da sollte eigentlich auch was ausgefüllt sein, habe testweise mal alle an Projekt1 arbeiten lassen.
Userbild

es funktioniert genau für FL#2 wobei der ganz oben landet, unten dann nochmal auftaucht aber da nimmt er die zeilen nicht mehr mit.
Na ich werd noch ein wenig lesen was arrays so machen und vielleicht verstehe ich dann was da abläuft und wo es noch hakt.
Aber schon mal vielen lieben Dank für die Mühen die Du (darf man sich jetzt hier Dutzen?)
schon auf Dich genommen hast.
Ein wunderschönes Wochenende und bestimmt bis bald.
Grüße Sebastian

Sub Makros() Dim arr 'Array Dim n As Integer, of As Integer Application.ScreenUpdating = False Application.Calculation = xlManual Call MakroReinigen2 n = 1: of = 5 'Start 1. Block über n mit Offset =5 arr = Split("RF,US,SF,SW,MP,MD,JO,FM,MV,IF,MW,AF,KM,AL,FL#1,FL#2", ",") For i = LBound(arr) To UBound(arr) Call BedingteKopieZeilen(CStr(arr(i))) n = 1: of = of + 41 '** Offset 42 = next Block Next Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.Calculate End Sub Sub BedingteKopieZeilen(ByVal strName As String) Dim Zeile As Long Dim ZeileMax As Long Dim colMax As Long Dim n As Long With Tabelle1 ZeileMax = .UsedRange.SpecialCells(xlLastCell).Row colMax = .UsedRange.SpecialCells(xlLastCell).Column For Zeile = 2 To ZeileMax If .Cells(Zeile, 8).Value = strName Then Tabelle6.Cells(n + of, 1).Resize(, colMax).Value = .Cells(Zeile, 1).Resize(, colMax). _ Value n = n + 1 End If Next Zeile End With End Sub

Sub Makros() Dim arr, n As Integer Application.ScreenUpdating = False Application.Calculation = xlManual Call MakroReinigen2 n = 6 'Anfangs Zeile ** n muss m.E. bei jedem Durchlauf um 42 erhöht werden arr = Split("RF,US,SF,SW,MP,MD,JO,FM,MV,IF,MW,AF,KM,AL,FL#1,FL#2", ",") For i = LBound(arr) To UBound(arr) Call BedingteKopieZeilen(CStr(arr(i))) n = n + 42 '** Next Block auswaehlen!! Next Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.Calculate End Sub

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread