|
Es lag mir fern andere die Arbeit machen zu lassen ich hätte nur an einen etwas besser beschriebenen Ansatz gedacht und nicht hier Köter friss oder stirb.
Es gibt auch noch blutige Anfänger hier die auf solchen Grundlagen starten wollen. Aber vielleicht ist es ja Deine Art, dann isses halt so ...... nix für ungut....
Aber weiter im Text
ich habe mir meine Gedanken gemacht und gelesen
Für alle anderen die eventuell helfen wollen.
Ich bin jetzt soweit, dass die Abfrage ob ne Nummer in der Spalte vorhanden ist läuft. Ja es gibt sicherlich auch andere Ansätze aber es läuft :-)
Jetzt vergleicht das Makro auch ob diese Nummer auch als Tab-name erxistiert, wenn ja benenne es um, wenn nicht kommt ein Fehler, auch gut aber den wollte ich wie folgt abfangen und eine MsgBox meldung aufpoppen lassen.
Leider bring er weiterhin die Fehlermeldung "Subscript out of range" ist ja logisch die Seite heist auch anders.
Hier mein Code
Option Explicit
Private Sub CommandButton1_Click()
Dim str As String 'actual cell value
Dim exist As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'******read-out Part no ***************
str = ActiveCell.Value
'MsgBox str ' only for test
'*************************************
'***************Check if Part number still exist - Update Main data and Rename Tab **********************
Set exist = Range("Part_no.").Find(What:=TextBox1.Value) '********Column C3:C25
If exist = TextBox1.Value Then
'MsgBox exist only for test
MsgBox "Part no does still exist in row" & exist.Address
Else
Worksheets(str).Activate
On Error GoTo Err_RenameWorksheetFailed
ActiveCell.Value = TextBox1.Value
ActiveSheet.Name = TextBox1.Value
End If
'************************************************
Err_RenameWorksheetFailed:
MsgBox "Page not existing check Tab name"
Application.ScreenUpdating = True
End Sub
Vielleicht mag ja der ein oder andere einmal eine Tipp geben warum "On ERROR GoTo .... " hier nicht funktioniert
Danke
|