das geht vielleicht auch über Formeln mit SVERWEIS, ich habe es als Makro gelöst. Sonst mal nach SVERWEIS googeln. Dieses Makro gehört in die Tabelle "§45 Rechnung..." und es müssen noch die richtigen Zellen Adressen angegeben werden!
mfg Gast 123
Code:
Private Sub Worksheet_Change(ByVal Target As Range) Dim Leist As Worksheet, Rechn As Worksheet 'Hier die Zelle der Rechnugns Nr. angeben, z.B. D4 If Target.Address(0, 0) <> "xxx" Then Exit Sub If Target.Value = Empty Then Exit Sub
'Aktive Tabellen als Worksheet deklarieren Set Leist = Worksheets("Leistungsnachweis2") Set Rechn = Worksheets("§45 Rechnung mit Leistung (2)")
'** Hier Zelle der Reg-Nr einfügen SuchRgNr = Rechn.Range("xxx").Value Set rFind = Leist.Columns(1).Find(What:=SuchRgNr, LookAt:=xlWhole)
'Aussprung wenn Rechnungs Nr. nicht gefunden wird If rFind Is Nothing Then MsgBox SuchRgNr & " - kann diese Rechnungs Nr. nicht finden!": Exit Sub
'Vorname und Name in die Rechnung einfügen Rechn.Range("xxx").Value = rFind.Cells(1, 3) & rFind.Cells(1, 2)
'Rechnungsbetrag in die Rechnung einfügen Rechn.Range("xxx").Value = rFind.Cells(1, 6) End Sub
