Sowas wie
Cells(d, 4).Select
ActiveCell.FormulaR1C1 = "Urlaub"
wird einfach und banal zu
Cells(d, 4).FormulaR1C1 = "Urlaub"
Erspar dir einfach das Select und ActiveCell. Sie sind in 99,99999% der Fälle nicht notwendig und führen oftmals nur zu Problem.
Der beste Weg um von einer UserForm zur anderen UserForm Daten zu übergeben ist in etwa so:
'Klassenmodul: UserForm2
Option Explicit
Private Sub UserForm_Click()
UserForm2.Wert = 5
UserForm2.Show
End Sub
'Klassenmodul: UserForm2
Option Explicit
Private m_lngWert As Long
Private Sub UserForm_Click()
MsgBox "Wert: " & m_lngWert
End Sub
Public Property Let Wert(RHS As Long)
m_lngWert = RHS
End Property
Public Property Get Wert() As Long
Wert = m_lngWert
End Property
Die Alternative hierzu stellen globale Variablen dar, was man aber tunlichst sein lassen sollte, da kein guter Programmierstil in VBA.
PS: Bitte verwende beim Posten von Quelltext die Option "Add or update a code snipped".
Gruß
|