Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
352to356
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
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblatt ohne Rückfrage löschen

Tabellenblatt ohne Rückfrage löschen
23.12.2003 13:56:28
andif
Hallöchen, ich bins nochmal...

eine andere Frage: Habe ein Sub, das Tabellenblätter selbständig erstellt. Läuft auch super. :)

Aber wenn die Mappe einmal zusammengestellt wurde und das Makro nochmal aufgerufen wird gibt es eine VBA-Fehlermeldung (und Panik unter den Kollegen!)

Der ErrorHandler fängt das jetzt zwar ab, erstellt trotzdem eine Tabelle "leer(2), da der Fehler erst danach, beim Umbenennen entsteht.

Wenn ich sie mit delete löschen will, bekomme ich eine "Sind sie wirklich sicher???" - Abfrage.

Beides nicht sehr Benutzer- und Kollegenfreundlich. Weiß jemand Rat? Zum besseren Verständnis hänge ich das Programm an.

Gruß
andi


Sub TabellenblätterErstellen()
Dim x As Integer
Dim strName As String
Dim bytZeile As Byte
Dim strAmtsgericht As String
Dim strAktenzeichen As String
Dim strVorname As String
For bytZeile = 2 To 100
Worksheets("Hilfstabelle").Select
Cells(bytZeile, 6).Select
strName = Cells(bytZeile, 3)
strVorname = Cells(bytZeile, 4)
strAktenzeichen = Cells(bytZeile, 2)
strAmtsgericht = Cells(bytZeile, 5)
On Error GoTo ErrorHandler
If ActiveCell.Value = "ja" Then
x = Worksheets.Count
Sheets("leer").Select
Sheets("leer").Copy After:=Sheets(x)
Sheets(Worksheets.Count).Select
Sheets(Worksheets.Count).Name = Sheets("Hilfstabelle").Cells(bytZeile, 3).Value
Sheets(Worksheets.Count).Cells(2, 2) = strName
Sheets(Worksheets.Count).Cells(3, 2) = strVorname
Sheets(Worksheets.Count).Cells(4, 2) = strAktenzeichen
Sheets(Worksheets.Count).Cells(5, 2) = strAmtsgericht
End If
Next bytZeile
ErrorHandler:
MsgBox "Die Arbeitsmappe wurde bereits zusammengestellt"
ActiveSheet.Delete
Exit Sub
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Application.DisplayAlerts = False (o.T.)
23.12.2003 14:00:48
.
.
So einfach????? Danke, funktioniert :) (oT)
23.12.2003 14:05:16
andif
.
Vergiss nicht, es wieder auf True zu setzen! oT
23.12.2003 14:06:20
Boris
Grüße Boris
Ups, hätte ich fast vergessen!!! :-o
23.12.2003 14:16:45
andif
.
kein problem :-) mich wurde auch schon gehülft.
23.12.2003 14:06:24
soendi
büddeschön!! :))

soendi
Anzeige

232 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige