wohin gehört Blatt umbenennen?
Jörg-HH
Ich möchte eine Meldung bekommen, wenn ein Blatt mit einem Namen benannt wird, der nicht in einem Dantenbankbereich in Tabelle35, Spalte 2 auftaucht (denn dann wurde vergessen, den Namen vorab einzupflegen). Das klappt im Prinzip mit diesem Code, wenn ich ihn in VBA anstoße. Aber wenn ich dann tatsächlich ein Blatt umbenenne, passiert nix. Also steht der Code wohl an falscher Stelle. Ich hab es schon in einem Modul und im SheetChange probiert - kein Erfolg.
Wohin muß der Code, oder womit muß ich ihn noch ergänzen, damit er dann läuft, wenn ich einen Blattnamen vergebe?
Grüße - Jörg
Public Sub BlätterBenennen()
Dim ws As Worksheet, wks As Worksheet, Zeile As Long
Set wks = Tabelle35 '=Blatt DBank
For Each ws In ThisWorkbook.Worksheets
If ws.Index > ThisWorkbook.Worksheets("Formular").Index And ws.Index wks.Cells(Zeile, 1).Value Then
MsgBox "bubu"
End If
Next Zeile
End If
Next ws
End Sub