Wie erstelle ich ein Blatt, wenn es nicht in der Arbeitsmappe vorhanden ist?
Angenommen, Sie haben eine Arbeitsmappe, die mehrere Arbeitsblätter enthält. Jetzt müssen Sie feststellen, ob ein bestimmter Arbeitsblattname vorhanden ist. Wenn der Arbeitsblattname nicht existiert, erstellen Sie ihn bitte. Wenn es vorhanden ist, senden Sie bitte eine sofortige Nachricht, um Ihnen mitzuteilen, dass das Blatt vorhanden ist. Wie könnten Sie diese Aufgabe in Excel lösen?
Erstellen Sie mit VBA-Code ein Blatt, falls es nicht in der Arbeitsmappe vorhanden ist
Erstellen Sie mit VBA-Code ein Blatt, falls es nicht in der Arbeitsmappe vorhanden ist
Der folgende VBA-Code kann Ihnen dabei helfen, zu überprüfen, ob ein bestimmter Arbeitsblattname in der Arbeitsmappe vorhanden ist. Wenn nicht, erstellt der Code das Blatt möglicherweise nach Bedarf.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Erstellen Sie ein Blatt, falls es nicht in der Arbeitsmappe vorhanden ist:
Sub TestSheetCreate()
'Updateby Extendoffice
Dim newSheetName As String
Dim checkSheetName As String
newSheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
"sheet4", , , , , 2)
On Error Resume Next
checkSheetName = Worksheets(newSheetName).Name
If checkSheetName = "" Then
Worksheets.Add.Name = newSheetName
MsgBox "The sheet named ''" & newSheetName & _
"'' does not exist in this workbook but it has been created now.", _
vbInformation, "Kutools for Excel"
Else
MsgBox "The sheet named ''" & newSheetName & _
"''exist in this workbook.", vbInformation, "Kutools for Excel"
End If
End Sub
3. Und dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, erscheint ein Eingabeaufforderungsfeld, das Sie daran erinnert, den Blattnamen einzugeben, den Sie überprüfen möchten, siehe Screenshot:
4. Dann klick OK Button:
(1.) Wenn das Blatt vorhanden ist, erscheint ein Eingabeaufforderungsfeld, das Sie daran erinnert, wie im folgenden Screenshot gezeigt:
(2.) Wenn das Blatt nicht existiert, wird es sofort erstellt, siehe Screenshot:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!