Daten übertragen in geschlossene Datei
Thor
Mir wurde hier ja schön öfter mal gut geholfen. Dafür zunächst mal ein "Danke" an alle.
Und dann habe ich gleich das nächste Problem.
Ich habe in einer Eingabemaske (Mappe3, Tabelle1) verschiedene Daten gesammelt, die ich zusätzlich noch in einer weiteren Datei (Mappe1, Tabelle2) verarbeiten möchte. Diese Datei liegt auf einem Netzwerklaufwerk(N).
Bisher bin ich mit meinem Code soweit fortgeschritten, dass ich per Button die "Mappe1" auf "N" öffne und die Daten in die erste Zeile der "Tabelle 2" kopiert bekomme. Danach speichert sich "Mappe1" und schließt sich automatisch.
Dafür benutze ich folgenden Code:
Sub Schaltfläche1_BeiKlick()
Range("A1:D1").Select
Selection.Copy
Workbooks.Open("N:\Mappe1.xls").Application.Visible = True
intZeile = Sheets("Tabelle2").UsedRange.Rows.Count + 1
Sheets("Tabelle2").Activate
Cells(intZeile, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Tabelle1").Select
End Sub
Ich möchte wie gesagt erreichen, dass die Daten in die jeweils nächste freie Zeile geschrieben werden, damit die Daten wiederum weiterverarbeitet werden können.
Wäre nett, wenn dazu jemand eine Idee hätte.
Nils
Anzeige