Worksheetnamen vergleichen

Bild

Betrifft: Worksheetnamen vergleichen
von: Cycrow
Geschrieben am: 15.02.2005 20:48:10
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 ...

Bild

Betrifft: AW: Worksheetnamen vergleichen
von: Josef Ehrensberger
Geschrieben am: 15.02.2005 20:56:04
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!
Bild

Betrifft: AW: Worksheetnamen vergleichen
von: Sönke Gilbrich
Geschrieben am: 16.02.2005 21:57:52
Danke, hat funtioniert.
Bild

Betrifft: AW: Worksheetnamen vergleichen
von: Sönke Gilbrich
Geschrieben am: 15.02.2005 21:13:31
Sorry, angewohnheit aus anderem Foren, is aber ken Prob.
Ich teste nachher mal den Code.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Worksheetnamen vergleichen"