Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Select

Select
09.12.2003 10:48:12
Michael
HAllo,
habe ein Makro welches QuellSheets(deren Name endet mit Quell z.B "Tabelle1 Quell") einer Arbeitsmappe einliest und sie in ZielSheets der Arbeitsmappe reinschreibt.
Dafür benutze ich den Sheets Select Befehl, welcher unschön und langsam ist.
Dann schneide ich den Quellsheetnamen den Namen "Quell" ab und vergleiche es mit den Zielsheets. Wenn sie sich gleichen schreibt das Makro rein.
Gibt es eine andere Möglichkeit 2 Sheets zu vergleichen, ob sie sich gleichen?

Bruchstückhafter Code Ausschnitt:

For each QuellSheet ...
If ...
....For each wsh ...
. ..if ...
....next
end if
next

mfg
Michael

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ohne Select
09.12.2003 11:42:13
Nike
Hi,
mal ein Anfang:

dim wks1 as worksheet
dim wks2 as worksheet

set wks1 = worksheets(1)
set wks2 = worksheets(2)
lngZeil = 1
do
if wks1.cells(lngZeil,1) <> wks2.cells(lngZeil,1) then
wks1.cells(lngZeil,2) = "Ungleich"
end if
lngZeil = lngZeil + 1
loop until wks1.cells(lngZeil,1)=""

Bye

Nike
AW: ohne Select
09.12.2003 15:59:59
Michael
Hallo Nike,
danke für die Hilfe, ist aber leider doch etwas anders als ich beschrieben habe:

1.es wird ein Quellsheet durchlaufen und Felder eingelesen (1.Forschleife)
2.Dann wird geschaut ob Feldinhalt(i) = Zieltabelle ist(NAmen sind identisch)(2.Forschleife+if)
3.Zieltabelle wird selected und Felder werden geschrieben
4.dann wird wieder das ursprüngliche Quellsheet aktiviert und es beginnt bei 1. wieder

Gruß
Michael
Anzeige
AW: ohne Select
09.12.2003 16:15:25
Nike
Hi,
meine Lösung war ja auch nur als Ansatz zu verstehen,
wie man dein Problem ohne .selecten lösen könnte...

zu 2. geschaut wird bei meinem Code auch ;-)
ob z.B. der Wert in Zelle A1 in Tabelle1 identisch ist
mit dem Wert in Zelle A1 in Tabelle2
wenn nein, wird in Zelle B1 in Tabelle1 ein Ungleich geschrieben
Den Code müßtest du dir halt entsprechend anpassen,
mir ging es mehr darum, wie eine Logik aussehen könnte unterschiedliche
Tabellen zu nutzen, ohne hin und her selecten zu müssen.

Bye

Nike

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige