UserForm über Grafik - Inhalt aus aktiver Zelle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Rainer,
eigentlich kanst du dann mit "ActiveCell" arbeiten. Dann beziehen sich entsprechende Wertzuweisungen auf die zum Zeitpunkt des Userform-Aufrufs aktive Zelle im aktiven Tabellenblatt.
Das Userform selber rufts du am einfachsten per Doppelklick-Ereignismakro für das Tabellenblatt auf.
Gruß
Franz

'makro unter Tabellenblatt für Userformanzeige
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 3 And Target.Cells.Count = 1 Then
Select Case Target.Column
Case 3 To 4, 7 'Spalten C, D, G
Cancel = True
UserForm1.Show
Case Else
'do nothing
End Select
End If
End Sub
'Beispiel für Userform-Code - Userform hat eine Textbox und 2 Commandbuttons
Private Sub CB_Abbrechen_Click() 'Abbrechen-Commandbutton
Unload Me
End Sub
Private Sub CB_OK_Click() 'OK-Commandbutton
'Textbox-Wert in aktiver Zelle eintragen, Zeilenschalten in Textbox werden so _
ersetzt, das sie Alt+Enter bei direkter Eingabe in Zelle entsprechen
ActiveCell.Value = Replace(Me.TextBox1.Text, Chr$(13), "")
Unload Me
End Sub
Private Sub UserForm_Initialize()
'Wert aus aktiver Zelle einlesen
Me.TextBox1.Value = ActiveCell.Text
End Sub

Hallo Franz,
schöne Variante, die mir so bestimmt noch einen Nutzen bringen wird.
Aktuell möchte ich den Button jedoch als Info-Button nutzen.
Die Zellangabe hatte ich gewollt, um dann noch die beiden Zellen unterhalb mit anzuzeigen.
Plan war:
Zelle G37 = Hauptzeile - Label1
Zelle G38 = Unterzeile - Label2
Zelle G39 = Beschreibung - TextBox (mit Editfunktion)
Den Button hätte ich dann z.B. in Spalte i integriert.
Allerdings gefällt mir Dein Ansatz aufgrund dessen, da ich immer wieder Probleme beim Ein/Ausblenden in Verbindung mit der Anordnung von Buttons hatte.
Folglich könnte ich ja ein (i) mit Doppelklickfunktion in Spalte i plazieren, so dass Dein Code ja grundsätzlich passt.
Vielleicht kannst mir mit der Änderung nochmal helfen.
Gruß Rainer

Private Sub UserForm_Initialize() 'Wert aus aktiver Zelle einlesen Me.Label1.Caption = ActiveCell.Text Me.Label2.Caption = Cells((ActiveCell.Column + 1), 6).Value Me.TextBox1.Value = Cells((ActiveCell.Column + 2), 6).Value End Sub

Beliebteste Forumthreads (12 Monate)

UserForm über Grafik - Inhalt aus aktiver Zelle

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm über Grafik - Inhalt aus aktiver Zelle

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread