title image


Smiley Ein paar Codezeilen
Hi Mischa,



ich hoffe die Codezeilen helfen dir etwas weiter! :o)









Option Explicit



Sub Excel_im_Hintergrund_starten()



Dim obj_Datei As Object

Dim var_Datei As Variant



var_Datei = Application.GetOpenFilename("Excel-Datei (*.xls),*.xls")

If var_Datei = False Then Exit Sub



Set obj_Datei = GetObject(var_Datei)

obj_Datei.Parent.Visible = True

obj_Datei.Windows(1).Visible = False



obj_Datei.Worksheets(1).[A3].Value = "Wert"

obj_Datei.Close SaveChanges:=True

Set obj_Datei = Nothing



End Sub







Code eingefügt mit Syntaxhighlighter 4.0





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: