Wie SVERWEIS nur mit mehreren Ergebnisse
25.01.2021 13:40:43
Jan
ich bin recht frisch dabei und das übersteigt nun meinen Horizont.
Ich möchte Laufkarten erstellen. In der Datei Auftragsnummern ist die Nummer mit der Laufkarte, die einzeln gespeichert werden soll. Von dort habe ich schon ein Makro, dass mir immer die nächste Nummer in Tabelle "Laufkarte" übertragt und das ganze auch mit Auftragsnummer speichert.
Nun sollen in die Laufkarten von der Tabelle "Laufkarte" unter die Überschriften "Bezeichnung", "Menge" & "Platz" die Inhalte aus "Laufliste gesamt" übernommen werden. SVERWEIS geht nicht, zumindest wüsste ich nicht wie. Habt ihr da eine ösung für mich? Datei ist hier abgelegt https://www.herber.de/bbs/user/143307.xls
Schon einmal vielen Dank für eure Hilfe.
Grüße Jan
Die Tabelle ist angehangen, mein Code bisher ist:
Sub Save_PDF()
' Select cell A2, *first line of data*.
Worksheets("Auftragsnummern").Activate
Range("A2").Select
' Set Do loop to stop when an empty cell is reached.
Do Until IsEmpty(ActiveCell)
' Insert your code here.
' Die aktuelle Auftragsnummer in "Laufkarte A3 kopieren
ActiveCell.Copy
Worksheets("Laufkarte").Activate
Range("A3").PasteSpecial
'Einfügen der Daten von Laufliste gesamt in die Laufkarte tbd...
' Tabelle Laufkarte speichern
Worksheets("Laufkarte").Activate
Dim strFilename As String
ThisWorkbook.Sheets("Laufkarte").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Users\Pfad...\" & ActiveSheet.Name & ActiveCell & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Worksheets("Auftragsnummern").Activate
' Step down 1 row from present location.
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Anzeige