Erste Leere Zeile finden und Datensatz eintragen
16.01.2008 20:22:29
chris
ich bin fast am verzweifeln!
ich möchte gerne Daten aus einer Excel-Mappe als Datensatz in eine andere Excelmappe exportieren. Wie bekomme ich Excel dazu, dass mir der Datensatz in die jeweils nächste Spalte geschrieben wird.
Habe folgenden Code ausprobiert.
Die Daten werden optimal in die externe Mappe übertragen und gespeichert. Allerdings wenn ich einen neuen Datensatz übertragen möchte wird der alte bzw. erste überschrieben?!
Private Sub Daten_exportieren()
Workbooks.Open("C:\Documents and Settings\CCRUC\Desktop\Controlling Sheets\Produktionshistorie. _
xls").Worksheets("Tabelle1").Activate
Dim lngNeueZeile As Long
lngNeueZeile = Range("A65536").End(xlUp).Row + 1
ActiveSheet.Cells(lngNeueZeile, 1).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G5").Value
ActiveSheet.Cells(lngNeueZeile, 2).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G3").Value
ActiveSheet.Cells(lngNeueZeile, 3).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G7").Value
ActiveSheet.Cells(lngNeueZeile, 4).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("U7").Value
ActiveSheet.Cells(lngNeueZeile, 5).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G9").Value
ActiveSheet.Cells(lngNeueZeile, .Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G29").Value
ActiveSheet.Cells(lngNeueZeile, 9).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G27").Value
ActiveSheet.Cells(lngNeueZeile, 10).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G31").Value
ActiveSheet.Cells(lngNeueZeile, 11).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G33").Value
ActiveSheet.Cells(lngNeueZeile, 12).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G35").Value
ActiveSheet.Cells(lngNeueZeile, 12).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("P27").Value
ActiveSheet.Cells(lngNeueZeile, 13).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("P29").Value
ActiveSheet.Cells(lngNeueZeile, 14).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G31").Value
Workbooks("Produktionshistorie.xls").Save
Workbooks("Produktionshistorie.xls").Close
Workbooks("Zeiterfassung Stand 09-01-08.xlt").Activate
End Sub
Bin dankbar für jede Hilfe