Clever-Excel-Forum

Hallo zusammen.

Ich habe eine große Tabelle. Wenn ich in eine Zelle der Spalte B (z.B. B12) Doppelklicke öffnet sich ein Userform. In dem Userform habe ich ein Label, das den Inhalt der aktivierten Zelle aufführt. Dazu habe ich im Userform 3 Textboxen in denen die Werte der Spalten AP, AQ, AR aus der gleichen Zeile (also im Beispiel Zeile 12) angezeigt werden sollen. Diese müssen ggf. geändert werden. Wenn ich dann ein Button in dem Userform betätige sollen die Werte an der gleichen Stelle wieder in die Tabelle geschrieben werden und das Userform soll schließen.

Könntet ihr mir bei der Erstellung des korrekten Makros helfen?

Vielen Dank im Voraus.

Viele Grüße radkappe22

Hallo

nach deinen Vorgaben

dieser Code in das Tabellenblatt wo es stattfinden soll

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Columns(2)) Is Nothing Then

        Cancel = True

        UserForm1.Show

    End If

End Sub

dann eine Userform1 mit einem Label1 und 3 TextBoxen 1 bis 3
sowie einen Commandbutton1
dazu dieser Code

Code:
Option Explicit

Private Sub CommandButton1_Click()

    Cells(ActiveCell.Row, 42).Value = TextBox1.Value

    Cells(ActiveCell.Row, 43).Value = TextBox2.Value

    Cells(ActiveCell.Row, 44).Value = TextBox3.Value

    Unload Me

End Sub

Private Sub UserForm_Initialize()

    Label1.Caption = ActiveCell.Value

    TextBox1.Value = Cells(ActiveCell.Row, 42).Value

    TextBox2.Value = Cells(ActiveCell.Row, 43).Value

    TextBox3.Value = Cells(ActiveCell.Row, 44).Value

End Sub

sollten aus den TextBoxen Zahlenwerte in die Zellen geschrieben werden
ändere den Code zum Beispiel so ab

Code:
Private Sub CommandButton1_Click()

    Cells(ActiveCell.Row, 42).Value = CDbl(TextBox1.Value)

    Cells(ActiveCell.Row, 43).Value = CDbl(TextBox2.Value)

    Cells(ActiveCell.Row, 44).Value = CDbl(TextBox3.Value)

    Unload Me

End Sub

MfG Tom

Hallo.

Vielen Dank für die schnelle Hilfe. Genau das habe ich gesucht. Konnte es zeitlich aber erst heute ausprobieren.

Gruß radkappe22

radkappe22

Crazy Tom

radkappe22