Suchen und Ersetzen in Formel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit '26.4.2016 Piet für Herber Forum Dim j As Integer, Blatt As String 'auflisten über den Worksheets Index Sub Tabelle_A1_auflisten_über_Index() For j = 1 To Worksheets.Count With Worksheets(j) If .Name = "Tabelle1" Then 'Tabelle1 überspringen !! ElseIf .Range("A1") <> "" Then 'A1 auswerten Worksheets("Tabelle1").Range("A1") = _ .Range("A1") & " " & .Name Exit For 'vorrangiger Aussprung End If End With Next j End Sub 'auflisten über den Worksheets Namen Sub Tabelle_A1_auflisten_über_BlattName() For j = 1 To 4 'Schleife 1-4 über Choose Blatt = Application.Choose(j, "Auto", "Bus", "Fahrrad", "Flugzeug") With Worksheets(Blatt) If Worksheets(Blatt).Range("A1") <> "" Then Worksheets("Tabelle1").Range("A1") = _ .Range("A1") & " " & Blatt Exit For End If End With Next j End Sub Sub Index_mit_MsgBoxprüfen() For j = 1 To Worksheets.Count MsgBox Worksheets(j).Name Next j End Sub

Hallo Reinhard,
ich habe einiges verstanden, teilweise aber auch nicht. Gehen wir es gemeinsam durch.
Zunaechst habe ich begriffen das es sich um 500 Tabellen handelt, die bearbeitet werden.
Ich habe auch das Problem mit dem Bezug verstanden. Das ist bei Formeln völlig normal
Unklar ist mir aber das Ausmass der gesamten Arbeit?? Das laesst sich mit VBA evtl.
anders lösen, dazu muss ich die Aufgabe aber erst einmal insgesamt verstehen!!
Was mir noch unklar ist, Warum schaue ich bei 2 Tabellen auf A1 und lösche sie dann??
Und in welchen Namen soll Tabelle1 umbenannt werden? Wozu dient das ganze??
Wass für mich schwer vorstellbar ist, das ich 500 Tabellen habe die nur in A1 einen Wert
haben, in denen aber sonst keine Daten stehen. Sonst könnte man sie nicht einfach löschen.
Dieser Teil liegt für mich ausserhalb meiner normalen Excel Praxis, wo es viele Spalten und
Zeilen mit Daten gibt. Da habe ich Probleme mit meinem gewohnten Excel Denken.
Was ist anschliessend mit den reduzierten 250 Tabellen? Was geschieht mit diesen Daten??
Da habe ich im Augenblick Null Durchblick über das gesamte System, und wozu es dient.
Über Programmieren können wir in Ruhe reden, aber zuerst müsste ich den Sinn verstehen.
Auf Grund meiner langen Praxis gibt es da vielleicht andere Lösungen??
Was geschieht anschliessend mit den Daten in den 250 neu erstellten Tabellen?
Theoretisch könnte man auch eine Übersicht Tabelle nehmen und alle 500 Tabellen
mit Namen und Werten in A1 untereinander auflisten.
Ich muss nur erst mal einen klaren Kopf in die Aufgabe bekommen.
mfg Piet

Hallo Piet,
tut mir leid, wenn meine Erklärungen suboptimal sind - werde versuchen die Aufgabe besser zu erläutern. Falls Du dabei auf einen komplett neuen Lösungsansatz kommst wäre das kein Problem (und würde mich auch nicht wundern, denn ich habe halt mit meinen bescheidenen Kenntnissen solange herumgewurschtelt, bis ich stecken geblieben bin. Möglicherweise war der Anfang schon Mist...)
Ausgangslage: Es gibt eine Arbeitsmappe "Verwaltung" mit ca. 250 Tabellenblättern, jede einem Namen zugeordnet. Regelmäßig wird von dieser Mappe eine Sicherungskopie erstellt und in einen anderen Ordner verschoben. Diesmal wurde aber das Verschieben nicht durchgeführt und es wurde teilweise in der neuen Mappe und teilweise in der alten Mappe weitergearbeitet. Jetzt müssen die beiden Mappen halt verglichen werden und die Daten irgendwie zusammengeführt werden.
Beide Mappen sind also vom Grundaufbau identisch: gleiche Anzahl/Benennung/Reihenfolge der Tabellenblätter. Es gibt halt nun manchmal Eintragungen, welche in beiden Blättern vorkommen, aber auch Eintragungen, welche nur in der "alten" oder "neuen" Vorkommen. Diese "isolierten" Eintragungen sollen zusammengeführt werden.
In jedem Tabellenblatt müssen ca. 300 verschiedene Felder ausgelesen werden; das mit Feld A1 sollte nur zur Vereinfachung dienen.
Ich bin halt bislang so vorgegangen, dass ich die Tabellenblätter aus der "alten" Mappe (Sicherungskopie) in die neue/aktuelle Mappe kopiert habe. Anschließend habe ich sie alphabetisch sortieren lassen (daher die Reihenfolge "Müller" und dann "Müller (2)"). Jetzt habe ich als aller erstes Tabellenblatt quasi ein leeres Formular eingefügt und in die Felder, in die Daten aus den Tabellenblättern "Müller"/"Müller (2)" eingelesen werden sollen, meine Formel geschrieben =WENN(Müller!... usw. Anschließend - aber jetzt wird es wirklich 100% amateurhaft - wurde dieses erste Tabellenblatt mit neuem Namen (hier habe ich einfach noch den Vornamen einfügen lassen) z.B. als "Müller Michael" ans Ende der Mappe einfügen lassen. Das anschießende Löschen der beiden Tabellenblätter "Müller" und "Müller (2)" war nur gedacht, weil ich mich irgendwie dahin retten wollte, dass immer das aktuell 2. und 3. Tabellenblatt in der Mappe in das "Leerformular" (Tabellenblatt 1) eingelesen werden sollen.
Hier gibt es sicher eine VIEL bessere Lösung - bei meinen Kenntnissen gilt aber leider 1/2-Wissen mal 1/2-Wissen gibt 1/4-Wissen
Bin für jede Hilfe/Neuansatz sehr dankbar!
Reinhard

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchen und Ersetzen in Formel

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread