title image


Smiley Re: Zellwert aus einer anderen Datei ermitteln
Hi Michael,



eine weitere Möglichkeit wäre diese

Sub Zellwert_übernehmen()

Application.ScreenUpdating = False

Workbooks.Open ("D:\Dein_Pfad\Dein_Dateiname.xls")

ThisWorkbook.Worksheets("Tabelle1").Range("A1") = ActiveWorkbook.Worksheets("Tabelle1").Range("A1")

ActiveWorkbook.Close SaveChanges:=False

Application.ScreenUpdating = True

End Sub

ThisWorkbook ist die Arbeitsmappe, aus der der Code gestartet wird, ActiveWorkbook ddiejenige, aus der der Wert übernommen werden soll.

GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: