op datum werkuren met formule berekenen

[HSV]

Een bladnaam heeft twee namen en een nummer.
Bv. Blad1(Blad1) of Blad1(Naam1")

Als je de codenaam gebruikt zal het altijd werken.
Dus i.p.v.

Sheets("Naam1").cells(1).value = "Appie"

schrijf je

Blad1.cells(1).value = "Appie"

en dan maakt het niet uit hoe de naam van het blad is.

 

[Appie59]

oh wow. Maar hoe moet ik dan zien "= Appie" als dat in een code staat ? of snap ik je niet helemaal.
Als je ipv de echte sheetnaam de cell1 value gebruikt dat is dan "universeel" en uitwisselbaar. Kan alles worden want zit aan blad 1 gekoppeld. Maar dat = Appie is toch vrij strikt. Of ga ik daar fout ?

 

[HSV]

Is maar een voorbeeld.
Verwijzen naar een bladnaam die telkens kan wisselen van naam gebruik je blad1.cells.
Heb je Engelstalige versie kan er in de projectverkenner.
Sheet1(sheet1) staan.
Dan gebruik je sheet1.cells.

Zo heb je niets te maken in je code welk naam jij aan een blad geeft.

 

[Appie59]

ik heb m. Het maakt niet uit wat voor "Label" je er aan hangt. Het is altijd sheet1....
Dan heb ik t juist nu. Als in de codes altijd die namen worden gebruikt, maakt t niet uit wat voor labeltje er aan hangt

BEDANKT

 

[Appie59]

Hallo mensen

Ik probeer met onderstaande code (heb hem trouwens weer geprobeerd als code te posten) de tekst op een (gewone) knop te wijzigen. Dat is me gelukt. Exhter blijft de knop nog "open" voor bewerking als de active cell weer op sheet1 staat. ook dat is me gelukt.

eigenlijk wil ik dat op sheet4 de actieve cel komt op AK11 en daar blijft. Maar ik wil ook terug naar sheet1. Of het ene lukt me of het andere. Maar niet beide.

Ik heb t nu voor 1 sheet werkend (95%), maar moet gaan werken voor alle sheets. Dus wijzigen op 1 plek en verwerken op alle sheets.
twee problemen
- ik weet niet alle button nummers
- werkbaar op alle bladen

Wie wil zo vriendelijk zijn om t eens te bekijken.


Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
Set xRg = Intersect(Range("C18"), Target)
If Not xRg Is Nothing Then

Sheets(4).Select
ActiveSheet.Shapes.Range(Array("Button 58")).Select
Selection.Characters.Text = Sheets(1).Range("C18")
' Range("AK11").Select
Application.Goto Sheets(1).Range("C27")

End If

End Sub

nou weer niet gelukt.

 

[Appie59]

DIT VOORLAATSTE BERICHT HOORT HIER NIET. FOUTJE. weet niet hoe ik het weg moet halen Sorry mensen.

Groet Rob