nur gefilt. Daten in Schleife

Sub schleife_1()
Dim wks_q As Worksheet
Dim wks_import As Worksheet
Dim wks_ausw As Worksheet
Dim lngLastRow As Long
Dim lngC As Long
Dim t As Double ' Zeitmessung
t = Timer
Application.ScreenUpdating = False
Set wks_tp = ThisWorkbook.Sheets("TagesPlan")
Set wks_imp = ThisWorkbook.Sheets("Import")
Set wks_ausw = ThisWorkbook.Sheets("Auswertung")
With wks_tp
lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For lngC = 11 To lngLastRow
wks_imp.Cells(1, 7) = .Cells(lngC, 2).Value
wks_imp.Cells(2, 7) = .Cells(lngC, 6).Value
wks_ausw.Cells(3, 6) = .Cells(lngC, 6).Value
Next lngC
End With
Application.ScreenUpdating = True
MsgBox Timer - t & " sec", , "Makrolaufzeit" ' Zeitmessung
End Sub