Arbeitsblatt per Inputbox benennen
03.03.2003 12:49:36
Ano Nym
ich habe folgendes Problem:
Ich habe folgendes kleine Makro geschrieben, welches mir ermöglicht, von einem Vorlagenarbeitsblatt eine Kopie zu erstellen, welches durch eine Inputbox mit einer Rechnungs-
nummer benannt wird. Klappt ja auch alles prima. Gibt man
aber versehentlich mal eine bisher schon verwendete Rechnungs-
nummer in der Inputbox ein kommt es zum Crash - klar der Arbeits-blattname existiert ja schon. Also müsste in diesem Makro bei der Inputboxeingabe überprüft werden, ob dieser Blattname schon existiert - wie kann ich das bewerkstelligen??? Danke für eure Hilfe. Hier wäre mein bisheriger Code:
Sub Eingabe()
Dim wert01 As String
wert01 = Inputbox("Bitte geben Sie die db/cos-Nummer an:", "Disko B - Chicks on Speed Rec.")
If wert01 = "" Then
Exit Sub
Else
Sheets("Vorlage").Select
Sheets("Vorlage").Copy After:=Sheets(2)
Sheets("Vorlage (2)").Select
Sheets("Vorlage (2)").Name = wert01
Range("F8:J8").Select
ActiveCell.FormulaR1C1 = wert01
End If
End Sub
Anzeige