Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheetnamen vergleichen

Worksheetnamen vergleichen
15.02.2005 20:48:10
Cycrow
Hallo, ich möchte in enem Workbook per Button ein weiteres Worksheet hinzufügen.
soweit so einfach.
Die Tabellenblätter haben alle einzelne Namen.
Bevor es wirklich erstellt wird, erzeuge ich den Namen und will nachsehen, ob dasWorksheet schon existiert. Und an der Stelle hängts.
folgender Code:
actualname = KurzJahr & " " & CBMonatswahl.Value


'Kontrolle, ob Worksheet schon existiert
For i = 1 To ThisWorkbook.Sheets.Count
If Sheets(i).Name = actualname Then
CreateNewSheet = False
Exit For
End If
Next i



If CreateNewSheet = True Then ...

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheetnamen vergleichen
15.02.2005 20:56:04
Josef
Hallo ? (realnames sind hier üblich und erwünscht)
Z.B. so!

Option Explicit
Sub neuesBlatt()
Dim actualname As String
Dim blnChk As Boolean
actualname = KurzJahr & " " & CBMonatswahl.Value
'Kontrolle, ob Worksheet schon existiert
blnChk = SheetExist(actualname)
If Not blnChk Then
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = actualname
End If
End Sub
Private Function SheetExist(ByVal sheetName As String, Optional WbName As String) As Boolean
Dim wks As Worksheet
On Error GoTo ERRORHANDLER
If WbName = "" Then WbName = ThisWorkbook.Name
For Each wks In Workbooks(WbName).Worksheets
If wks.Name = sheetName Then SheetExist = True: Exit Function
Next
ERRORHANDLER:
SheetExist = False
End Function

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Worksheetnamen vergleichen
16.02.2005 21:57:52
Sönke
Danke, hat funtioniert.
AW: Worksheetnamen vergleichen
15.02.2005 21:13:31
Sönke
Sorry, angewohnheit aus anderem Foren, is aber ken Prob.
Ich teste nachher mal den Code.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige