Prüfung ob Tabellenblattname bereits vorhanden?
17.06.2004 15:16:59
Oliver
ich komm mal wieder nicht weiter ohne Eure Hilfe. Ich habe eine UserForm, in der ich eine Jahreszahl eingebe. Beim Betätigen des OK-Buttons wird mir ein Tabellenblatt mit dem Namen der eingegebenen Jahreszahl angelegt. Und hier bräuchte ich Hilfe. Ich würde nun gerne vor dem Ertsellen des Blattes prüfen, ob es das Blatt schon gibt. Wenn ja, dann soll eine Meldung erscheinen und die Anweisung soll beendet werden, ansonsten soll das Blatt erstellt werden. Ich schreibe er noch meinen bereits vorhanden Code mit hinein und hoffe, jemand hat Lust und Zeit mir zu helfen,
Hier der Code:
Private Sub CommandButton2_Click()
Unload Jahreszahleingabe
Eingabe = TextBox1
Vorjahr = Eingabe - 1
If Eingabe = "" Or Len(Eingabe) < 4 Then
Select Case MsgBox _
("Die Jahreszahl muss aus 4 Ziffern bestehen. Bitte Jahreszahl erneut eingeben", _
vbOKOnly, "Fehler")
Case 1 'Schaltfläche OK
SendKeys "{TAB}"
SendKeys "{TAB}"
End Select
End If
If Len(Eingabe) = 4 Then
Worksheets("Vorlage").Visible = True
Sheets("Vorlage").Copy Before:=Sheets("Vorlage")
Sheets("Vorlage (2)").Name = Eingabe
Range("G1, Y1") = Eingabe
Worksheets("Vorlage").Visible = False
Call Symbolleiste_löschen
Call Symbolleiste_erstellen
'Auswertung ob es sich um ein Schaltjahr handelt.
If Range("AQ31") = 1 Then 'Wenn in Zelle AQ31 die Zahl 1 steht (es handelt sich um ein Schaltjahr) dann...
Range("D35") = "29" 'Trage in Zelle D35 die Zahl 29 ein.
Range("D35").Select
With Selection
.HorizontalAlignment = xlRight
End With
End If
ActiveSheet.Protect ""
Autovervollständigen_Monat Vorjahr 'Das Makro "Autovervollständigen_Monat" wird aufgerufen
'und die Variable "Vorjahr" wird an das Makro übergeben.
End If
End Sub
Danke Euch schon mal für die Hilfe,
Oliver