Thema Datum  Von Nutzer Rating
Antwort
Rot Auswertung mehrer Excel Listen
 11.08.2011 11:51:15 tt2
NotSolved

Ansicht des Beitrags:
Von:
tt2		 Datum:
11.08.2011 11:51:15		 Views:
1588		 Rating:
     
Antwort:
  Ja
Thema:
Auswertung mehrer Excel Listen

Hallo liebe Gemeinde,

ich habe eine Problem und komme dort nicht wirklich weiter. Habe mehrere hundert Excel Listen und möchte aus den Inhalten eine Auswertung machen. Jede Liste ist gleich aufgebaut und in Spalte F stehen die Werte, die mich interessieren. Mit =Zählenwenn kann ich ja auswerten, wie oft eine Zahl in einer Spalte vorkommt. Dieses Ergebnis soll mir dann in eine seperate Excel Liste geschrieben werden nach folgendem Muster:

Datei ABCD.xls

40 = 5x in Spalte F
50 = 1x in Spalte F

...

Datei ACVD.xls

20 = 10x in Spalte F
67 = 2x in Spalte F

...


Ein paar Sachen habe ich mir schon zusammengebaut aber das entscheidene Fehlt mir noch.

Sub test()
Dim strPath As String
Dim Wkb As Workbook, Zielmappe As Workbook
Dim strPfad As String, strDatei As String
Dim J As Integer

Set Zielmappe = ThisWorkbook

strPfad = "C:\test_ordner\"
strDatei = Dir(strPfad & "*.xls", vbDirectory)

Do While strDatei <> ""
    J = J + 1
    Set Wkb = Workbooks.Open(strPfad & strDatei, False, True)

    ' Hier fehlt mir noch das entscheidene Stück. So nach dem Motto:
    ' =Zählenwenn aus Spalte F und schreibe mir das Ergebnis in Datei mit dem Namen X

    Wkb.Close
    strDatei = Dir()
Loop

End Sub

Ich hoffe Ihr könnt mir helfen, vielen Dank :)

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Auswertung mehrer Excel Listen
 11.08.2011 11:51:15 tt2
NotSolved