Prozedur abbrechen
03.09.2002 09:32:33
boomer
mit dem Makro wird ein neues Tabellenblatt angelegt und mit dem Namen aus C9 Tabelle1 benannt, wenn aber Zelle C9 in Tabelle1 leer ist, soll abgebrochen und kein neues Tabellenblatt angelegt werden.
Vielen Dank im Voraus
Sub neuesBlatt()
Dim WS As Worksheet
Set WS = Worksheets.Add
With WS
.Name = Sheets("Tabelle1").[c9]
.Move after:=Sheets(Sheets.Count)
End With
End Sub