Zeilen kopieren
11.02.2006 23:45:45
Pia
Ich sitze hier und verstehe etwas gar nicht.
ICh möchte eine 2. Arbeitsmappe öffnen, etwas prüfen und dann ggf. eine Zeile der 2. (quelle) in eine neue kopieren (ziel). Dazu bisher:
Sub neuesjahr()
Dim strFileName As String
ziel = ThisWorkbook.Name
quelle = Sheets("Daten").Range("A8") - 1 & ".xls"
Application.ScreenUpdating = False
Application.ShowWindowsInTaskbar = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Workbooks.Open quelle
Workbooks(ziel).Sheets("JAN").Unprotect "serpens"
Workbooks(ziel).Sheets("JAN").Range("C13") = Workbooks(quelle).Sheets("Jahresverlauf").Range("F21")
MsgBox Workbooks(quelle).Sheets("DEZ").Cells(24, 2)
nextRow = Workbooks(ziel).Sheets("JAN").Cells(65536, 2).End(xlUp).Row + 1
'zählen = Workbooks(quelle).Cells(Workbooks(quelle).Rows.Count, 1).End(xlUp).Row
'warum macht er das zählen eigentlich nicht???
If nextRow < 24 Then nextRow = 24
For i = 24 To 24 'zählen
MsgBox i
MsgBox nextRow
If Workbooks(quelle).Sheets("DEZ").Cells(i, 1) <> "" And Workbooks(quelle).Sheets("DEZ").Cells(i, 11) = "" And Workbooks(quelle).Sheets("DEZ").Cells(i, 11) = "" Then
Workbooks(quelle).Sheets("DEZ").Cells(i, 2).Copy Workbooks(ziel).Sheets("JAN").Cells(nextRow, 2)
End If
Next
End Sub
Habt Ihr eine Idee, warum er mir die Zeile nicht kopiert?
Danke!!!!!