In Datei schreiben
21.08.2005 20:13:49
Erich
Habe diesen Code aus dem Forum
Sub DatenKopie()
Dim wks
Dim iRow As Integer, iRowS As Integer
Dim sfile As String
Application.ScreenUpdating = False
sfile = "c:\test\Versuch.xls"
If Dir(sfile) = "" Then
Beep
MsgBox "Testdatei wurde nicht gefunden!"
Exit Sub
End If
Set wks = Tabelle2
Workbooks.Open Filename:=sfile
Worksheets(1).Select
iRowS = wks.Cells(Rows.Count, 2).End(xlUp).Row
If IsEmpty(Range("b6")) Then
iRow = 1
Else
iRow = wks.Cells(Rows.Count, 2).End(xlUp).Row + 1
End If
wks.Rows(iRowS).Copy Rows(iRow)
ActiveWorkbook.Close savechanges:=True
Application.ScreenUpdating = True
End Sub
Klappt soweit auch ganz gut, nur schreibt er mir die Daten nicht
immer in die richtige Zeile.( Zur Erklärung: die Daten werden von 3 lokalen
Rechnern in die einzelne Datei geschrieben.)
Nun meine Frage wie kann ich evtl. mit dieser Anweisung direkt in die
Datei schreiben.
With Tabelle1.Cells(Rows.Count, 2).End(xlUp)
.Offset(1, 0).Value = frmKom.txtDatum
.Offset(1, 1).Value = frmKom.txtNummer1
.Offset(1, 4).Value = frmKom.txtSchaden1
.Offset(1, 5).Value = frmKom.txtPlan
.Offset(1, 6).Value = frmKom.txtAus1
.Offset(1, 7).Value = frmKom.txt1
.Offset(1, 8).Value = frmKom.txt2
.Offset(1, 9).Value = frmKom.txt3
End With
Gibt es die möglichkeit oder ist nur kopieren möglich.
Für eine Antwort bedanke ich mich schon im voraus.
Gruss Erich
Anzeige