AW: Variable an UserForm übergeben
17.01.2006 16:41:26
tlentz
Hi,
leider war auch das ohne erfolgserlebnis. Ich mach da doch bestimmt irgendeine kleinigkeit falsch. Hier nochmal der Code: ($newtarget is leider im Formular weiterhin leer)
'Code - Sheet:
-----------------------------------
Option Explicit
Public newtarget As Integer
-----------------------------------
Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
Dim x As Integer
newtarget = target.Row
If target.Row > 16 And target.Row < 382 Then
If target.Column > 1 And target.Column < 17 Then
Info.Show
Else
x = MsgBox("Dieses Feld ist gesperrt!", vbOKOnly)
End If
Else
x = MsgBox("Dieses Feld ist gesperrt!", vbOKOnly)
End If
Range("A1").Select
End Sub
------------------------------
Code-Form:
------------------------------
Sub UserForm_Initialize()
Me.TextBoxDate.Value = Worksheets("2006").Cells(newtarget, 1).Value
End Sub
------------------------------