SelectionChange
24.10.2012 13:39:59
Lisa
Mittels diesen u.g. Codes habe ich erreicht, dass ich beim Selektieren der Zelle C4 die UF2 öffne und mit der Textbox1 der UF2 befülle!
Nun ist die Zelle beschrieben!
Wie aber kann ich das SelectionChange abstellen, wenn die Zelle bereits beschrieben ist, kann mir hier jemand weiterhelfen?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C4")) Is Nothing Then
With UserForm2
.Caption = "Arbeitstitel"
.Label1.Caption = "Arbeitstitel"
If Range("C4") "" Then
UserForm2.TextBox1 = Sheets("Tabelle1").Range("C4")
End If
.Show
End With
End If
End Sub
Code UF2
Private Sub CommandButton1_Click()
ActiveCell = TextBox1.Value
Unload Me
End Sub
LG Lisa