Excel 16 Makro

[radkappe22]

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

[Crazy Tom]

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

[radkappe22]

Hallo.

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

Gruß radkappe22