Verwijzing naar CEL op ander WERKBLAD

[S.Teeling]

Hallo,

ik heb onderstaand stukje in een Excel sheet staan ik wil echter dat de 'If isEmpty' kijkt naar de cel op het blad HERHAAL_INBOEK en niet zoals nu gebeurd naar een cel in het eerste werkblad. Ik wil het tabbald dus zelf kunnen bepalen.

-----
Private Sub Workbook_Open()
'plaats de namen van de medewerkers in het sheet
If IsEmpty(Range("I4")) Then
Sheets("HERHAAL_INBOEK").Range("I4").Value = Application.UserName
End If
Sheets("HERHAAL_INBOEK").Range("H4").Value = Application.UserName
End Sub
-----

Het zelfde geldt voor het de code hieronder, ook hier wil ik de naam van het tabbald bij de range vermelden. Ook hier wil ik het tabblad kunnen kiezen.

'Zet de opmaak van de cel vast als MAAND JAAR
Range("C19:E19").Select
Selection.NumberFormat = "mmmm yyyy"

-----------

Ik heb het met " If isEmpty Worksheets("VOORCALCULATIE").Range("I4") then "
maar dit geef een foutmelding.

Verder heb ik nog een wat meer algemenere vraag, het gebruik van DIM is mij niet duidelijk, wanneer gebruik je dit is de code? Heeft iemand hier wat meer info over?

 

[Demeter]

mmmmm

Probeer dit eens:
Workbooks("Controlelijst_Artiwin.xls")

let op de .xls achter je filenaam.

mbv Dim declareert je de variabelen die je gaat gebruiken en wijst je geheugenruimte toe.
Zie hiervoor ook de VB help file.


Groet,
Ferenc

 

[S.Teeling]

Beste Demeter,

bedankt voor je reactie maar ik begrijp niet helemaal wat je bedoeld met

Workbooks("Controlelijst_Artiwin.xls")

Wat doet deze functie en waar moet ik deze plaatsen. Ik zie niet hoe ik hiermee naar cel (met naam) kan verwijzen op een ander tabblad.

 

[Demeter]

Begreep je verkeerd S., Dacht dat je wilde verwijzen naar een andere file.

Probeer dit eens voor je If functie:

Private Sub Workbook_Open()
'plaats de namen van de medewerkers in het sheet
If Sheets(2).Range("I4") = "" Then
Sheets("HERHAAL_INBOEK").Range("I4").Value = Application.UserName
Else
Sheets("HERHAAL_INBOEK").Range("H4").Value = Application.UserName
End If
End Sub


En dit voor je data:


Sub Data()

Sheets(2).Select
Range("C19:E19").Select
Selection.NumberFormat = "mmmm yyyy"

End Sub

Bezoek ook eens de website van Luc Hendrickx, http://www.newbytes.be/
ga hier achtereenvolgens naar: excel/lessen(rechterkant)/ en in het midden naar 'Navigeren in VBA-Excel'.

Altijd handige info om te hebben (gelezen).


Groet,
Ferenc

 

[S.Teeling]

Bedankt, het werkt maar helemaal snappen doe ik het niet.

Het bewuste tabblad heeft in het VB scherm de naam Blad4 (HERHAAL_INBOEK). Ik zou dan verwachten dat ik bij [ if Sheets(2).Range("I4") = "" Then ] moet verwijzen naar Sheets(4) of naar de naam maar dan werkt het niet, als ik kies voor Sheets (2) gaat het wel goed.

 

[Demeter]

mmmmmmm

S.

If Sheets(2).Range("I4") = "" Then --> Als blad 2 met bereik I4 = leeg dan .....

2 staat voor het nummer van tabblad.
bv. je hebt tabblad 1 met daarnaast 3,4 en 2 (1,3,4,2)

Dan is:
tabblad 1 = Sheets(1)
tabblad 3 = Sheets(2)
tabblad 4 = Sheets(3)
enz


Als je er niet uitkomt moet je even je file uploaden (als zip < 100kb)!


Groet,
Ferenc

 

[S.Teeling]

Bedankt