| VBA-Beispiel 004 | |
|
|
mit vba Tabelle einfügen und Name vergeben |
|
| Das Makro fügt eine neue Tabelle in die Arbeitsmappe ein. Der Blattname wird über eine InputBox festgelegt. Danach überprüft das Makro ob eine Tabelle mit dem eingebenen Namen schon existiert. Falls ja, erscheint eine Meldung und das Makro wird abgebrochen. | |
|
Sub Blatterstellen() Dim wks As Worksheet Dim neu As String neu = InputBox("Bitte geben Sie einen Namen ein:") If neu = ("") Then Exit Sub End If For Each wks In ThisWorkbook.Worksheets If wks.Name = neu Then MsgBox "Blattname existiert schon !", vbInformation, _ "A C H T U N G ! ! !" Exit Sub End If Next wks Sheets.Add ActiveSheet.Name = neu End Sub |
|
|
Download: vba004.zip |
|
relevante Links:
|
|
| |