Wert aus Msgbox in Zelle Übernehmen

[alti89]

Hi zusammen hab mir folgenden Code gebastelt

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
 Select Case Target.Column
   Case 1
       Set wsTabelle = Worksheets("Sheet1")
           End Select
 
       UserForm1.TextBox1.Value = ActiveCell.Value
       UserForm1.Show
       
   End Sub

wie kann ich es bewerkstelligen, das wenn ich in die MsgBox nun ( was zu dem auch schon Drinnsteht ) noch ergänze, er mir beim schließen diesen neuen Wert in die Zelle dich ich gepickt habe einträgt ?

Gruß
Sascha

[alti89]

Okay hab es selbst hinbekommen ::)

hier die Lösung falls es wen interesiert / sicherlich kann man die Codes noch vereinfachen

Code:

' wert aus Zelle anzeigen
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
 Select Case Target.Column
   Case 1
       Set wsTabelle = Worksheets("Sheet1")
           End Select
 
       UserForm1.TextBox1.Value = ActiveCell.Value ' wert in userform anzeigen lassen
       UserForm1.Show
       
   End Sub

folgende Codes stehen in meiner Userform

Code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'schließen über x verhindern

If CloseMode = vbFormControlMenu Then
Cancel = True
End If
End Sub

Code:

Private Sub CommandButton1_Click() ' wert aus Textbox in Active Zelle schreiben

ActiveCell.Value = CVar(TextBox1.Text)
ActiveCell = CVar(TextBox1.Text)

Unload Me

End Sub

Gerne auch verbesesserungen des Codes hier posten :9 würd mich freuen

[Rabe]

Hi,

ActiveCell.Value = CVar(TextBox1.Text)
ActiveCell = CVar(TextBox1.Text)

Gerne auch verbesesserungen des Codes hier posten :9 würd mich freuen

eigentlich reicht da eine der beiden Zeilen.