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
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