Bitte um Hilfe bei Makro

Computer: Software & Programmierung Office Software
1

Liebe Excelianer,

auf Basis eines Makros von RakonDark habe ich was eigenes dazugepfriemelt.

Aus einer Quelldatei soll ein Zellbereich kopiert werden, eine andere Datei soll geöffnet werden, aufgrund eines Eintrags in der Quelldatei wird die Zeilennummer gesucht und dort verknüpft.

Das klappt alles hervorragend - leider hat sich herausgestellt, dass das verknüpfen nicht richtig ist.

Richtig wäre, die Werte einzufügen.

Hier der entsprechende Auszug aus dem Makro ( und bitte daran denken, dass ich Laie bin und deshalb relativ stolz darauf bin, immerhin das hinbekommen zu haben…:smile:

Zeilennummer = Sheets(„Sucht“).Cells(27, 12)
Workbooks.Open Filename:= _
„G:\Krankenhaus\Abhängigkeitserkrankungen\Pflege\Station 53\Assessment\Daten 2008.xls“
ActiveWindow.SmallScroll Down:=28
Range(„A41:AJ41“).Select
Selection.Copy
Windows(„Daten 2008.xls“).Activate
Cells(Zeilennummer, 1).Select
ActiveSheet.Paste Link:=True
Range(„A1“).Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
ActiveWindow.LargeScroll ToRight:=-2
ActiveWindow.SmallScroll Down:=-49
Range(„A4:C4“).Select

Bei „ActiveSheet.Paste Link:=True“ habe ich heute einige Zeit verbracht aber mir will das nicht gelingen. Ich habe gedacht, hier müsste was geändert werden, dass die Zellen nicht verknüpft sondern die Werte eingefügt werden.

Kann mir da jemand helfen?

Sollte doch das ganze Makro vonnöten sein, bitte um freundliche Rückmeldung.

Liebe Grüße

Jorge

2

Aus einer Quelldatei soll ein Zellbereich kopiert werden, eine
andere Datei soll geöffnet werden, aufgrund eines Eintrags in
der Quelldatei wird die Zeilennummer gesucht und dort
verknüpft.
Das klappt alles hervorragend - leider hat sich
herausgestellt, dass das verknüpfen nicht richtig ist.
Richtig wäre, die Werte einzufügen.

Moin Jorge,

ungetestet:

Zeilennummer = Sheets("Sucht").Cells(27, 12)
Workbooks.Open Filename:= \_
"G:\Krankenhaus\Abhängigkeitserkrankungen\Pflege\Station 53\Assessment\Daten 2008.xls"
With Workbooks("Daten 2008.xls")
 .Worksheets(1).Range("A41:AJ41").Copy Destination:=.Worksheets(1).Cells(Zeilennummer, 1)
 .Close savechanges = True
End With
Range("A4").Select

Gruß
Reinhard

3

Lieber Reinhardt,

  1. mit deinem Makro hab ichs nicht hinbekommen.
  2. Entschuldigung; ich habe behauptet, mit meinem Gedöhns würde es klappen ( hat auch mal geklappt), aber mit dem Auszug, den ich gepostet habe, hats doch nicht geklappt.
  3. Woraus folgt, dass dein Vorschlag nicht falsch gewesen sein muss.
  4. Aus Verärgerung habe ich 2 Stunden damit zugebracht, es mit meinem „Wissen“ hinzukriegen und
  5. ich habs tatsächlich geschafft.

Also noch mal Mea culpa !!

Freundliche Grüße

Jorge