textbox mit inhalt einer zelle füllen
14.01.2005 13:41:12
roland
nun suche ich mal wieder seit stunden an nem problemchen rum :_((
ich habe eine userform.......und da eine textbox4 z. b.
mit folgendem code rufe ich die userform aus dem tabellenblatt aus auf:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim zelle As Range
Set zelle = Range("A5:A52")
If Not Intersect(Range(Target.Address), zelle) Is Nothing Then UserForm1.Show
Set zelle = Nothing
End Sub
bei klick auf einer der zellen von A5 bis A52 startet die userform
in den zellen ("A5:A52")stehen die werte 1 - 48 nummeriert ...die userform startet und sollte in einer textbox oder label jeweils di eziffer anzeigen von welcher aus ich die userform gestartet habe.
ich klicke z. b. A8 da steht die ziffer 4 drin, in der textbox oder dem label sollte dann eben auch ide ziffer 4 angezeigt werden
eventuell ne ganz triviale geschichte aber ich finde einfach en weg nicht
vielen danke wer mir ne loesung zeigen kann
gruss roland