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
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

255 Sheets in Mappe @Nepomuk

255 Sheets in Mappe @Nepomuk
01.02.2004 08:31:53
helena
Guten Morgen und schönen Sonntage
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

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 255 Sheets in Mappe @Nepomuk
01.02.2004 08:45:27
Nepumuk
Morgen Helena,
du kannst wesentlich mehr Tabellen in einer Mappe haben wie 255. Das ist nur die Obergrenze, die du in den Optionen angeben kannst, wie viele Tabellen in einer neu geöffneten Mappe von Haus aus vorhanden sein sollen. Die Grenze, wie viele Tabellen in einer Mappe sein können, gibt dir nur dein Arbeitsspeicher vor. Es ist aber schon sinnvoll eine gewisse Grenze einzuhalten, da die Mappen sonst sehr lange zum öffnen und speichern brauchen. du könntest es z.B. so machen:

Option Explicit
Sub kopieren()
Dim mySheet As Worksheet, intZaehler As Integer, lngZeile As Long, bolspeichern As Boolean
Set mySheet = ActiveSheet
Workbooks.Open Filename:="D:\DATEN\Ziel.xls"
If ActiveWorkbook.Worksheets.Count >= 250 Then
MsgBox "Es sind zu viele Tabellen in der Mappe." & vbLf & "Programmabbruch.", 16, "Warnung"
Else
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
bolspeichern = True
End If
ActiveWorkbook.Close SaveChanges:=bolspeichern
Range("A2").Select
Set mySheet = Nothing
End Sub


Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Anzeige
AW: 255 Sheets in Mappe @Nepomuk
01.02.2004 08:50:39
helena
Hallo Nepomuk
wo ist diese Einstellung, finde nichts EXTRAS/OPTIONEN...
SORRY hoffe ich bin nicht erblindet
gruss helena
AW: 255 Sheets in Mappe @Nepomuk
01.02.2004 08:54:54
Nepumuk
Hallo Helena,
Allgemein - Blätter in neuer Arbeitsmappe
Gruß
Nepumuk
off topic
01.02.2004 12:58:14
Reinhard
Hi Helena,
"SORRY hoffe ich bin nicht erblindet"
Gänzlich noch nicht, aber der nette Helfer heisst NepUmuk *g
Gruß
Reinhard
AW: off topic
01.02.2004 13:03:26
Nepumuk
Hallo Reinhard,
der Name wird normalerweise mit o geschrieben. Aber ein Standesbeamter hat meinen Namen falsch in meine Geburtsurkunde eingetragen. Ich bestehe aber nicht auf die falsche Schreibweise. Ich weiß wer gemeint ist.
Gruß
Nepumuk
Anzeige
AW: off topic
01.02.2004 13:53:04
Reinhard
Hallo Nepumuk,
ich hab so einen kleinen Holzdrachen von der Decke hängen, der heisst Nepumuk und Nepumuk war auch schon öfters mein Nick in Chats. Dass es mit 'o' geschrieben wird ist mir wohl irgendwann entfallen :-) Nepomuk war wohl mal so ein Kaiser oder Papst, dann später dieser Drache von der Augsburger Puppenkiste *glaub*
Aber interessant, bisher dachte ich Nepumuk wäre dein Künstlername hier.
Und Standesbeamte mag ich nicht besonders, seitdem die sich irre kwerstellten als meine Tochter als Kim eingetragen werden sollte.
Gruß
Reinhard
UPPS
01.02.2004 15:04:14
HELENA
da möchte ich mich aber sofort entschuldigen
es wird Niiiiiiiiiiiiiiiiiiiiiiiiiiiiieeeeee wieder
vorkommen und vom Standesamt bin ich auch nicht.
Also "Nepumuk" einen wunderschönen Sonntag noch
Helena aus CH
Anzeige
es hat mir keine Ruhe gelassen
01.02.2004 15:32:56
helena
DENKE dein berühmtester Namensvetter im Dt. Sprachraum
Zitat von Ihm....
Die Phönizier haben das Geld erfunden, aber warum so wenig?
(Johann Nepumuk Nestroy)
gruss helena
AW: es hat mir keine Ruhe gelassen
01.02.2004 16:25:51
Reinhard
Hi Helena,
ich bin nicht Nepumuk, aber danke für die Rückmeldung :-)
Gruß
Reinhard
AW: 255 Sheets in Mappe @Nepomuk
01.02.2004 08:48:58
Josef Ehrensberger
Hallo Helena!
Nepumuk hat gemeint, das Du in Extras > Optionen, einstellen
kannst, das eine Neue Mappe mit 255 Tabellenblättern geöffnet
wird.
Manuell oder mit Makro kannst Du weitere Blätter hinzufügen,
die Anzahl ist nur vom verfügbaren Speicher abhängig.
Gruß Sepp
@Nepomuk+Sepp
01.02.2004 09:01:00
helena
Vielen Dank Nepomuk klappt hervorragend, die Optionen kannte ich
SEPP wenn File NEU Anzahl Blätter kannte ich natürlich, nach oben hin frei
nur nach Arbeitsspeicher in diesem Falle die HD und dies ist kein Problem
Vielen Dank noch und einen wunderschönen Tag (die Sonne scheint mir ins Gesicht)
wünscht Euch
helena
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige