|
Hallo Heiko,
es wird höchste Zeit, den "Microsoft Internet Explorer" in den (verdienten?) Ruhestand zu schicken und siche ein anderen Browser zuzuwenden...
Ich habe das Einzeilen-Posting eine leserliche form gebracht:
Public Sub CreateAgenda()
'==============================================
'Startet mit Strg + L (klein)
'==============================================
'==============================================
'Variablendeklaration
Dim i As Integer, l As Integer
Dim LastLineTS As Long, LastLineAG As Long
Dim LastLineAGENDA As Long, LastLineTHEMENSPEICHER As Long
'==============================================
'Berechne die jeweils letzte Zeile auf den Blättern
LastLineTHEMENSPEICHER = ActiveWorkbook.Sheets(1).Cells(Rows.Count, 4).End(xlUp).Row
LastLineAGENDA = ActiveWorkbook.Sheets(2).Cells(Rows.Count, 4).End(xlUp).Row
'==============================================
'Copy/Paste der Themen
Sheets(1).Select
l = 7
For i = 7 To LastLineTHEMENSPEICHER Step 1
If Sheets(2).Cells(4, 5) = Sheets(1).Cells(i, 10) Then
Range(Cells(i, 2), Cells(i, 12)).Copy
Sheets(2).Cells(l, 2).PasteSpecial xlPasteValues
l = l + 1
End If
Next i
End Sub
Entspricht das in etwas der Ausgangs-Situation?
LG, BigBen
|