Hallo Emil,
vorausgesetzt, beide Dateien sind offen und in der Übersichtsliste sollten Überschriften angelegt werden, dann so:
Sub patienten_uebersicht()
Dim wsQ As Worksheet, wsZ As Worksheet
Set wsQ = Workbooks("Patientenakte").Sheets("Patient")
Set wsZ = Workbooks("Übersichtsliste").Sheets("Übersicht")
Dim lngLetzteZ As Long
lngLetzteZ = wsZ.Cells(Rows.Count, 1).End(xlUp).Row
With wsZ
.Cells(lngLetzteZ + 1, 1) = wsQ.Cells(2, 2) 'Station
.Cells(lngLetzteZ + 1, 2) = wsQ.Cells(3, 2) 'Zimmer
.Cells(lngLetzteZ + 1, 3) = wsQ.Cells(1, 2) 'NameVornameGeburtsdatum
.Cells(lngLetzteZ + 1, 4) = wsQ.Cells(5, 4) 'Operation
.Cells(lngLetzteZ + 1, 5) = wsQ.Cells(6, 5) 'Schmerzpumpe
End With
End Sub
Die Datei- und Tabellennamen musst du natuerlich noch anpassen. Hab jetzt mal Fantasienamen benutzt.
Gruss Torsten
|