Tabellenblätter gem. Raumbuch automatisch anlegen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub BlätterAusListeErstellen() Dim x As Long Application.ScreenUpdating = False With Worksheets("Räume") For x = 10 To 40 'anpassen Sheets("Raumvorlage").Copy After:=Sheets(Sheets.Count) Sheets("Raumvorlage (2)").Select Sheets("Raumvorlage (2)").Name = .Cells(x, 3).Text Next End With Application.ScreenUpdating = True End Sub

Sub BlätterAusListeErstellen() Dim x As Long Application.ScreenUpdating = False With Worksheets("Räume") For x = 10 To 40 'anpassen Sheets("Raumvorlage").Copy After:=Sheets(Sheets.Count) Sheets("Raumvorlage (2)").Select Sheets("Raumvorlage (2)").Name = .Cells(x, 3).Text ActiveSheet.Range("F2") = ActiveSheet.Name Next End With Application.ScreenUpdating = True End Sub

Sub BlätterAusListeErstellen() Dim x As Long, Strg As String Application.ScreenUpdating = False With Worksheets("Räume") For x = 10 To 40 'anpassen Sheets("Raumvorlage").Copy After:=Sheets(Sheets.Count) Sheets("Raumvorlage (2)").Select Sheets("Raumvorlage (2)").Name = .Cells(x, 3).Text Strg = ActiveSheet.Name ActiveSheet.Range("F2").NumberFormat = "@" ActiveSheet.Range("F2").Value = Strg Next End With Application.ScreenUpdating = True End Sub

Hallo
hier erstmal ein Vorschlag ohne .Select
Code gehört in ein Modul


Sub BlätterAusListeErstellen()
Dim x As Long, Strg As String
Application.ScreenUpdating = False
With Worksheets("Räume")
For x = 10 To 40 'anpassen
Sheets("Raumvorlage").Copy After:=Sheets(Sheets.Count)
Sheets("Raumvorlage (2)").Name = .Cells(x, 3).Text
Strg = ActiveSheet.Name
ActiveSheet.Range("F2").NumberFormat = "@"
ActiveSheet.Range("F2").Value = Strg
Next
End With
Application.ScreenUpdating = True
End Sub

Variablen deklarieren:

Dim x As Long, Strg As String
Schau Dir in der Hilfe die Datentypen an. Dort wird der Wertebereich beschrieben und der
reservierte Speicherbedarf angezeigt
Der Datentype LONG reserviert 4 Byte
und hat den Wertebereich: -2.147.483.648 bis 2.147.483.647
Der DatenType STRING gibt hingegen nur Text zurück und hat einen
Wertebereich von: 1 bis ca. 65.400
Deklaruiere also immer nach der Sub() - Zeile die Variablen,
damit Excel den entsprechenden Speicherplatz reserviert.

dazu folgendes Beispiel:


Sub Beispiel()
Dim X As Byte
For X = 1 To 256
Cells(X, 1) = X
Next
End Sub

Dieser Code verursacht einen Überlauf, da X als Byte deklariert ist
Byte hat aber nur einen Wetebereich von 1-255 und reserviert wird 1 Byte
Die Schleife hingegen geht aber bis 256
Fazit: Du solltest also die Variable X mind. als Integer daklarieren
Dim X As Integer
Integer hat den Datenbereich von: -32.768 bis 32.767 und reserviert werden 2 Byte

ansonsten steht das alles in der ExcelHilfe (F1).
Solle es immer noch Probleme geben, lad die Mappe hoch.
Gruß Matthias

Sub BlätterAusListeErstellen() Dim x As Integer, Strg As String 'Application.ScreenUpdating = False With Worksheets("Räume") For x = 10 To 40 'anpassen Sheets("Raumvorlage").Copy After:=Sheets(Sheets.Count) If .Cells(x, 3).Text = "" Then Exit For End If Sheets("Raumvorlage (2)").Name = .Cells(x, 3).Text Strg = ActiveSheet.Name ActiveSheet.Range("F2").NumberFormat = "@" ActiveSheet.Range("F2").Value = Strg Next End With 'Application.ScreenUpdating = True End Sub

Hallo

Zitat:
Vielleicht kann einer von Euch beiden noch die Lösung für für zuvor beschriebene Fehlerroutine, die eine Überschreiben bereits angelegter Tabellenblätter verhindert, in das Makro einbinden?

Nein, das habe ich so nicht geschrieben. Es wird kein Tabelleblatt überschrieben.
Sollte ein Blatt mit dem entsprechendem Namen schon vorhanden sein,
wird von Excel ein Fehler zurückgegeben.
Deshalb der Vorschlag eine Fehlerroutine einzuarbeiten.
Hier habe ich ein Beispiel erstellt:
https://www.herber.de/bbs/user/56873.xls
In einer inneren Schleife werden alle Blattnamen verglichen
Existiert also ein Blattname schon wird über Goto das Next der äußeren Schleife aufgerufen.
Solltest Du etwas nicht verstanden haben, dann frage ruhig nach. Ich erkläre Dir dann die einzelnen Schritte im Programmcode.
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Tabellenblätter gem. Raumbuch automatisch anlegen

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Variablen deklarieren:

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread