Excel - Wert und kopieren in anderes Blatt

Brauche ich etwas Hilfe mit einer Formel, die ich versuche zu machen für eine Marke-Buch.
Ich habe eine Arbeit Buch, ein Blatt mit der Aufschrift "Master" mit Studenten eindeutigen Referenznummern in col A2, deren Namen B2/C2 und dann die vier Themen, die Sie studieren in col D2,E2,F2 und G2. Ich haben auch dann separate Blätter für jedes einzelne Motiv.

Möchte ich die Themen auf der master-Platte (in den vier Spalten) und wenn der "Mathe" ist ein Thema, ein student nimmt in einem von diesen Spalten möchte ich, dass der entsprechende student-name und Referenz aus, dass Zeile kopiert und eingefügt werden in das Blatt "Mathematik", so dass weitere Informationen eingegeben werden können, im Bezug auf das Thema/Schüler und Klasse.

Ich habe versucht, Sie arbeiten mit einer WENN-und-MATCH-Formel, aber es scheint ziemlich Komplex, wie ich es haben über 400 Studenten, die jeweils vier Fächer und die Fächer können in jeder der vier Thema Spalten.

Irgendwelche Vorschläge?

TIA!

InformationsquelleAutor Bryony309 | 2014-02-26

  1. 3

    Gibt es zwei mögliche Lösungen, die einfachste ist:

    In der Mathematik Blatt, fügen Sie dies ein:

    [Zelle B2]

    =IF(Sheet1!D2="Math";Sheet1!B2;IF(Sheet1!E2="Math";Sheet1!B2;IF(Sheet1!F2="Math";Sheet1!B2;IF(Sheet1!G2="Math";Sheet1!B2;""))))

    [Zelle C2]

    =IF(Sheet1!D2="Math";Sheet1!C2;IF(Sheet1!E2="Math";Sheet1!C2;IF(Sheet1!F2="Math";Sheet1!C2;IF(Sheet1!G2="Math";Sheet1!B2;""))))

    Und ziehen Sie Sie nach unten durch das Dokument ...

    Hier ist ein Beispiel-test habe ich gemacht:

    Studenten-Blatt:

    -------------
1001    Toni    Almeida     Math        Portuguese  Programming     Another
1002    David   P           Portuguese  French      Programming     Another
1003    Neil    C           Math        Portuguese  Programming     Another
1004    James   H           Portuguese  French      Programming     Another
-------------

    Ergebnis (Math sheet):

    -------------
1001    Toni    Almeida 
1002    
1003    Neil    C   
1004    
-------------

    Können Sie auch eine Abfrage erstellen:

    Hinweis: Dies funktioniert zumindest in Google Spreadsheet, ich habe nicht MS Office zu testen, diese in Excel.

    =query(B2:G5;"select B,C where D='Math'OR E='Math' OR F='Math' OR G='Math'";1)

    Ergebnis:

    -------------
1001    Toni    Almeida 
1003    Neil    C   
-------------
    Wenn Sie diese Formel eingegeben wird, in der Mathematik Blatt es gibt keine Daten in Zelle d2 auf die Mathematik-Blatt für die Formel zu sehen, ist die Zelle leer ist. Sollte ich geben Sie es auf die master-Platte?
    Tatsächlich, all die Referenzen B2, C2, D2, E2, F2, G2 ... Sind für das erste Blatt, das die Schüler Blatt.
    Ich habe bearbeitet die Antwort ...

    InformationsquelleAutor Toni Almeida

  2. 2

    Die einfachste Lösung wäre das filtern von Spalten D2,E2,F2,G2, dann copy/paste Ergebnisse zu verschiedenen Arbeitsblättern.
    Wenn Sie wollen, dass dies geschieht automatisch, Sie müssen ein makro schreiben.
    Grüße,

    Bearbeiten: Verschieben Sie Ihre Daten auf ein Blatt namens "Main" und alt+F11, um den visual basic-editor öffnen, einfügen - >Module, wählen Sie Modul, und fügen Sie diesen code unten und speichern. alt+F8 öffnen Sie Makros und führen Sie ProcessList Makro, es wird erstellen Sie Ihre Arbeitsblätter automatisch.

    Sub ProcessList()
Dim course As String
Dim studentID As String
Dim studentName As String
Dim studentSurname As String

Application.DisplayAlerts = False
For Each w In Worksheets
    If Not w.Name = "Main" Then
        w.Delete
    End If
Next
Application.DisplayAlerts = True

i = 0
While Not Worksheets("Main").Cells(2 + i, 1) = ""
i = i + 1
Wend
studentcount = i

For i = 0 To studentcount - 1
    studentID = Worksheets("Main").Cells(2 + i, 1).Value
    studentName = Worksheets("Main").Cells(2 + i, 2).Value
    studentSurname = Worksheets("Main").Cells(2 + i, 3).Value
    For j = 0 To 3
        course = Worksheets("Main").Cells(2 + i, 4 + j).Value
        If Not course = "" Then
        Call checkcourse(course)
        Call insertStudentData(course, studentID, studentName, studentSurname)
        End If
    Next j
Next i

End Sub

Sub checkcourse(course)
found = False
For Each w In Worksheets
    If w.Name = course Then
        found = True
    End If
Next
If found = False Then
        Worksheets.Add().Name = course
End If

End Sub

Sub insertStudentData(wsName As String, studentID, studentName, studentSurname)
i = 0
While Not Worksheets(wsName).Cells(2 + i, 1) = ""
    i = i + 1
Wend
Worksheets(wsName).Cells(2 + i, 1).Value2 = studentID
Worksheets(wsName).Cells(2 + i, 2).Value2 = studentName
Worksheets(wsName).Cells(2 + i, 3).Value2 = studentSurname
End Sub
    Ja, ich brauche Sie, um automatisch durchgeführt werden, so dass, wenn Sie eine neue student Zeile und Themen die Hinzugefügt wird, würde das dann kopieren Sie Ihren Namen in die entsprechenden Fächer der Blätter. Ich habe nicht wirklich verwendet werden, Makros, bevor Sie viel, wäre es kompliziert einzurichten?
    Ich habe bearbeitet es. Dies sollte erstellen Sie Ihre Arbeitsblätter automatisch.
    Dies ist erstaunlich,!!! Sie einen Fehler gefunden, auch wenn "Next If gefunden = False then Worksheets.Add().Name = Kurs endet, Wenn die"
    Und auch nur die ersten Studierenden in den Abschnitt Daten, um die vier Themen-Blätter ist er in
    Ich habe fest Sie ihn ein bisschen, jetzt sollte es funktionieren. Auch, überspringen Sie bitte die erste Zeile auf "Haupt" - sheet, wie ich dachte, vielleicht könnten Sie-Header gibt. Wenn Sie nicht führen, senden Sie mir Ihre E-mail-Adresse und ich werde senden Sie das Blatt über

    InformationsquelleAutor Trevize Daneel

Schreibe einen Kommentar