PDA

Vollständige Version anzeigen : Userform und offset target textboxen?


Weissbart
29.03.2012, 11:09
Hallo Exeljaner

ich versuche mit diesem Code Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With UserForm1
.TextBox1.ControlSource = Target.Address
.TextBox2.Text = ActiveCell.Offset(0, 1).Value

.TextBox3.Text = ActiveCell.Offset(0, 2).Value
.Show
End With

Cancel = True
End Sub

die textboxen in der Userform anzusprechen das gelingt jedoch nur mit der texctbox1 die anderen beiden textboxen bleiben leer was mache ich falsch?

hary
29.03.2012, 11:20
Hallo Ron
Nimm statt Activecell, Target.
lange nix gehoert.
gruss hary

Weissbart
29.03.2012, 12:50
Hi Hary

ja du meldest dich ja nicht ^^

mit Target hab ich auch schon versucht^^ geht auch nicht

mir werden zwar die inhalte der Zellen in den Textboxen angezeigt jedoch werden diese nicht übertragen wenn die inhalte der Textboxen geändert werden nur die von Textbox 1 funktioniert wie sie soll
gruß
Ron

Weissbart
29.03.2012, 13:08
Vielleicht helfen dir noch ein paar infos

in der Tabelle sollen in den Zellen C2:C23 per select/oder doppelklick die Userform geöffnet werden.
dort wie oben beschrieben sollen die Textboxen 2 und 3 die nachbarzellen als source benutzen

also c2 ausgewählt dann userform 3 textboxen eingaben machen
eingaben werden dann ausgegeben in c2 c3 c4
usw´.

aber ich gleube du weißt schon was ich meine.

source und offset geht leider nicht.

hary
29.03.2012, 13:18
edit:
Post#4 nicht gesehen, F5 zu spaet.
gruss hary

EarlFred
29.03.2012, 13:47
Hallo Ron,

also c2 ausgewählt dann userform 3 textboxen eingaben machen
eingaben werden dann ausgegeben in c2 c3 c4

beim Offset hast Du Zeilen und Spalten vertauscht:
Option Explicit

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

Cancel = True

With UserForm1
.TextBox1.ControlSource = Target.Address
.TextBox2.ControlSource = Target.Offset(1, 0).Address
.TextBox3.ControlSource = Target.Offset(2, 0).Address
.Show
End With
End Sub

Grüße
EarlFred

Weissbart
07.04.2012, 12:58
Sorry das ich mich jetzt erst melde war im verdeinten Urlaub ^^

Ich danke Euch es funktioniert jetzt so wie es soll.

hatte in der eile jedoch wieder die Zelle nicht richtig bezeichnet

es sollte c2 = target und dann d2 und e2

aber das lag dann wohl an den

.TextBox2.ControlSource = Target.Offset(0, 1).Address


gruß
Ron

und danke nochmals