Goedemorgen,
Ik heb het web al flink afgespeurd naar een oplossing voor mijn uitdaging, maar ik ben er nog niet helemaal uit gekomen, hopelijk kunnen jullie mij helpen.
Ik heb een hoofdblad met een overzicht van projecten. Ieder project heeft een eigen tabblad. Als de projectnaam in het hoofdblad aangepast wordt, moet de tabbladnaam ook aangepast worden.
Een project (en tabbladnaam), bestaat uit een nummer en een projectnaam, bijvoorbeeld: "1.0 VBA code". "1.0" staat in cel A10, "VBA code" staat in cel B10. In cel A1 van het projectblad staat de volledige projectnaam ("1.0 VBA code")
Als cel A10 of cel B10 wordt aangepast, moet VBA zijn werk gaan doen.
Het volgende heb ik van internet geplukt en aangevuld:
Private sub hoofdblad:
Private Sub Worksheet_Change(ByVal target As Range)
Select Case target.Address
Case "$A$10:$B$40:""
Call Sheetnames
End Select
End Sub
De uitdaging zit hem in de VBA code Sheetnames:
Sub Sheetnames()
ActiveCell.Offset(-1, 0).Select
Blad2.Select ->dit is wat hij moet doen en dat werkt perfect. Dit is wat ik wil dat hij doet: Blad&ActiveCell.Row() - 8.select ;Helaas werkt dit niet, hoe kan ik dit werkend maken?
ActiveSheet.Name = Range("A1").Text
Sheets ("Overview").select
End Sub
Hopelijk is mijn vraag duidelijk.
Graag tot horens!
Ik heb het web al flink afgespeurd naar een oplossing voor mijn uitdaging, maar ik ben er nog niet helemaal uit gekomen, hopelijk kunnen jullie mij helpen.
Ik heb een hoofdblad met een overzicht van projecten. Ieder project heeft een eigen tabblad. Als de projectnaam in het hoofdblad aangepast wordt, moet de tabbladnaam ook aangepast worden.
Een project (en tabbladnaam), bestaat uit een nummer en een projectnaam, bijvoorbeeld: "1.0 VBA code". "1.0" staat in cel A10, "VBA code" staat in cel B10. In cel A1 van het projectblad staat de volledige projectnaam ("1.0 VBA code")
Als cel A10 of cel B10 wordt aangepast, moet VBA zijn werk gaan doen.
Het volgende heb ik van internet geplukt en aangevuld:
Private sub hoofdblad:
Private Sub Worksheet_Change(ByVal target As Range)
Select Case target.Address
Case "$A$10:$B$40:""
Call Sheetnames
End Select
End Sub
De uitdaging zit hem in de VBA code Sheetnames:
Sub Sheetnames()
ActiveCell.Offset(-1, 0).Select
Blad2.Select ->dit is wat hij moet doen en dat werkt perfect. Dit is wat ik wil dat hij doet: Blad&ActiveCell.Row() - 8.select ;Helaas werkt dit niet, hoe kan ik dit werkend maken?
ActiveSheet.Name = Range("A1").Text
Sheets ("Overview").select
End Sub
Hopelijk is mijn vraag duidelijk.
Graag tot horens!