Cel leeg maken

[Louwers]

In een excel sheet heb ik een blad gemaakt "invulblad" met daarin een knop waar gevraagd wordt om een (order)nummer.
Dit nummer wordt opgeslagen in een cel "B3", en er wordt nu een nieuw excelblad aangemaakt met als naam dat (order)nummer, en dat blad wordt geopend. Zover nog niets aan de hand.
Als alle gegevens van de order zijn genoteerd kan het opgeslagen worden.
Maar nu is het probleem dat als ik weer een nieuw blad aan wil maken cel "B3" al een waarde heeft en zodoende het nieuwe blad de naam "Invulblad(2)" gaat noemen.
Als ik weer op het originele blad "Invulblad"ga staan lukt het wel.
Op een of andere manier moet cel "B3"gewist worden, maar ik krijg het niet voor elkaar.
Wie weet hiervoor een oplossing? Alvast bedankt.

 

[Haije]

Louwers,

welkom op Helpmij.nl!

Het is een goede gewoonte om een vraag te illustreren met een Excel-bestand waarin de vraag/het probleem voorkomt.
In jouw geval is het ook van belang welke code er "achter" de knop zit.

Dus graag een bestand bijvoegen. LET OP dat er geen "gevoelige" info in dat bestand staat.

 

[Louwers]

Nu met bijlage

Bekijk bijlage Vaatje.xlsm

 

[edmoor]

Doe dat stukje achter die knop eens zo:

Sub Nieuwinvulblad()
    Dim Ordernummer As String
    Ordernummer = InputBox(prompt:="Ordernummer:")
    If Ordernummer <> Empty Then
        With Sheets("Invulblad")
            .Range("B3") = vbNullString
            .Copy Before:=Sheets(1)
        End With
        ActiveSheet.Name = Ordernummer
    End If
End Sub

 

[Louwers]

Zo werkt het perfect.
Is het nu ook nog mogelijk dat het ingegeven ordernummer ook nog in cel B3 geschreven wordt?
Zonder dat er problemen komen met een nieuw blad aanmaken

 

[edmoor]

Tuurlijk:

Sub Nieuwinvulblad()
    Dim Ordernummer As String
    Ordernummer = InputBox(prompt:="Ordernummer:")
    If Ordernummer <> Empty Then
        With Sheets("Invulblad")
            .Range("B3") = vbNullString
            .Copy Before:=Sheets(1)
        End With
        Range("B3") = Ordernummer
        ActiveSheet.Name = Ordernummer
    End If
End Sub

 

[Louwers]

Helemaal perfect.
Bedankt voor de hulp.

 

[Haije]

Louwers,

zet je de status van deze vraag dan ook nog even op "opgelost"?