title image


Smiley Arbeistmappe über VBA öffnen und bestimmte Zellen füllen
Hallo zusammen,

vielleicht kann mir ja mal wieder einer von euch unter die Arme greifen ;-)

Ich möchte über eine Schaltfläche in einer Arbeitsmappe eine weitere Arbeitsmappe öffnen in diese dann in bestimmte Zellen etwas eingetragen. Folgendes Makro habe ich erstellt, funktioniert nur leider nicht :-(

In der Zeile

Windows(WName).Activate

gibt es wohl einen Fehler. Wenn ich diese Zeile weglasse, schreibt mir Excel den Text in die Ursprungstabelle.

Ich hoffe ich hab es einigermaßen Beschreiben können.

Vielen Dank schon mal im voraus

Rosi



Private Sub CommandButton1_Click()



Dim WName As Variant





Const LW = "c:\"

Const Pfad = "c:\Dokumente und Einstellungen"





ChDrive LW

ChDir Pfad





WName = Application.GetOpenFilename("Excel-dateien(*.xls),*.xls")

If WName = False Then Exit Sub

Workbooks.Open Filename:=WName

Windows(WName).Activate

Range("A1").Value = "Hier kommt Text"



End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: