Global Const frägä

Billy · 27.04.2005

hi

wollte mal wissen wieso der folgende Code net funktionert...

Code:

Option Explicit
Function do_usr(aktuelle_reihe, zeile_ende)
MsgBox aktuelle_reihe &amp;  &lt;->  &amp; zeile_ende
usr.Show
Global Const c_zeileende = zeile_ende
End Function

es steht NUR das =)

mfg billy

// Edit

Code:

Private Sub UserForm_Initialize()
Me.fname.Caption = Cells(ActiveCell.Row, 1)
MsgBox c_zeileende
End Sub

ich will diese Konstante dann nacher weiter verwenden =)

Matjes · 27.04.2005

Hi billy,

globale Konstante geht dafür nicht. Die müßte definiert sein bevor das Programm startet.

Globale Variable wäre dafür das geeignete.

Code:

Option Explicit
Global c_zeileende As Long
Function do_usr(aktuelle_reihe As Long, zeile_ende As Long)
MsgBox aktuelle_reihe &amp;  &lt;->  &amp; zeile_ende
c_zeileende = zeile_ende
usr.Show
End Function

Und immer in den Funktionsaufrufen die Aufruf-Variablen typisieren, sonst sind alle Variant und das führt über kurz oder lang zu großen Problemen.

Gruß Matjes

Billy · 27.04.2005

dank dir vielmals ;D

nun kann ich so für 30 min weiter progn bis ich auf ein neues problem stosse =D

Global Const frägä

Billy

Matjes

Billy

Global Const frägä

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums