Werte übergeben an andere Datei

Hallo Zusammen,
ich weiss, dass es einige Beiträge über mein Problem gibt, bin anscheinend nur zu blöd diese zu finden.
Meine Frage / mein Problem:
Ich möchte per klick auf einen Button in meinem Arbeitsblatt "Tabelle1" Werte aus bestimmten Zellen ("D1"; "G3")in bestimmte Zellen ("H5";"J3") einer anderen, vorher nicht geöffneten Datei "senden". Die Datei "Rohling.xls" liegt im gleichen Ordner wie die geöffnete Datei. Sie soll nach eintragen der Werte gespeichert werden unter einem bestimmten Namen. Dieser setzt sich zusammen aus dem jeweiligen Datum und dem Wert aus einer Zelle ("A5")
Kann mir jemand helfen? Es scheitert bei mir vor allem daran die andere Datei zu öffnen. Ich denke die Werte übertragen bekomme ich hin, das hab ich schonmal gemacht, muss ich nur raussuchen. Mit dem Speichern unter könnt ich auch irgendwo haben also ist mein Hauptproblem das Öffnen der anderen Datei (immer gleicher Name).
Vielelicht kann mir jemand helfen? Dankeschön!
Martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
ungetestet müsste dies so gehen.
Modul Modul1

Option Explicit 
 
Sub DateiBearbeiten() 
Dim sPfad As String 
Dim objDatei As Workbook 
Dim sNeuerDateiName As String 
'Pfad wo die Datei liegt 
sPfad = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\") 
'name der Datei 
sDatei = "Rohling.xls" 
'neuer Name der Datei 
sNeuerDateiName = Format(Date, "dd_mm_yyyy") & " " & CStr(Range("A5")) & ".xls" 
'Datei öffnen 
With Application 
 .ScreenUpdating = False 
 .EnableEvents = False 
    Set objDatei = Workbooks.Open(sPfad & sDatei, , False) 
      
     With objDatei 
        'Zellewerte übertragen 
           .Sheets("Tabelle1").Range("H5").Value = _
          ThisWorkbook.Sheets("Tabelle1").Range("D1").Value 
           
           .Sheets("Tabelle1").Range("J3").Value = _
          ThisWorkbook.Sheets("Tabelle1").Range("G3").Value 
        'Datei unter neuen Namen speichern 
          .SaveAs sPfad & sNeuerDateiName 
        'Datei schließen 
          .Close False 
     End With 
  
 .ScreenUpdating = True 
 .EnableEvents = True 
End With 
End Sub

Gruß Tino

www.VBA-Excel.de

Option Explicit Sub DateiBearbeiten() Dim sPfad As String Dim sDatei As String Dim objDatei As Workbook Dim sNeuerDateiName As String 'Pfad wo die Datei liegt sPfad = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\") 'name der Datei sDatei = "Rohling.xls" 'neuer Name der Datei sNeuerDateiName = Format(Date, "dd_mm_yyyy") & " " & CStr(Range("A5")) & ".xls" 'Datei öffnen With Application .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False Set objDatei = Workbooks.Open(sPfad & sDatei, , True) With objDatei 'Zellewerte übertragen .Sheets("Tabelle1").Range("H5").Value = _ ThisWorkbook.Sheets("Tabelle1").Range("D1").Value .Sheets("Tabelle1").Range("J3").Value = _ ThisWorkbook.Sheets("Tabelle1").Range("G3").Value 'Datei unter neuen Namen speichern .SaveAs sPfad & sNeuerDateiName 'Datei schließen .Close False End With .ScreenUpdating = True .EnableEvents = True .DisplayAlerts = True End With End Sub

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread