Varialble van macro 1 gebruiken in macro 2

[caffie]

ik heb 2 macros gemaakt
in macro 1 geeft ik de kolom letter op.
De kolom letter moet dus gebruikt worden in macro2
ik heb diverse kolomen die ik op deze manier wil gebruiken
maar het idee was wel aardig maar ik loop vast
wie kan me verder helpen






Sub kolom1()
Dim kolom As String
welkekolom= "j"
KAP
End Sub



Sub KAP()
Dim box1 As String

Application.ScreenUpdating = False

If Cells(1, kolom) = "" Then
For Rij = 6 To 372
Rows(Rij).Hidden = Cells(Rij, welkekolom) = ""
Next Rij
Cells(1, welkekolom) = 1
Else
Rows("6:372").Hidden = False
Cells(1, welkekolom) = ""
End If
Application.ScreenUpdating = True

End Sub

 

[ZiGZaG37]

Ik ben bang dat ik niet naar je hele code zit te kijken.

Je volgorde zou ongeveer als volgt moeten zijn:

Public kolom as String

Sub kolom1()
... <hier kan ik kolom gebruiken>
End Sub

Sub KAP()
... <hier kan ik kolom gebruiken>
End Sub

 

[HSV]

Wat het moet worden ontgaat me een beetje, maar je zult er vast een bedoeling mee hebben.
Buiten de procedures declareren zodat ze beschikbaar zijn in andere macro's.

option explicit
dim welkekolom as string

[COLOR=#333333]Sub kolom1()
[/COLOR][COLOR=#3E3E3E] welkekolom= "j"[/COLOR]
[COLOR=#3E3E3E] KAP[/COLOR]
[COLOR=#3E3E3E]End Sub[/COLOR][COLOR=#333333]
[/COLOR]

Gebruik graag codetags bij code zoals ik hierboven heb gedaan.

 

[edmoor]

of:

Sub kolom1()
    welkekolom = "j"
    KAP (welkekolom)
End Sub

Sub KAP(welkekolom As String)
    If Cells(1, welkekolom) = "" Then
End Sub