Opgelost Macro cel kopiëren naar verschillende bladen

[Kapschip]

Hoi, ik heb even een vastloper. Op een aantal bladen wil ik een tekst plakken in een aan te geven cel. DIt moet bij een aantal werkbladen herhaald worden en starten vanaf een op te geven werkblad, zie voorbeeldbestand.

Wat doe ik fout, wie kan mij op weg helpen?

Private Sub CommandButton1_Click()

Dim Waarheen As Range
Dim X As Integer

On Error Resume Next
X = Range("c9").Value
Range("H9").Select
Selection.Copy

Set Waarheen = Application.InputBox(prompt:="Waar plakken", Type:=8)
If Waarheen Is Nothing Then Exit Sub

Worksheets(Worksheets("Front").Range("E9").Text).Activate
Waarheen.Select
ActiveSheet.Paste

For e = 1 To X
Sheets(ActiveSheet.Index + 1).Select
Waarheen.Select
ActiveSheet.Paste
Next e

Last: Exit Sub


End Sub

​

Alvast bedankt voor jullie hulp,​

​

Richard​

 

[AHulpje]

Ingewikkelde methode om een cel op verschillende werkbladen een waarde te geven.
Maar afgezien daarvan, je fout treedt hier op:

Worksheets(Worksheets("Front").Range("E9").Text).Activate

Werkblad Front bestaat niet, en die fout wordt niet gesignaleerd omdat je On Error Resume Next hebt gebruikt.

 

[AHulpje]

Probeer het eens zo, maar voeg dan wel eerst werkblad 15 toe:

Private Sub CommandButton1_Click()
    tekst = Range("H9")
    Dim Waarheen As Range
    Set Waarheen = Application.InputBox(prompt:="Waar plakken", Type:=8)
    If Not Waarheen Is Nothing Then
        For e = Range("E9").Value To Range("E9").Value + Range("c9").Value
            Sheets(Format(e, "0")).Range(Waarheen.Address) = tekst
        Next e
    End If
End Sub

 

[HSV]

Druk maar eens op annuleren.
Ook nog een If statement invoegen indien c9 + e9 groter is dan het aantal bladen.

 

[Verwijderd lid 501906]

Hoi, ik heb even een vastloper. Op een aantal bladen wil ik een tekst plakken in een aan te geven cel. DIt moet bij een aantal werkbladen herhaald worden en starten vanaf een op te geven werkblad, zie voorbeeldbestand.

Wat doe ik fout, wie kan mij op weg helpen?

​

Alvast bedankt voor jullie hulp,​

​

Richard​

Kun je hier iets mee
Voor de zekerheid heb ik opmaak meegenomen.

 

[Kapschip]

Thanks iedereen, het is gelukt.

Weer wat geleerd, helemaal met de duidelijke uitleg van Ruben ;-)

 

[Verwijderd lid 501906]

Zet hem even op opgelost