Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Aktuelle Version v0.0.0
 
'Versionsgeschichte
'v0.0.0 Erste Version
 
 
Dim ID As String
 
If Target.Column = 51 Then
'Gehe rüber nim die nummer und frag obs los gehen soll.
            Cells(ActiveCell.Row, ActiveCell.Column - 44).Activate
            ID = ActiveCell
    If ActiveCell.Value = "" Then
            Cells(ActiveCell.Row, ActiveCell.Column - 2).Activate
            ID = ActiveCell
    End If
UserForm1.Label1.Caption = "Do you want to create" & ID
UserForm1.Show vbModal
End If
 
If x = True Then   '<----funktioniert nicht
 
'TU WAS !
 
' öffne die vorlage und speicher sie, aber das schaff ich allein sollange ich 
' das hier hinbekomme
End If
 
End Sub

Option Explicit
 
Public Sub No_Click()
x = False                   '<----funktioniert nicht
Unload Me
End Sub
 
Public Sub YES_Click()
x = True                   '<----funktioniert nicht
End Sub