nur ein Tabellenblatt erlauben

Martin · 2005-07-07T15:27:54+00:00

Hallo wie kann ich verhindern, dass jemand ein neues Tabellenblatt erstellt. Damit soll erzwungen werden, dass pro Meldung immer ein neues Meldeblatt in den Ordner gestellt wird, weil andernfalls die der Zusammenzug auf eine Übersichtsmappe nicht fehelfrei funktioniert. Also nochmals: in der Datei nur ein Tabellenblatt mit dem folgenden Namen "Meldeblatt" erlauben. Gruss Martin

Hallo Martin, hallo Uwe,
Uwe hat völlig recht. Bei vertauschter Reihenfolge wird das falsche Blatt gelöscht. Ich hab daher eine weitere Variante geschrieben, in der ich die Blätter über den Namen anspreche, wie von Uwe vorgeschlagen. Gibt es nur 1 Blatt, wird dieses "Meldedaten" benannt und die Datei wird gespeichert. Gibt es mehrere Blätter und eines heißt "Meldedaten", werden die anderen Blätter gelöscht und die Datei wird gespeichert. Gibt es kein Blatt mit dem Namen "Meldedaten", wird der User aufgefordert eines der Blätter entsprechend zu benennen und die Datei wird nicht gespeichert.


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Object, BName As String
If ThisWorkbook.Sheets.Count > 1 Then
For Each sh In ThisWorkbook.Sheets
If sh.Name = "Meldeblatt" Then BName = "Meldeblatt"
Next sh
If BName = "Meldeblatt" Then
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Meldeblatt" Then
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End If
Next sh
Else
MsgBox ("Die Datei enthält mehrere Blätter. " & _
"Es kann jedoch nur ein Blatt gespeichert werden. " & _
"Um die Datei speichern zu können, müssen Sie dem zu speichernden Blatt " & _
"den Namen " & Chr$(34) & "Meldedaten" & Chr$(34) & " geben. Alle anderen Blätter " & _
"werden gelöscht. Kopieren Sie diese Blätter daher vor dem Speichern jeweils in " & _
"eine eigene Datei.")
Cancel = True
End If
Else
ThisWorkbook.Sheets(1).Name = "Meldedaten"
End If
End Sub

Gruß Ingolf

Hallo Ingo
vorest nochmals vielen Dank für Deine Hilfe.
Die folgende Lösung habe ich nun eingegeben:


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Object, BName As String
If ThisWorkbook.Sheets.Count > 2 Then
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Meldeblatt" And sh.Name <> "Querry" Then BName = "Treffer"
Next sh
If BName = "Treffer" Then
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Meldeblatt" And sh.Name <> "Querry" Then
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End If
Next sh
Else
MsgBox ("Die Datei enthält mehrere Blätter. " & _
"Es kann jedoch nur ein Blatt gespeichert werden. " & _
"Um die Datei speichern zu können, müssen Sie dem zu speichernden Blatt " & _
"den Namen " & Chr$(34) & "Meldedaten" & Chr$(34) & " geben. Alle anderen Blätter " & _
"werden gelöscht. Kopieren Sie diese Blätter daher vor dem Speichern jeweils in " & _
"eine eigene Datei.")
Cancel = True
End If
Else
ThisWorkbook.Sheets(1).Name = "Meldeblatt"
ThisWorkbook.Sheets(2).Name = "Querry"
End If
End Sub

aber die Fehlermeldung wird nicht angezeigt sondern sofort gelöscht.
Muss ich die Else Anweisung verschieben?
Danke
Martin

Forumthread: nur ein Tabellenblatt erlauben

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

nur ein Tabellenblatt erlauben

Forumthread: nur ein Tabellenblatt erlauben

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread