Een fout bij Else

[kozijntje11]

Ik ben niet een code bezich maar hij geef een fout bij Else
hier vraagt hij om (Else met If) ???????
hier onder heb ik de code geplakt

Private Sub CommandButton2_Click()
  If TextBox1.Value <> "" Then
    If Not SheetExists(TextBox1.Value) Then
      Dim Origineel As Worksheet
    End If
      Set Origineel = Sheets(OrigineelBladNaam)

    End If
        Call MaakBlad
    
        Else
      MsgBox "Er is al een kant met deze naam: " & TextBox1.Value, vbCritical, "Fout"
End Sub

alvast bedankt ( beginner excel )

 

[huijb]

Probeer een zo duidelijke mogelijke titel te verzinnen. "Wie kan me helpen" zegt weinig over je probleem. Titel is aangepast.

 

[Cobbe]

Private Sub CommandButton2_Click()
  If TextBox1.Value <> "" Then
    If Not SheetExists(TextBox1.Value) Then
      Dim Origineel As Worksheet
    End If
      Set Origineel = Sheets(OrigineelBladNaam)

          Call MaakBlad
    
        Else
      MsgBox "Er is al een kant met deze naam: " & TextBox1.Value, vbCritical, "Fout"
 End If
End Sub

Als de rest van uw code correct is zou het nu moeten werken.

Succes, Cobbe

 

[kozijntje11]

ik krijg nu de fout melding niet meer maar als ik nu twee de zelfde klante in vul krijg ik de melding van MsgBox niet in beeld .


gr johan

 

[HSV]

Hallo Johan,

Waarschijnlijk is je bestand niet zo groot, en kun je het uploaden.
Er zijn maar weinig die alles na willen bootsen.

Taal of schrijffouten vind ik persoonlijk niet heel erg (ik zal ze ook wel maken), en ik maak daar weinig of nooit opmerkingen over, maar 'bezich' is toch echt met een 'g' aan het eind en zonder 'ch'.
En 'kant' zal wel 'klant' moeten zijn (MsgBox).
'Ik ben niet een code' zal wel 'Ik ben met een code' moeten zijn.
Ik weet dat sommige helpers dan afhaken; dus doe er je voordeel mee met mijn kritiek.

 

[RB_online]

En zo dan?
Is echter wel ongetest

Private Sub CommandButton2_Click()
  If TextBox1.Value <> "" Then
     If Not SheetExists(TextBox1.Value) Then
       Dim Origineel As Worksheet
              Else
       MsgBox "Er is al een kant met deze naam: " & TextBox1.Value, vbCritical, "Fout"
       exit sub
     End If 
      Set Origineel = Sheets(OrigineelBladNaam)
            Call MaakBlad
  End If
 End Sub

Gr. René

 

[kozijntje11]

dankje het werk :thumb::thumb:

nu kan ik het af maken

gr johan