Ich habe hier ein Makro mit dem ich einen Makierten bereich in ein anderes Tabellenblatt einfüge ( im Bereich. A 22 - A50 )
Nun zu meinem Problem.
Wenn ich soviel eingefügt habe, das nichts mehr in das tabellenblatt reinpasst also der bereich ausgefüllt ist kommt die meldung kein platz zum einfügen. Anstatt der Meldung soll jetzt eine neues Arbeitsblatt eingefügt werden "Folgeseiten.xls"
Und dann soll der Makierte Bereich auf dem neuem Tabellenblatt eingefügt werden.
Ich hoffe das ich mich verständlich ausgedrückt habe.
Sub AutoForm1_BeiKlick()
Dim i As Integer
If Selection Is Nothing Then
Exit Sub
Else
Selection.Copy
End If
With Worksheets("1")
For i = 23 To 50
If .Cells(i, 4).Text = "" And .Cells(i + 1, 4).Text = "" Then
.Cells(i + 1, 3).PasteSpecial
Exit Sub
End If
Next i
MsgBox "Kein Platz zum Einfügen!"
End With
End Sub
Gruß Ralf