Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel 16 Makro
#1
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
Antworten Top
#2
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
[-] Folgende(r) 1 Nutzer sagt Danke an Crazy Tom für diesen Beitrag:
  • radkappe22
Antworten Top
#3
Hallo.

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

Gruß radkappe22
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste