Re: Userform 1:n Beziehung
20.05.2003 13:00:50
Volker
funktioniert prächtig!!!!habe aber vorhin übersehen zu sagen es gibt neben der adresse noch zusätzlich ein feld [Strasse] und das sollte im gleichen listfeld angezeigt werden.
inzwischen zusätzlich zwei navigationbutton eingebaut mit der funktion bei aktiver userform jeweils einen datensatz nach unten zu gehen
aber die [Adresse] wird bei dieser aktion nicht aktualisiert...
Codeteil
updown:
Private Sub cmdDOWN_Click()
'down
ActiveCell.Offset(1, 0).Activate
UserForm1.Label1 = Cells(ActiveCell.Row, 1)
UserForm1.Label2 = Cells(ActiveCell.Row, 2)
End Sub
Private Sub cmdUP_Click()
On Error Resume Next
'up
ActiveCell.Offset(-1, 0).Activate
'daten aktualisieren
UserForm1.Label1 = Cells(ActiveCell.Row, 1)
UserForm1.Label2 = Cells(ActiveCell.Row, 2)
End Sub
Codeteil von Chris:der funktioniert
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim lfNr As Object
Load UserForm1
UserForm1.Label1 = Cells(Target.Row, 1)
UserForm1.Label2 = Cells(Target.Row, 2)
With Worksheets("Tabelle2")
For Each lfNr In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
If lfNr = Cells(Target.Row, 1) Then UserForm1.ListBox1.AddItem .Cells(lfNr.Row, 2)
Next lfNr
End With
If UserForm1.ListBox1.ListCount = 0 Then
MsgBox "Es bestehen keine Adressen mit dieser Laufnummer."
Exit Sub
End If
UserForm1.Show
End Sub
gruss
volker