tabbladnaam aanpaasen aan waarde in cel

[HSV]

Test het zo maar eens weer.

Dim check As Boolean
Private Sub worksheet_calculate()
If check = False Then
    If IsError(Evaluate("'" & Range("b3") & "-" & Range("E3") & "'!a1")) Then
        check = True
           ActiveSheet.Name = Range("B3") & "-" & Range("E3")
           Exit Sub
        Else
           check = True
           MsgBox "Bladnaam al aanwezig"
           Exit Sub
        End If
  End If
 check = False
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If check = False Then worksheet_calculate
End Sub

 

[Friend]

Harry,

De code werkt :thumb: en verandert de naam van het tabblad + voegt daar de vermelding in cel E3 aan toe als ik via het filter B3 een rekeningnummer kies.

De code werkt niet als ik via B3 zelf een rekeningnr in type. Kan het dat ik beide mogelijkheden kan gebruiken?

Is het ook mogelijk als ik de extra vermelding in E3 weghaal dat de tabnaam dan ook weer verandert naar alleen de waarde van B3? (en ook het streepje verdwijnt?)

Veel dank

Friend

 

[HSV]

De code werkt ook als je in B3 zelf iets typt.

 

[Friend]

Harry,

Je hebt volkomen gelijk !!!!!!! :thumb::thumb::thumb:

Dat heb je als je teveel dingen tegelijkertijd wilt doen.

Dan toch nog vrijmoedig vraagje of de toevoeging van E3 met het streepje "- "er weer af kan als ik E3 leegmaak

Als ik nu een nieuw rekeningnummer kies dan blijft het streepje ook staan bij de nieuwe naam op het tabblad ook als e3 leeg is.

Friend

 

[HSV]

Verander de gehele code in.

Private Sub worksheet_calculate()
  If IsEmpty(Range("E3")) Then
      ActiveSheet.Name = Range("B3")
   Else
      ActiveSheet.Name = Range("B3") & "-" & Range("E3")
  End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B3")) Is Nothing Then
     worksheet_calculate
    End If
End Sub

 

[Friend]

Harry,

Gaat heel goed, heel mooi goed zelfs ... alleen als ik het reknr in type in B3 en er staat iets in E3 dan plakt hij het er niet achteraan bij de naam van het tabblad.

Friend

 

[HSV]

Werkt hier prima.

 

[Friend]

Harry,

Geweldig, prima, hartelijk dank :thumb::thumb:

Werkt zoals we het willen , door jouw voorbeeldje zag ik dat ik wat oude "code-rommel" in het geheel had staan

Thanks again we kunnen weer verder weer wat geleerd.

Friend