VBA neues Tabellenblatt erstellen

Question

Hallo,

ich möchte die Rechenergebnisse eines Programms auf einem neuen Tabellenblatt "Protokoll" protokollieren. wie müßte der Code lauten um dieses Tabellenblatt meiner Datei hinzuzufügen und anzusteuern?
Danke und Gruß
Andreas

Answer 1

Hallo Andreas,

probier mal das:

Option Explicit

Sub Makro1()
ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)
With Sheets(1)
.Name = "Protokoll"
.Select
End With
End Sub

Gruß
Rainer

Answer 2

Hi Andreas,

ich würde erst prüfen, ob das Tabellenblatt bereits vorhanden ist, denn andernfalls gibt es einen Fehler.

Sub Tabellenblatt()
' prüfen ob Tabelle bereits vorhanden
' wenn nicht vorhanden
If IsError(Evaluate("Protokoll!A1")) Then
' bezogen neues Tabellenblatt
With Worksheets.Add
' ans Ende der Mappe verschieben <== evtl. anpassen
.Move after:=Worksheets(Worksheets.Count)
' Name zuweisen
.Name = "Protokoll"
End With
Else
MsgBox "Tabelle schon vorhanden"
End If
End Sub

Bis später,
Karin

Answer 3

Hallo Rainer, hallo Karin,

prima, klappt! Danke für Eure Vorschläge!!!
Gruß
Andreas