255 Sheets in Mappe @Nepomuk
01.02.2004 08:31:53
helena
Dein Makro funktioniert einwandfrei du schreibst am Ende es gehen MAX
255 Sheets, wie kann ich dies abfangen zB Msg-Box als Meldung >250
dann wird nicht meht kopiert und Makro beendet, In Ziel im Blatt1
habe ich in ZelleB1 Formel eingefügt (ANZAHL2) damit ich kontrolieren kann
nun in Zelle habe ich schon Ergebnis, denke fü die Gurus eine Kleinigkeit.
von gestern Ausgangspunkt:
:
Option Explicit
Sub kopieren()
Dim mySheet As Worksheet, intZaehler As Integer, lngZeile As Long
Set mySheet = ActiveSheet
Workbooks.Open Filename:="D:\DATEN\Ziel.xls"
mySheet.Copy After:=Workbooks("Ziel.xls").Sheets(1)
With Worksheets(1)
.Columns(1).Clear
For intZaehler = 2 To Sheets.Count
lngZeile = lngZeile + 1
.Hyperlinks.Add Anchor:=.Cells(lngZeile, 1), Address:="", SubAddress:=Sheets(intZaehler).Name & "!A1", TextToDisplay:=Sheets(intZaehler).Name
Next
End With
ActiveWorkbook.Close SaveChanges:=True
Range("A2").Select
Set mySheet = Nothing
End Sub
Code eingefügt mit: Excel Code Jeanie
In den Optionen kannst du maximal 255 Tabellen in einer neuen Mappe angeben.
gruss Helena