unlösbar? Dateien untereinander zusammenfassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi parza,
ich habe mir die Datein angesehen: die =SUMMEWENN löst das Problem mit der Summierung ja ganz geschickt; die Zahlen rechts neben der importierten Tabelle (also Spalte D) kann man ohne Aufwand mit VBA erzeugen - das macht es überflüssig, sie in den Import-Datein in Spalte AV zu platzieren.
Im Gegenteil: der Import könnte flüssiger gehen, wenn wirklich nur die reinen Tabellendaten (also in dem Fall B-C) kopiert werden.
In Spalte A steht 0001, 0002 usw., sind das tatsächlich die Tabellennamen (0001.xls)?
Ach so: die Maschine, auf der Du den Import durchführst, hat aber ein neueres Excel als 2003 (=xls), ja?
So, einige Zeit später: zunächst bin ich einigermaßen verärgert, weil die Datein allesamt irgendwelche Workbook_Open-Ereignisse enthalten, die an MEINEM Excel herumpfuschen!!! Merk Dir bitte für die Zukunft, daß so etwas VOR dem Upload in ein Forum RAUS MUSS!!! (als Benutzer Deiner Datein würde ich mich auch "bedanken")
Deshalb höre ich jetzt auch bei diesem Stand auf zu programmieren...
Userbild

Mit dem oberen Button wählst Du den Pfad (bzw. eine Datei, die dort liegt) aus, und mit dem zweiten Button werden alle vorhandenen Datein eingelesen - samt Anzahl und Namen der Blätter.
Zu Testzwecken habe ich mal in 0001.xls ein weiteres Blatt eingefügt, das dann die Ausgabe "## weitere" erzeugt - wenn die Blattnamen oder die Anzahl der Blätter nicht mit der Master-Datei (gerechnet ohne das Master-Blatt) übereinstimmen, wird das durch eine bedingte Formatierung rot dargestellt.
Es mag zusätzliche Zeit kosten, die Plausibilitätsprüfung nicht direkt beim Einlesen vorzunehmen, andererseits dauert Letzteres ohnehin etwas länger, so daß ich es so herum für sinnvoller halte: dann kann man evtl. markierte Datein mal vor dem Import händisch überprüfen und gängig machen - man weiß ja nie, was die Anwender so treiben...
Wegen meiner Verärgerung lade ich die Datei jetzt nicht hoch; ohnehin wird der Thread in Kürze nicht mehr im Forum angezeigt, so daß ich erst weitermache, wenn ich eine mail von Dir habe.
Schöne Feiertage und Grüße,
Michael

Hallo Michael und die anderen Fachleute,
erst einmal nochmals herzlichen Dank. Es ist ein suuuuper hilfsbereites und auch freundliches Forum hier (dies ist nicht überall so).
Zum Ärgernis bzw. den Unklarheiten:
Ich habe keine Ahnung von Programmierung, vba u.a.. Allerdings ist die Originaldatei wahrscheinlich so alt wie das *xls Format und wurde immer Laufe der Zeit immer wieder verändert. Allerdings nicht von mir, sondern ich erhalte eine Originaldatei von einer übergeordenten Behörde, versende diese dann an über 100 andere Einrichtungen und diese senden sie mir ausgefüllt zurück. Keine Ahnung, was an den Dateien alles herumgedoktert wird/wurde. Trotzdem Entschuldigung.
Ich fasse anschließend diese gesamten Dateien wieder zusammen (hierfür ist derProgrammierungswunsch gedacht), werte sie aus, um sie dann wieder als eine Datei an die obere Behörde zurückzusenden.
0001 ist nicht der Name des Tabellenblatts, sondern die Kennzahl der zurücksendenden Behörde.
Ich persönlich benutze Office 2010, aber die Stellen, die die Dateien ausfüllen in der Regel noch Office 2003 und z.T. Libre Office. Daher *.xls.
Spalte A ist wichtig, um zu erkennen, von wem die Datei ist und ohne Spalte D funktioniert die Summewenn nicht.
Zum genauen Testen komme ich leider erst nach den Feiertagen, wenn ich wieder am Arbeitsplatz bin.

Option Explicit Function bereichSuchen(Blatt As Worksheet) As String Dim ReUn$, LiOb$ Dim c As Range Set c = Blatt.Cells.Find("*", , , , , xlPrevious) 'Stop If c Is Nothing Then bereichSuchen = "nix": Exit Function ReUn = c.Address Set c = Blatt.Cells.FindNext(c) LiOb = c.Address If ReUn = LiOb Then bereichSuchen = "nix" Else bereichSuchen = LiOb & ":" & ReUn End Function Sub testen() Dim sh As Worksheet, ubersicht As Worksheet Dim bereichAdresse$ Dim zeilen&, nextZ& Set ubersicht = Sheets("Übersicht") ubersicht.Cells.Clear nextZ = 6 For Each sh In Worksheets If sh.Name "Übersicht" Then ubersicht.Range("A" & nextZ - 1) = sh.Name bereichAdresse = bereichSuchen(sh) If bereichAdresse "nix" Then MsgBox "Blatt: >" & sh.Name & "> Bereich: > " & bereichAdresse & "" & sh.Name & "> Bereich: 'nix'" ubersicht.Range("A" & nextZ) = "nix" nextZ = nextZ + 2 End If End If Next End Sub

Beliebteste Forumthreads (12 Monate)

unlösbar? Dateien untereinander zusammenfassen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread