ich füge mit einem Makro neue Tabellenblätter ein. Um zu prüfen, ob ein Tabellenblattname nicht schon vorhanden ist, habe ich folgenden Code geschrieben:
a = Worksheets.Count
For i = 1 To a
If Sheets(i).Name = .Range("K5").Value Then
MsgBox ("Produktname schon vorhanden! Bitte wählen Sie einen anderen Namen!")
Exit Sub
End If
Next i
Zur Erklärung:In Zelle 'K5' steht der Name, den das neue Blatt haben soll.
Da es leider nicht funktioniert, muss zumindest ein Fehler drin sein - oder ich hab einfach totalen Müll zusammen gebastelt?! Kann mir da jemand weiterhelfen? Ich danke schon mal! :-)
Gruß
Gordon