Micheltje13
Gebruiker
- Lid geworden
- 28 jan 2011
- Berichten
- 132
Hallo allemaal,
Ik heb in mijn excel de volgende VBA toegevoegd.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Intersect(Range("table1"), Target) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheet3.Range("A9:A" & Sheet3.Range("Hoi").Row - 2).EntireRow.Delete
Sheet4.Range("A9:A" & Sheet4.Range("Hallo").Row - 2).EntireRow.Delete
Set rng = Range("Table1[#All]")
Sheet3.Range("A9:A" & 8 + rng.Rows.Count).EntireRow.Insert
Sheet3.Range("A9").Resize(rng.Rows.Count, rng.Columns.Count) = rng.Value
Sheet4.Range("A9:A" & 8 + rng.Rows.Count).EntireRow.Insert
Sheet4.Range("A9").Resize(rng.Rows.Count, rng.Columns.Count) = rng.Value
Application.CutCopyMode = False
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Deze VBA zorgt ervoor dat alles wat ik in de tabel op het tabblad INPUT invoer dat deze ook op andere tabbladen worden doorgevoerd. Nu zit ik met een probleem. In mijn tabel zit een kolom met notities. Echter kunnen hier een flinke tekst neergezet worden. Helaas hebben we die ruimte niet in de breedte ivm kopieren naar de mail of exporteren als pdf. Daarom wil ik een terugloop in de cel toevoegen. De export van het tabel dus de tabel met verwijzing pakt dit echter niet op zodra ik iets in het input tabel invoer.
Kort gezegd, wanneer ik een notitie invoer in de desbetreffende cel wil ik dat deze in de export tabel een terugloop krijg. Hoe kan ik dit verwezenlijken?
Ik heb in mijn excel de volgende VBA toegevoegd.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Intersect(Range("table1"), Target) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheet3.Range("A9:A" & Sheet3.Range("Hoi").Row - 2).EntireRow.Delete
Sheet4.Range("A9:A" & Sheet4.Range("Hallo").Row - 2).EntireRow.Delete
Set rng = Range("Table1[#All]")
Sheet3.Range("A9:A" & 8 + rng.Rows.Count).EntireRow.Insert
Sheet3.Range("A9").Resize(rng.Rows.Count, rng.Columns.Count) = rng.Value
Sheet4.Range("A9:A" & 8 + rng.Rows.Count).EntireRow.Insert
Sheet4.Range("A9").Resize(rng.Rows.Count, rng.Columns.Count) = rng.Value
Application.CutCopyMode = False
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Deze VBA zorgt ervoor dat alles wat ik in de tabel op het tabblad INPUT invoer dat deze ook op andere tabbladen worden doorgevoerd. Nu zit ik met een probleem. In mijn tabel zit een kolom met notities. Echter kunnen hier een flinke tekst neergezet worden. Helaas hebben we die ruimte niet in de breedte ivm kopieren naar de mail of exporteren als pdf. Daarom wil ik een terugloop in de cel toevoegen. De export van het tabel dus de tabel met verwijzing pakt dit echter niet op zodra ik iets in het input tabel invoer.
Kort gezegd, wanneer ik een notitie invoer in de desbetreffende cel wil ik dat deze in de export tabel een terugloop krijg. Hoe kan ik dit verwezenlijken?