title image


Smiley VBA-Problem
Hallo,



folgender Code führt ins Nichts ...



Sub test()



Dim empfangende_mappe As Workbook

Dim abgebende_mappe As Workbook

Set empfangende_mappe = ThisWorkbook 'die den Code enthält



'Mappenname = InputBox("Bitte den Mappenname eingeben z.B. YYY")

Mappenname = "YYY" & ".xls"

'partition1 = InputBox("Bitte die Partition eingeben z.B. D")

partition1 = "D" & ":\"

'Verzeichnis = InputBox("Bitte das Verzeichnis eingeben z.B. Temp2")

Verzeichnis = "Temp2" & "\"

pfad = partition1 & Verzeichnis



zugriff = pfad & Mappenname

MsgBox zugriff



Workbooks.Open zugriff

Set abgebende_mappe = zugriff



empfangende_mappe.Sheets("Auswertung").Range("F8").Value = _

abgebende_mappe.Sheets("ZZZ").Range("E6").Value



empfangende_mappe.Sheets("Auswertung").Range("G8").Value = _

empfangende_mappe.Sheets("Auswertung").Range("E8").Value + _

empfangende_mappe.Sheets("Auswertung").Range("f8").Value



End Sub





Ab der Zeile workbook.open zugriff knirrscht es heftig.



Wie löst man das Problem ab dieser Zeile?



Für Hilfen besten Dank im Voraus.



Gruß



Ilka Maria





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: