Ik vind even onderstaande vaag en snap het niet. Het gaat om het vetgedrukte. Als ik .Range ("C28") aan pas in Select dan werkt het weer wel alleen dan kom ik niet direct bij de fout, maar krijg ik een melding voor foutopsporing. Bij het opsporen verschijnt de code en staat het vetgedrukte ge-high light. Wat mij ook opvalt is de ontstane spatie tussen Range en ("C28").
Kan iemand mij uitleg geven?
Kan iemand mij uitleg geven?
Code:
Sub Tabblad_Factuur()
'Knop
Select Case Sheets("Factuur maken").Range("C28")
Case Is = ""
Select Case MsgBox("Er is een fout in de opmaak van de factuur." & vbNewLine & vbNewLine & "Controleer of de factuur de volgende gegevens bevat:" & vbNewLine & vbNewLine & " - Factuurtype" & vbNewLine & " - Opvolgend factuurnummer" & vbNewLine & vbNewLine & "Wilt u de fout herstellen?", vbYesNo + vbInformation, "Fout in factuuropmaak")
Case Is = vbYes
[B]Sheets("Factuur maken").Range ("C28")[/B]
Case Is = vbNo
Exit Sub
End Select
Case Else
Sheets("Factuur").Select
End Select
End Sub
Laatst bewerkt: