gegevens vanuit userform kopieren naar (te kiezen) werkblad

[nhojnavslig]

Hallo allemaal,
Wij zijn op het werk bezig met het inzichtelijk maken van de performance van een machine, ik heb hiervoor een userform gemaakt om eea te registreren.
ik heb een vraag mbt het wegschrijven van de gegevens vanuit dit userform naar een werkblad.
In de huidige situatie word de inhoud van het userform als dit is ingevuld naar blad2 gekopieerd, ....
wat ik wil bereiken is dat bij de kopieeractie, ... er een dialoogschermpje verschijnt waarin ik een naam kan ingeven van het werkblad waar de gegevens heen moeten, en dat dit blad vervolgens aangemaakt word.
Kan iemand me hierbij helpen, .. ?

MvG,
John

 

[HSV]

Heb je het verkeerde bestand geplaatst?

 

[nhojnavslig]

ehh, nee hoezo ? klopt er iets niet ?

 

[HSV]

Er is geen Userform.

 

[nhojnavslig]

Nee ik snap nu wat je bedoeld, ... inderdaad, dat is inderdaad geen userform (maar is het toch mogelijk)

 

[HSV]

Probeer het zo maar eens.

Sub kopieer1()
Dim box As Variant
 box = Application.InputBox("Naar welk blad", "Invullen", , , , , , 1 + 2)
     If box <> False And box <> "" Then
     If IsError(Evaluate("'" & box & "'!A1")) Then Sheets.Add(, Sheets(Sheets.Count)).Name = box
        With Sheets(box).Range("B2")
            .Parent.Cells.Clear
      Sheets("Blad1").Range("F8:J25").Copy
        .PasteSpecial xlPasteFormats
        .PasteSpecial xlPasteValues
     Sheets("Blad1").Range("H28:J30").Copy .Parent.Range("D21")
  End With
 End If
End Sub

 

[nhojnavslig]

Hoi Harry,

Werkt perfekt, maar dat wist jij natuurlijk al, ....
Hartelijk bedankt voor de hulp !!

Grtz,
John

 

[HSV]

Ach, je weet maar nooit wat de wensen zijn John.
Bedankt voor je reactie.