SVERWEIS Tabellen A + B dann Ergebnis in Tabelle C

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rüdiger,

wenn alle drei Tabellen in verschiedenen Mappen stehen dann so.
Auswertung.xls (in diese das Makro)
Auftragsarten.xls
Auftragsnummer.xls
Wenn Auftragsarten und Auftragsnummern in einer Datei stehen muß du das entsprechend anpassen.

Option Explicit
Sub Kosten()
Dim AA As String                            'Auftragsart Tabelle1
Dim ANR As Integer                          'Auftragsnummer Tabelle1
Dim AZAA As Integer                         'Anzahl Aufträge
Dim K As Integer                            'Kosten Tabelle2
Dim GK As Integer                           'Gesamtkosten
Dim IntRow1, IntRow2, I1, I2  As Integer    'Counter
Dim WKSAusw, WKSAA, WKSNr As Workbook       'Variable für Arbeitsmappen
'Arbeitsmappe geöffnen
Application.ScreenUpdating = False          'Schaltet Bildschirmupdate ab
Application.DisplayAlerts = False           'Schaltet die Warnmeldungen aus
Workbooks.Open Filename:="D:\Eigene Dateien\Excel\Eigene Makros\Auftragsarten.xls"
On Error GoTo Nextstep
Nextstep:
Workbooks.Open Filename:="D:\Eigene Dateien\Excel\Eigene Makros\Auftragsnummer.xls"
On Error GoTo Allopen
Allopen:
Application.DisplayAlerts = True            'Schaltet die Warnmeldungen wieder an
'Workbooks als Variable definieren
Windows("Auswertung.xls").Activate
Set WKSAusw = ActiveWorkbook
Windows("Auftragsarten.xls").Activate
Set WKSAA = ActiveWorkbook
Windows("Auftragsnummer.xls").Activate
Set WKSNr = ActiveWorkbook
'von letzter Zelle in u.a. Tabellen nach oben die letzte benutzte Zelle finden
IntRow1 = WKSAusw.Sheets("Tabelle3").Range("A65536").End(xlUp).Row
IntRow2 = WKSAA.Sheets("Tabelle1").Range("A65536").End(xlUp).Row

'Mit Sverweis die Kosten pro Auftragsart ermitteln
WKSAusw.Sheets("Tabelle3").Activate
For I1 = 2 To IntRow1
AA = Cells(I1, 1).Value

    For I2 = 2 To IntRow2
        If WKSAA.Sheets("Tabelle1").Cells(I2, 1).Value = AA Then
            ANR = WKSAA.Sheets("Tabelle1").Cells(I2, 3).Value
        K = Application.WorksheetFunction.VLookup(ANR, WKSNr.Worksheets("Tabelle2").Range("B2:D100"), 3, False)
        GK = GK + K
        End If
    Next

    WKSAusw.Sheets("Tabelle3").Cells(I1, 3) = GK
    GK = 0
Next

'mit Zählenwenn die Anzahl der Aufträge ermitteln
For I1 = 2 To IntRow1

    WKSAA.Sheets("Tabelle1").Activate
    AZAA = Application.WorksheetFunction.CountIf(Range(Cells(2, 1), Cells(IntRow2, 1)), Cells(I1, 1))
    WKSAusw.Sheets("Tabelle3").Cells(I1, 2) = AZAA
    AZAA = 0
Next
WKSAusw.Sheets("Tabelle3").Activate
Range("A1").Select
Application.ScreenUpdating = True            'Schaltet Bildschirmupdate wieder an
End Sub

Code eingefügt mit Syntaxhighlighter 1.15

Gruß
Holger

Hallo Rüdiger,

das ganze hier grenzt ja schon fast an Auftragsprogrammierung :-))

>"die datei mit der auswertung enthält doch ein leeres tabellenblatt auf dem dann das makro gefahren wird, oder?"
NEIN in der Ersten Zeile Stehen die Überschriften A=Auftragsart B=Anzahl Aufträge C=Kosten pro Auftrgasart
Ab A2 bis A??? must du manuell ALLE verschiedenen Auftragsarten eingeben.

>"die auftragsarten stehen in auftragsart.xls, spalte a2 bis a1604 (kann aber sein dass mehr aufträge dazu kommen), die dazugehörigen auftragsnummern sind in der gleichen datei in spalte c2 bis c1604."
OK, das Makro sucht in der Tabelle die letzte benutzte Zelle in Spalte A. Es ist also egal ob dort welche dazukommen.

>"in der datei mit den kosten stehen die auftragsnummern in spalte d2 bis d1753 (können mehr zeilen sein und kann auch grösser werden) die dazugehörigen kosten stehen in der gleichen datei in spalte i2 bis i1753."
Das war in deinem 1. Beispiel anders. Jetzt mußt du den Sverweis )Vlookup anpassen:
K = Application.WorksheetFunction.VLookup(ANR, WKSNr.Worksheets("Tabelle2").Range("D:I"), 6, False)

>"wo starte ich das makro in der auswertungsdatei"
Das Makro startest du Menuleiste EXTRAS/Makro/Makro auswählen und auf ausführen drücken

>"und wo kommen die zeilen und spaltenbeschriftungen hin. also wo sage ich dass genau in diese zelle der wert soll und die nächste zelle der nächste wert usw."
Der Syntax für die Zellen in VBA ist Cells(Nr_Zeile, Nr_Spalte) z.B. Zelle C8 = Cells(8, 3)
Die Gesamtkosten werden in der Auswertungs.xls in Spalte C geschrieben wenn du das anders haben willst muß du die Zeile
WKSAusw.Sheets("Tabelle3").Cells(I1, 3) = GK anpassen, wobei I1 ein Zähler ist also nur , 3 anpassen
Die Anzahl_Aufträge werden in der Auswertungs.xls in Spalte B geschrieben wenn du das anders haben willst muß du die Zeile
WKSAusw.Sheets("Tabelle3").Cells(I1, 2) = AZAA anpassen, wobei I1 ein Zähler ist also nur , 2 anpassen

Ich hoffe ich konnte dir das alles verständlich machen
Gruß
Holger

Beliebteste Forumthreads (12 Monate)

SVERWEIS Tabellen A + B dann Ergebnis in Tabelle C

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

SVERWEIS Tabellen A + B dann Ergebnis in Tabelle C

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread