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
