3.2 Excel-VBA Tabellenblätter hinzufügen; Zellinhalte, Spalten, Zeilen löschen / Add table sheets;

See English Version below!

Sub Löschen()

'Neues Tabellenblatt
With ThisWorkbook 'Hier wird die aktuelle Arbeitsmappe angesprochen

'.Sheets.Add after:=Sheets(Worksheets.Count) 'Hier wird ein neues Tabellenblatt nach dem leztzten Tabellenblatt eingefügt
'.ActiveSheet.Name = "Neu" 'Hier wird der Name des aktiven Tabellenblatts mit "Neu" definiert

End With

'Zeilen/ Spalten löschen, Zellinhalte löschen

With Sheets(1)

.Range("H1:J10").ClearContents 'Hier wird der Inhalt des Breichs von H1 bis J10 gelöscht
.Range("C:C").Delete 'Hier wird die Spalte C gelöscht
.Range("5:5").Delete 'Hier wird die Zeile 5 gelöscht

End With

End Sub

English Version:

Sub Löschen()

'New spreadsheet
With ThisWorkbook 'Here the current workbook is addressed

'.Sheets.Add after:=Sheets(Worksheets.Count) 'Here a new sheet is inserted after the last sheet
'.ActiveSheet.Name = "New" 'Here the name of the active sheet is defined with "Neu"

End With

'Delete rows/columns, delete cell contents

With Sheets(1)

.Range("H1:J10").ClearContents 'Here the contents of the range from H1 to J10 are deleted
.Range("C:C").Delete 'Here the column C is deleted
.Range("5:5").delete 'Here the line 5 is deleted

End With

End Sub