Select

Bild

Betrifft: Select
von: Michael
Geschrieben am: 09.12.2003 10:48:12

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

Bild


Betrifft: AW: ohne Select
von: Nike
Geschrieben am: 09.12.2003 11:42:13

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


Bild


Betrifft: AW: ohne Select
von: Michael
Geschrieben am: 09.12.2003 15:59:59

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


Bild


Betrifft: AW: ohne Select
von: Nike
Geschrieben am: 09.12.2003 16:15:25

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


Bild

Beiträge aus den Excel-Beispielen zum Thema " Select"