Office: VBA: Bestimmte Daten von anderer Datei kopieren und Einfügen

Hi,

hab da ein Problem und zwar möchte ich das ich in Mappe1 nur die Artikelnummer eintragen muß und er mir von alleine alle anderen Daten (außer Menge und GP) von selbst aus Mappe2 mit mehreren Register herraussucht, kopiert und einfügt. Mappe2 darf nicht verändert werden können.

Die 2 Dateien hängen an
Verlange keine ganze Lösung, habe nur keine Erfahrung mit Datenaustausch zwischen 2 oder mehreren Dateien.

Vielen Dank im Vorraus.

EMI

EDIT: Die Mappe2 war zu groß, habe jetzt 4 Register gelöscht.
EDIT: So, jetzt versuche ich es als ZIP datei

 

Hallo E-MaX-I,

der Zugriff auf die Tabelle in Mappe2.xls erfolgt wie auf einen Bereich in derselben Mappe, nur dass vor dem Arbeitsblattnamen noch der Dateipfad und der Dateiname angegeben werden müssen. Unter der Voraussetzung, dass beide Arbeitsmappen im selben Dateiverzeichnis enthalten sind, ergibt sich zB. in Zelle B10 von Arbeitsblatt 'Tabelle1' aus Mappe 'Mapp1' folgende Formel: =SVERWEIS($A10;'.\[Mappe1.xls]11 Gelb-Orange'!$A$2:$L$96;2;FALSCH)
dabei sind: 1.Parameter $A10 die zu suchende Artikelnummer;
2.Parameter: der Bereich, in dessen 1.Spalte nach Artikelnummer gesucht wird;
3.Parameter: die Nummer der Spalte des Bereiches vom 2.Parameter, in der die Rückgabewerte enthalten sind (hier also Spalte Nr.2)
4.Parameter: in diesem Fall 'FALSCH' gibt an, dass in der 1.Spalte nach exakter Übereinstimmung gesucht wird und diese Spalte auch nicht sortiert zu sein braucht.
Anmerkung zum 2.Parameter: der Suchbereich: die Syntax ist etwas gewöhnungsbedürftig:
Zuerst kommt der Dateipfad (hier zB: .\), dann folgt in eckigen Klammern der Dateiname (hier zB: [Mappe2.xls]) und dann das Arbeitsblatt (hier zB: 11 Gelb-Orange); und das Ganze sollte man noch in Hochkommas einschließen (also zB. '....'), in diesem Fall sogar zwingend, da der Blattname kein normaler gültiger Name ist.
Dann folgt, getrennt durch ein "!" der Bereich (hier also zB: !$A$2:$L$96).
Die Formel von Zelle B10 auch in den Bereich C10:D10 und in Zelle F10 und H10 kopieren.
Die Formeln dieser 1.Zeile in die darunter liegenden Zeilen kopieren.

Was das Sprungverhalten betrifft beim Ausfüllen der Tabelle im Arbeitsblatt 'Tabelle1', muss man eine Ereignissteuerung mittels VBA implementieren.

Code:

Option Explicit

Private Sub Worksheet_Activate()
    Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Zeile&, Spalte&
  If Range("A7").Value = "Aus" Then Exit Sub
  With Target
    Zeile = .Row: Spalte = .Column
    If (Spalte<5>1) Then
      .EntireRow.Cells(5).Select
    ElseIf (Spalte>5) Then
      .EntireRow.Cells(2, 1).Select
    End If
  End With
End Sub

Private Sub Worksheet_Deactivate()
    Application.MoveAfterReturnDirection = xlDown
End Sub

1) Den obigen VBA-Code mit der Maus selektieren, Tasten Strg+C drücken, um ihn zu kopieren
2) Ins Arbeitsblatt 'Tabelle1' von 'Mappe1.xls' wechseln
3) Dort die Tasten Alt+F11 drücken, um in den VBA-Code-Editor von 'Tabelle1' zu gelangen, dort in den Codebereich hineinklicken, die Tasten Strg+V drücken, um den kopierten VBA-Code einzufügen.
4) Wieder zurück ins Arbeitsblatt 'Tabelle1' wechseln.
5) Sobald man dort in Spalte A eine Artikelnr. eingegeben hat und Taste EINGABE drückt, werden die Zellen rechts daneben mit den gefunden Werten ausgefüllt und der Zellzeiger springt in die Mengenspalte; nach dem Ausfüllen dieser und EINGABE drücken, springt der Zellzeiger zurück in Spalte A, aber in die nächsten Zeile.
Diesen Mechanismus kann man auch ausschalten, indem man in Zelle A7 das Wort 'Aus' eingibt.

Gruß Exl121150

 

Hallo E-MaX-I,

Es war mir leider nicht möglich, einen korrekten VBA-Code hochzuladen, er hatte stets ein fehlendes Stück:
statt '(Spalte<5>1)' gehört '(5>spalte) and(Spalte>1)'

Gruß Exl121150

 

Auf zum nächsten Versuch

Hi,

danke erstmal, ich komme zwar erst jetzt dazu. Leider bin ich Momentan fix und fertig. Ich werde höchstwarscheinlich erst am Wochenende dafür mal Zeit haben um es auszuprobieren.

Werde hier auf jeden Fall ein feedback hinterlassen, bzw. falls ich damit Probleme haben sollte.

Greetz und Gute Nacht
EMI