VBA - Læs aktiv Sheet og Range

AKTIV_ARK = ActiveSheet.Name
Aktivecelle = ActiveCell.Address

Hvis det er variablerne
AKTIV_ARK og Aktivecelle

Så skal de være i et standardmodul uden for funktionerne
Global Aktivecelle As String
Global AKTIV_ARK As String

Det er lige præcis disse 2 variabler, som jeg vil anvende.

Jeg forstår ikke det med standardmodul uden for funktionerne.
Tanken er, at variblerne sættes i "Private Sub UserForm_Initialize()" med:
AKTIV_ARK = ActiveSheet.Name
Aktivecelle = ActiveCell.Address

Og skal anvendes i "Private Sub CmdBt1_Click()"

Skal jeg så lave en defination i "Module1" (eller hvad jeg nu kalder den)
Og fx skrive:
Sub HentCell()
Global Aktivecelle As String
Global AKTIV_ARK As String
END SUB

Og i "Private Sub CmdBt1_Click()"
Skrive "Call HentCell"

I module1 sætter du bare disse aller øverst
Global Aktivecelle As String
Global AKTIV_ARK As String

det her :

Tanken er, at variblerne sættes i "Private Sub UserForm_Initialize()" med:
AKTIV_ARK = ActiveSheet.Name
Aktivecelle = ActiveCell.Address

er OK


2.
Og i "Private Sub CmdBt1_Click()"
Skrive "Call HentCell"

sådan:

Worksheets(AKTIV_ARK).range(Aktivecelle) = "hej"

Så er vi der. Mange tak for dine gode hjælp og tålmodighed. Send venligst et svar.

et svar ;-))