Clever-Excel-Forum

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

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

Hi,

(10.11.2015, 11:08)alti89 schrieb: [ -> ]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.

alti89

alti89

Rabe