Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: VBA: tekst tonen op rij die toegevoegd is op ieder werkblad

  1. #1
    Junior Member
    Geregistreerd
    29 juni 2020
    Vraag is niet opgelost

    VBA: tekst tonen op rij die toegevoegd is op ieder werkblad

    Hi,

    Ik wil met behulp van een macro op meerdere tabbladen tegelijk een regel kunnen toevoegen op dezelfde plek met dezelfde tekst. Ik ben er volgens mij bijna. Het is me gelukt om het tekstboxje op te laten poppen waarin gevraagd wordt naar de post, maar ik weet niet welk commando ik nog moet toevoegen om de tekst daadwerkelijk te laten verschijnen in de betreffende cellen. Wie kan mij helpen?:

    Sub Tijdschrijven()

    Sheets(Array("Totaal", "Naam1", "Naam2", "Naam3", "Naam4")).Select
    Sheets("Totaal").Activate

    Dim aantal As Long
    Dim beginrij As Long
    Dim tekst As Long
    beginrij = InputBox("Vanaf welke rij wil je de rijen invoegen?")
    aantal = InputBox("Hoeveel rijen wil je invoegen?")
    tekst = InputBox("Wat is de naam van de post?")
    aantalrijen = beginrij & ":" & aantal - 1 + beginrij
    Rows(aantalrijen).Select
    Selection.Insert
    ActiveCell.Select

    End Sub

  2. #2
    Senior Member JVeer's avatar
    Geregistreerd
    27 februari 2019
    Je code wat aangepast

    Code:
    Sub j()
    Dim aantal As Long
    Dim beginrij As Long
    Dim tekst As String
    beginrij = InputBox("Vanaf welke rij wil je de rijen invoegen?")
    aantal = InputBox("Hoeveel rijen wil je invoegen?")
    tekst = InputBox("Wat is de naam van de post?")
    aantalrijen = beginrij & ":" & aantal - 1 + beginrij
        For i = 1 To 5
            With Sheets(i)
                Sheets(i).Activate
                .Rows(aantalrijen).Select
                 Selection.Insert
                 ActiveCell = tekst
                .Range("A1").Select
            End With
        Next
    End Sub
    Groeten
    JV

  3. #3
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Of:
    Code:
    Sub Tijdschrijven()
    Dim sv, sh
    sv = Array(Application.InputBox("Vanaf welke rij wil je de rijen invoegen?", , , , , , , 1), Application.InputBox("Hoeveel rijen wil je invoegen?", , , , , , , 1), InputBox("Wat is de naam van de post?"))
    On Error Resume Next
    For Each sh In Array("Totaal", "Naam1", "Naam2", "Naam3", "Naam4")
       With Sheets(sh)
         .Rows(sv(0)).Resize(sv(1)).Insert
         .Cells(sv(0), 1).Resize(sv(1)) = sv(2)
       End With
    Next sh
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  4. #4
    Junior Member
    Geregistreerd
    29 juni 2020
    Dank voor jullie reaties. De 1e oplossing werkte wel, maar daar kreeg ik een foutmelding bij With Sheets(i).
    De tweede oplossing geeft geen foutmeldingen dus die heb ik nu gebruikt, moet ik dus alleen opletten dat ik een nieuw persoon toevoeg als het team groter wordt.

  5. #5
    Junior Member
    Geregistreerd
    29 juni 2020
    Welke parameter moet ik aanpassen als ik de tekst niet in kolom A, maar in kolom B wil laten plaatsen?

  6. #6
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Code:
    Sub Tijdschrijven()
    Dim sv, sh as worksheet
    sv = Array(Application.InputBox("Vanaf welke rij wil je de rijen invoegen?", , , , , , , 1), Application.InputBox("Hoeveel rijen wil je invoegen?", , , , , , , 1), InputBox("Wat is de naam van de post?"))
    On Error Resume Next
    For Each sh In sheets
       With sh
         .Rows(sv(0)).Resize(sv(1)).Insert
         .Cells(sv(0), 2).Resize(sv(1)) = sv(2)
       End With
    Next sh
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren