Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einfügen neues arbeitsblatt

Einfügen neues arbeitsblatt
30.11.2002 16:49:51
Ralf
Hallo ich habe da ein Problem
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Einfügen neues arbeitsblatt
30.11.2002 17:28:24
M. Kuhn
Moin Ralf,

Worksheets.Add .Move after:=Worksheets(Worksheets.Count)
heißt die Methode, damit wird es das letzte Blatt in der Reihenfolge. Dann

Worksheets(Worksheets.Count).Name = "Folgeseite"

Diese beiden Zeilen fügst Du statt MsgBox ein.

Danach die Zeilen von With Worksheets(1) bis
Next i

einfügen. Das soeben eingefügte With Worksheets(1) in
With Worksheets("Folgeseite") umbenennen.

Wenn das öfter sein muss, dann muss der Code umgebaut werden in eine Schleife.

Und bevor Du fragst:
Wenn 255 Seiten in der Mappe sind, kannst Du eine neue Mappe einfügen (Workbooks.Add)

Von Festplatte.Add ist mir aber nichts bekannt. Nun frisch ans Werk und sei fleißig.

MfG Mario

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige