an markierter Stelle bekomme ich imer die Meldung "Typen unverträglich", kann mir allerdings nicht erklären, warum.
Sub Test()
Dim i As Integer
Dim Zeile As Integer
Zeile = 1
For i = 2 To 49
Workbooks("HalfHour05-04-14.xls").Sheets("Technik").Activate
If ActiveSheet.Cells(i, 8).Value >= 3 Then
Worksheets("Technik").Range(Cells(i, 1), Cells(i, 13)).Select
Selection.Copy
End If
Workbooks("VorlageBriefing.xls").Activate
While Worksheets(1).Cells(Zeile, 1) <> "" <---hier der Fehler
Zeile = Zeile + 1
Wend
Worksheets("Tabelle1").Cells(Zeile, 1).Select
ActiveSheet.Paste
Next i
End Sub
weiß jeman rat?
Viele Grüße
Mike