Thema Datum  Von Nutzer Rating
Antwort
06.08.2024 15:20:46 Emil
Solved
06.08.2024 15:32:10 ralf_b
NotSolved
06.08.2024 16:20:11 Emil
NotSolved
07.08.2024 00:05:16 ralf_b
NotSolved
Rot Spalte durchsuchen ob Wert vorhanden
07.08.2024 08:12:08 Emil
NotSolved
07.08.2024 09:02:56 Emil
Solved
07.08.2024 11:00:11 ralf_b
Solved
08.08.2024 15:22:35 Emil
Solved

Ansicht des Beitrags:
Von:
Emil
Datum:
07.08.2024 08:12:08
Views:
80
Rating: Antwort:
  Ja
Thema:
Spalte durchsuchen ob Wert vorhanden

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.08.2024 15:20:46 Emil
Solved
06.08.2024 15:32:10 ralf_b
NotSolved
06.08.2024 16:20:11 Emil
NotSolved
07.08.2024 00:05:16 ralf_b
NotSolved
Rot Spalte durchsuchen ob Wert vorhanden
07.08.2024 08:12:08 Emil
NotSolved
07.08.2024 09:02:56 Emil
Solved
07.08.2024 11:00:11 ralf_b
Solved
08.08.2024 15:22:35 Emil
Solved