Office: Werte in anderen Mappe suchen und addieren

Hallo
Ich möchte gerne die Produkte aus Spalte B (Mappe2) in der Mappe1 suchen und die Spalten G bis J per Button zum vorhanden Wert in Mappe1 addieren.
Leider bin ich mit meinen Kenntnissen hier an meine Grenzen gestoßen.

MfG
Olaf

 

Hallo!

Willst du in MAppe1 ein in jedem Tabellenblatt den Wert von Mappe 2 Addieren? Oder nur im ersten?

Gruß

 

Falls es für jedes Blatt gilt und mappe2 im gleichen Verzeichnis wie Mappe1 ist könntest du sowas verwenden.

Code:

Sub addieren()
Dim zähler1 As Integer
Dim zähler2 As Integer
Dim zähler3 As Integer
Dim zähler4 As Integer
For zähler1 = 1 To Worksheets.Count
  For zähler2 = 1 To 100
     For zähler3 = 1 To 100
       For zähler4 = 2 To 5
         If Sheets(zähler1).Cells(zähler2, 3).Value _
          = Workbooks("mappe2.xls").Sheets(1).Cells(zähler3, 2).Value Then
           If IsNumeric(Sheets(zähler1).Cells(zähler2, 3).Offset(0, zähler4).Value) _
             And Sheets(zähler1).Cells(zähler2, 3).Value <> "" Then
              Sheets(zähler1).Cells(zähler2, 3).Offset(0, zähler4).Value _
               = Sheets(zähler1).Cells(zähler2, 3).Offset(0, zähler4).Value _
              + Workbooks("mappe2.xls").Sheets(1).Cells(zähler3, 2).Offset _
             (0, zähler4 + 3).Value
           End If
         End If
       Next zähler4
     Next zähler3
  Next zähler2
Next zähler1
End Sub

Gruß

 

Hallo
Habe Nachtschicht konnte leider nicht eher Antworten.
Habe deinen Code ausprobiert, leider ändern sich die Werte nicht.
Die beiden Mappen sind eigentlich auch nicht im gleichen Verzeichnis, habe sie aber zum Testen in eins gepackt.
Nochmal zum Verständnis
Ich möchte per Button nacheinander die Produkte aus Spalte B in Mappe2 z.B. LX448
in der Mappe1 (alle Tabellenblätter) suchen und die Werte aus den Spalten G-J (Mappe2) zu den vorhanden Werten aus Mappe1 (E-H) dazu addieren.
Gruss

 

Hallo!
Also bei mir geht es.
Hast du auch die Mappe2 geöffnet?

Gruß

 

Habe ich, oder liegt es an Excel97 ?
Sorry war mein Fehler, habe den Code nicht ins Modul kopiert.
Klappt bestens.
Danke

 

Morgen!

Pass bitte die zwei Zähler oben

Code:

For zähler2 = 1 To 100 
For zähler3 = 1 To 100

noch an deine Zeilenanzahl an. Also für z.B 150 Zeilen

1 to 150
1 to 150

Gruß

 

Hallo
Habe noch zwei probleme.
Wie muß der folgende Code aussehen wenn

Code:

= Workbooks("Tagesbericht_Sorting_Flexi_2008_P6W3.xls").Sheets("Wochenauswertung").

in einem anderen Verzeichnis ist, und wie übergebe ich die ausgewählte Datei aus CommandButton2 an CommandButton1.
Da sich der letzte Teil im Dateinamen("Tagesbericht_Sorting_Flexi_2008_P6W3xls") jedesmal ändert.

Code:

Private Sub CommandButton1_Click()

Dim zähler1 As Integer
Dim zähler2 As Integer
Dim zähler3 As Integer
Dim zähler4 As Integer
For zähler1 = 1 To 6 'Worksheets.Count
  For zähler2 = 1 To 150
     For zähler3 = 1 To 150
       For zähler4 = 2 To 5
         If Sheets(zähler1).Cells(zähler2, 3).Value _
          = Workbooks("Tagesbericht_Sorting_Flexi_2008_P6W3.xls").Sheets("Wochenauswertung").Cells(zähler3, 2).Value Then
           If IsNumeric(Sheets(zähler1).Cells(zähler2, 3).Offset(0, zähler4).Value) _
             And Sheets(zähler1).Cells(zähler2, 3).Value <> "" Then
              Sheets(zähler1).Cells(zähler2, 3).Offset(0, zähler4).Value _
               = Sheets(zähler1).Cells(zähler2, 3).Offset(0, zähler4).Value _
              + Workbooks("Tagesbericht_Sorting_Flexi_2008_P6W3.xls").Sheets("Wochenauswertung").Cells(zähler3, 2).Offset _
             (0, zähler4 + 3).Value
           End If
         End If
       Next zähler4
     Next zähler3
  Next zähler2
Next zähler1
Unload Einlesen

End Sub



Private Sub CommandButton2_Click()

    ChDir "\"
    ChDrive "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien"
    Dateiname = Application.GetOpenFilename _
       ("Micrsoft Excel-Dateien (*.xls),*.xls")
    If Dateiname = False Then Exit Sub
    MsgBox "Ihre Auswahl:" & vbNewLine & Dateiname
  
End Sub

Gruss Olaf