AW: KD Name in anderes File
14.05.2016 01:19:15
Piet
Hallo Lupo,
ein grundsaetlicher Makro Code, basierend auf deinen Angaben, müsste so funktionieren.
Geandert werden müssen von dir auf jeden Fall die Const Namen, es sind ja meine Beispiele.
Du muss der Original Name der offenen Mappe 1 und der Name der offenen Kunden Mappe rein.
Ebenso der korrekte Name des Tabellenblatt wo gesucht werden soll. Sonst erscheint Laufzeitfehler.
Einfach mal in ein Modulblatt kopieren und ausprobieren. Start über Makroliste: Makro ausführen
mfg Piet
Const Mappe1 = "Testen.xls" 'Name der Arbeitsmappe (C5)
Const Kunde = "Kunde X.xls" 'Name der Kunden Arbeitsmappe
Const KndSht = "angabe" 'Name des Kunden Blatt
'Kunden Nr suchen und Daten kopieren
Sub KundenNr_suchen_Kopieren()
Dim wb_Kunde As Object, Wb1 As Object 'Tabellenblatt als Objekt
Dim rFind As Object, KundenNr As Variant 'rFind als Objekt, Kunden Nr
Set Wb1 = Workbooks(Mappe1).Worksheets("Übersicht")
Set wb_Kunde = Workbooks(Kunde).Worksheets(KndSht)
KundenNr = Wb1.Range("C5").Value 'Kunden Nr laden und in Kunden Blatt suchen
Set rFind = wb_Kunde.Cells.Find(What:=KundenNr, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
'wenn Nr gefunden H5 und H6 in "Kunde" Blatt laden
If Not rFind Is Nothing Then
wb_Kunde.Cells(rFind.Row, "E") = Wb1.Range("H5")
wb_Kunde.Cells(rFind.Row, "F") = Wb1.Range("H6")
Else
'Fehlermeldung: nicht gefunden
MsgBox "Kunden Nr nicht gefunden"
End If
End Sub