Werte in anderen Mappe suchen und addieren :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Werte in anderen Mappe suchen und addieren

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

prittju
Newbie
Newbie

Anmeldedatum: 26.02.2007
Beiträge: 6

Verfasst am: 12.06.2008, 04:30

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

Mappe1.xls

Beschreibung:

Download

Dateiname:

Mappe1.xls

Dateigröße:

211.5 KB

Heruntergeladen:

33 mal

Mappe2.xls

Beschreibung:

Download

Dateiname:

Mappe2.xls

Dateigröße:

251.5 KB

Heruntergeladen:

24 mal

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 400
Wohnort: Fridingen an der Donau

Verfasst am: 12.06.2008, 08:18

Hallo!

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

Gruß

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 400
Wohnort: Fridingen an der Donau

Verfasst am: 12.06.2008, 15:26

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ß

prittju
Newbie
Newbie

Anmeldedatum: 26.02.2007
Beiträge: 6

Verfasst am: 12.06.2008, 23:00

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

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 400
Wohnort: Fridingen an der Donau

Verfasst am: 12.06.2008, 23:17

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

Gruß

prittju
Newbie
Newbie

Anmeldedatum: 26.02.2007
Beiträge: 6

Verfasst am: 12.06.2008, 23:44

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

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 400
Wohnort: Fridingen an der Donau

Verfasst am: 13.06.2008, 08:38

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ß

prittju
Newbie
Newbie

Anmeldedatum: 26.02.2007
Beiträge: 6

Verfasst am: 19.06.2008, 12:47

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Werte finden???	Christian 1969	Microsoft Excel Hilfe	1	23.08.2008, 13:20
	Werte in neue Excel Tabelle übergeben...	xeader	Microsoft Excel Hilfe	18	22.08.2008, 13:17
	Zahl in anderem Arbeitsblatt suchen	kiwi	Microsoft Excel Hilfe	23	21.08.2008, 13:42
	Werte bei bestimmten Datum vergleiche...	AxelF	Microsoft Excel Hilfe	6	19.08.2008, 15:23
	Werte der Sekundärachse soll sich auf...	Knueller	Microsoft Excel Hilfe	5	18.08.2008, 16:27

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de