Clever-Excel-Forum

Hallo,

ich habe folgendes Problem, undzwar möchte ich aus mehreren Arbeitsblättern bspw. (Tab1,Tab2,Tab3) in einem gesamt Arbeitsblatt (Gesamt) eine Liste mit Duplikaten erstellen, die aus den Tabellen der Spalte (D7:D27) entnommen werden, diese wiederum aus einer DropDownListe ausgewählt wird.

Beispiel:

Code:
Arbeitsblatt (Tab1)              Arbeitsblatt (Tab2)          Arbeitsblatt (Tab3)

D7   = "St.10"                           D7   = "St.10"

D8   = "St.15"                           D8   = "St.15"

D9   = "St. 20"                          D9   = "St. 20"

D10 = "St. 10"                         

D11 = "St. 10"                                                               D11 = "St. 20"

D12 = "St. 20"                                                               D11 = "St. 10"

In der Spalte E der jeweiligen Arbeitsblätter stehen die zugehörigen Beschreibungen zu den Eintragung in Spalte D.
Jetzt soll absteigend eine Liste erstellt, beginnend mit den meistvorkommendem Eintrag.

Code:
[b]Arbeitsblatt (Gesamt)[/b]

[b]Spalte[x]         Spalte[y][/b]

St. 10              +Beschreibung

St. 10              +Beschreibung

St. 10              +Beschreibung

St. 10              +Beschreibung

St. 10              +Beschreibung

St. 20              +Beschreibung

St. 20              +Beschreibung

St. 20              +Beschreibung

St. 20              +Beschreibung

St. 15              +Beschreibung

St. 15              +Beschreibung

Hab das ganze Netz durchsucht jedoch nichts passendes zu meinem Problem gefunden.
Ich hoffe ihr könnt mir weiterhelfen...:17

:17:

claudia

Hallo Claudia,

stell uns doch bitte mal deine Datei vor. Nur aufgrund deiner Beschreibung verstehe ich die Aufgabenstellung nicht 100%-ig und nachbauen möchte sicherlich auch keiner die Tabelle(n) ;)

Hallo Claudia,

teste es mal damit:

Code:
Sub DoppelteGesamt()

  Dim i As Long

  With Worksheets("Gesamt")

    Worksheets("Tab1").Range("D7:E27").Copy .Range("B2")

    Worksheets("Tab2").Range("D7:E27").Copy .Range("B23")

    Worksheets("Tab3").Range("D7:E27").Copy .Range("B44")

    .Range("A2:A64").Formula = "=COUNTIF(B$2:B$64,B2)"

    .Range("A2:C64").Sort Key1:=.Range("A2"), Order1:=xlDescending, Header:= _

        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal

    For i = 64 To 2 Step -1

      If .Cells(i, 1).Value > 1 Then Exit For

    Next i

    .Range("A2:A64") = ""

    .Range(.Cells(i + 1, 2), .Cells(64, 3)) = ""

  End With

End Sub

Gruß Uwe

Ich habe mal eine Tabelle erstellt die ungefähr so aussieht wie das Original...

@Kuwer habe deinen Code mal versucht zu testen, dabei kommt eine Fehlermeldung

-> Laufzeitfehler '1004':

Anwendungs- oder objektdefinierter Fehler

Hi Claudia,

(15.01.2015, 08:45)claudia schrieb: [ -> ]Anwendungs- oder objektdefinierter Fehler

vielleicht heißen Deine Tabellen anders als Tab1, Tab2 und Tab3? Du mußt das im Makro anpassen.

claudia

WillWissen

Kuwer

claudia

claudia

Rabe