Aus einer Tabelle per VBA mehrere bilden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
erstmal vielen Dank, dass du dich der Sache annimmst. Zum letzteren: Es sind natürlich keine echten Daten, aber so realistisch, als wären es solche.
Die Namensdoppelungen bedeuten folgendes, sind aber für die Umsetzung eigentlich sekundär:
Fritz Müller ist möglicherweise zu 50% in Haus 1 und zu 50% in Haus zwei.Die Pflege in Haus 1 ist intensiver, daher ein unterschiedlicher Pflegegrad.
Möglicherweise habe ich bei der Umstellung der echten Namen auf Phantasien nicht immer auf Plausibilität geachtet. So ist im Beispiel ACKERMANN, Ulrich tatsächlich in zwei Bereichen zu 100%. Das ist natürlich nicht realistisch und meiner Ungenauigkeit bei geschuldet.
Wichtig bei den Tabellenspalten ist nur der Bereich, wonach ich sowohl die Patienten wie auch die Mitarbeiter gliedern möchte. Sollte es von der Logik her keinen Sinn machen, darfst du da gerne selbst dran rumschreiben. In meiner echten Datei kommt sowas natürlich nicht vor.
in der Ergebniszeile der Tabellen habe ich bereits Dopplungen rausgerechnet mit der Formel SUMMENPRODUKT(1/ZÄHLENWENN([Name];[Name])), sodass der Patient nur einmal als "Fall" gezählt wird.

Hallo Uli!
Das funktioniert hiermit, bitte austauschen:


Sub Auswertungen_setzen()
On Error Resume Next
For sh = 3 To Sheets.Count - 1
With Sheets(sh)
'.Select
lz_B = .Cells(3, "B").End(xlDown).Row
lz_I = .Cells(3, "I").End(xlDown).Row + 1
.Cells(lz_I, 12).FormulaLocal = "=Summe(L4:L" & lz_I - 1 & ")"
.Cells(lz_I, 12).AutoFill .Range("L" & lz_I & ":N" & lz_I)
.Range("M" & lz_I & ":N" & lz_I).NumberFormat = "0.000"
.Cells(lz_I + 5, 9) = "Personalschlüssel:"
.Cells(lz_I + 5, 10).FormulaLocal = "=Summe(M" & lz_I & ":N" & lz_I & ")/Summe(G4:G" & lz_B & ")"
.Cells(lz_I + 6, 9) = "Fachkraftquote:"
.Cells(lz_I + 6, 10).FormulaLocal = "=Summe(M" & lz_I & ":M" & lz_I & ")/Summe(G4:G" & lz_B & ")"
.Range(.Cells(lz_I + 5, 10), .Cells(lz_I + 6, 10)).NumberFormat = "0.00%"
.Range(.Cells(lz_I + 5, 9), .Cells(lz_I + 6, 10)).Font.Bold = True
.Cells(lz_B + 1, "A").FormulaLocal = "=SUMMENPRODUKT(1/ZÄHLENWENN(A4:A" & lz_B & ";A4:A" & lz_B & "))"
.Cells(lz_B + 1, "C").FormulaLocal = "=MITTELWERT(C4:C" & lz_B & ")"
.Cells(lz_B + 1, "G").FormulaLocal = "=Summe(G4:G" & lz_B & ")"
End With
Next sh
End Sub

Gruß, MCO

Beliebteste Forumthreads (12 Monate)

Aus einer Tabelle per VBA mehrere bilden

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus einer Tabelle per VBA mehrere bilden

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread