Home VBA Makro Beispiele Worksheets VBA - Tabellenblatt anlegen - On Error
VBA - Tabellenblatt anlegen - On Error PDF Drucken E-Mail
Geschrieben von: Marcus Rose   
Dienstag, 18. Oktober 2011 um 16:52 Uhr

Ich bin ja eigentlich kein Freund vom Errorhandler ... aber in diesem Fall habe ich mich belehren lassen ...

 

Wir wollen auch bei diesem Beispielcode ein Worksheet, ein Tabellenblatt, anlegen lassen. Was wir gar nicht wollen sind Rückfragen (existiert das Tabellenblatt? - sage ja oder nein), sondern das Worksheet soll einfach angelegt werden. Auf gut deutsch ... wir provozieren einfach den Fehler - das Tabellenblatt wird angelegt - und wir springen wieder zurück an die Stelle, wo der Fehler aufgetreten ist.

 

In dem Makro, was ich euch jetzt hier zeige, möchte ich dass jeden Tag ein Tabellenblatt angelegt wird. Hintergrund könnte sein, dass wir von einem Deckblatt unsere Einnahmen in das Worksheet mit dem Namen des aktuellen Datums kopieren wollen. Es wird aber auch im Text aufgezeigt, dass man mit einer Inputbox arbeiten könnte ...

Legt dieses Makro einmal in ein Modul und startet es ...

 

Sub Tabelle_mit_Name_anlegen()
Dim WSName As String
WSName = Date
'oder
'WSName = InputBox("Bitte Tabellenblattnamen eingeben")
On Error GoTo anlegen
'Bei Fehler gehe nach anlegen:
Sheets(WSName).Select
Exit Sub

anlegen:
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = WSName
    Resume
    'Tabellenblatt wird angelegt - Code wird bei Fehlermelder
    'neu gestartet
End Sub
 
Copyright © 2017 ms-excel.eu. Alle Rechte vorbehalten.
 

Autoren - Login

Werbung

wichtige Links:
http://ms-excel.eu
Hier habt Ihr eine gute Excel Hilfe
Besucherstatistik
Besucher gesamt: 4.476.138
Besucher heute: 1.585
Besucher gestern: 1.981
Max. Besucher pro Tag: 4.488
gerade online: 11
max. online: 507
counter Statistiken