Ich habe bei folgenden Makro ein Problem:
Wird ein Wert in der InputBox doppelt eingegeben kommt beim zweiten mal eine Fehlermeldung. Wäre es möglich, das das Makro hier abbricht und eine Meldung kommt "Tabellenblatt gibt es bereits" ? Auch wäre es schön, wenn das Makro abbricht, wenn es den Wert in Spalte J (10) nicht gibt.
Option Explicit
Sub tabelle15062002()
Dim TB As Worksheet
Dim Nummer$
Application.ScreenUpdating = False
Set TB = ActiveSheet
Range("A1").Select
Nummer = InputBox("Klasse eingeben:")
If Nummer = "" Then Exit Sub
ActiveCell.CurrentRegion.AutoFilter
Selection.AutoFilter Field:=10, Criteria1:=Nummer
Columns("A:N").Copy
Worksheets.Add before:=Worksheets(7)
ActiveSheet.Paste
Range("A1").Select
ActiveSheet.Name = Nummer
TB.Range("A1").AutoFilter
Worksheets(Nummer).Select
Range("A1").Select
Columns("A:N").AutoFit
Application.ScreenUpdating = True
End Sub
Vielen Dank!
Tschüß
Rolf