Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

KD Name in anderes File

KD Name in anderes File
13.05.2016 09:37:41
Lupo
Hallo - eine verzwickte Frage.
Ist es möglich:
Im geöffneten Excel File Blatt "Übersicht" C5, H5 und H6 kopieren. (C5 = Kundennummer)
In einem anderen File "Kunde", im Blatt "angabe" die Kundennummer C5 suchen.
Daten bei der richtigen Zeile in der Zelle "E" (H5) und "F" (H6) einfügen und speichern.
Danke vielmal vorerst:-)

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: unklar, was Du hast und was Du anstrebst owT
13.05.2016 15:39:30
...
Gruß Werner
.. , - ...

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

Anzeige
AW: KD Name in anderes File
18.05.2016 09:50:03
Lupo
Danke - funktioniert - Cool

AW: geschlossen oWt
17.05.2016 13:13:50
Piet
,,,

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige