Office: For Each Schleife, Zellen von zwei Bereichen vergleichen

Wenn ich das richtig sehe sollte es mit dem folgenden Code realisierbar sein:

Code:

 

Das sieht sehr gut aus, vielen lieben Dank !! *Smilie

Eine letzte Frage noch:

Die Artikelnummern die dazu gekommen oder weggefallen sind werden prima ausgegeben.
Was muss ich im Makro noch einfügen damit er über die aufgelisteten Artikelnummern noch eine Überschrift setzt?

z.B. (Dazugekommen, Weggefallen)


Du hast mir sehr weitergeholfen.

Schönen Start in den Tag.

Liebe Grüße

Sebastian

 

Edit:

Die Zahlen die du in dem Makro nennst, das sind dann die Zellen im Tabellenblatt? (Für mich nochmal zum Verständnis)

z.B.

If .Cells(lngZeile, 2) .Cells(lngZeile, 7) Then .Cells(lngZeile, 7).Font.Color = vbRed
If .Cells(lngZeile, 3) .Cells(lngZeile, 8) Then .Cells(lngZeile, 8).Font.Color = vbRed
If .Cells(lngZeile, 4) .Cells(lngZeile, 9) Then .Cells(lngZeile, 9).Font.Color = vbRed

 

Das ist korrekt: lngZeile ist die laufende Zeile in der For-Next-Schleife und die Zahl hinter dem Komma ist die Spaltennummer.

Um noch Überschriften hinzuzufügen musst du einfach nach der Zeile With Worksheets("Tabelle3") noch ergänzen (dabei Zelladresse anpassen!!):

Code:

Oder du schreibst einmalig die Überschriften von Hand in die gewünschten Zellen - sie werden ja nicht überschrieben, da die Eintragung erst ab Zeile 2 beginnt.

 

Vielen lieben Dank! *Smilie

Mir fällt grade noch auf... *biggrin.gif*

Gibt es eine Möglichkeit die gesamten Daten (von Tabelle 3) auf eine A4 Seite zu kompremieren?
Wenn ich dass jetzt ausdrucken würde, wäre dass momentan auf 3 verschiedenen Seiten. Hast du da auch noch einen Tipp für mich?

Auf Tabelle 3 möchte ich auch noch dass der Bericht erst ab Zeile 5 beginnt, weil ich darüber noch ein Logo einführen möchte.
Mit welchem Code kann ich das so einrichten?




Ich trau mich fast schon nicht mehr zu fragen weil ich schon viel zu viel nachgefragt habe..
aber gibt es noch die Möglichkeit die Behandlungen automatisch zählen zu lassen?
(z.B. die Behandlung "500" gab es insgesamt 2 Mal, "G" gab es nur einmal etc.)
(Hier gibt es ja auch die "Like" Funktion von Excel, dass er dies auch erkennt wenn es so ähnlich klingt, bekommt man sowas auch noch eingebaut?)
(z.B. die wenn die Behandlung "G*1" anstatt "G" heißt er die auch als "G" zählt?)


Das war es dann auch wirklich. Vielen vielen Dank für deine tolle Hilfe.

Liebe Grüße

Sebastian

 

Hi Sebastian,

Formatiere den gesamten Bereich als Druckbereich.

Ändere diesen Teil:

Code:

Benutze die Formel ZÄHLENWENN()

 

Hi,

dankeschön! *Smilie

Liebe Grüße

Sebastian

 

Code:

Habe geändert wie du gesagt hast, aber Excel fängt trotzdem in der obersten Reihe an. Woran kann das liegen?

 

Ändere diese Zeile:

Code:

Wenn in Tabelle1 und Tabelle2 die Werte ab Zeile 2 stehen und nur in Tabelle3 ab Zeile 5 begonnen werden soll, dann musst du in der For-Schleife die 5 wieder in 2 zurückändern

 

Okay.

Bzgl. des Like Operators. Gibt es da auch eine Möglichkeit diesen noch einzubauen?

Wenn z.B. in der Spalte Behandlung "E" steht und jemand " *E* 543" einträgt möchte ich, dass er dies als "gleichwertig ansieht".


Liebe Grüße

Sebastian

 

Wenn du in der Tabelle E*535 und E*543 zu stehen hast - woher soll Excel denn wissen, ob E mit dem ersten oder dem zweiten Auftreten von E gleichgesetzt werden soll?

 

Das ist eine gute Frage.
Gibt es nicht vllt. eine Möglichkeit dieses noch genauer in Excel zu definieren, was noch mit zu "E" gehört?

In andren Programmiersprachen würde es glaube ich mit dem Like Operator gehen, oder?

 

Selbstverständlich gibt es derartige Vergleichsoperatoren, aber das ist nicht das Problem - wie ich schon geschrieben hatte: wenn mehrere Begriffe mit einem "E" als Inhalt vorhanden sind, kann Excel nicht wissen, welcher von diesen als Ziel in Frage kommt und würde dann immer das 1. Auftreten nehmen, was aber nicht zwangsläufig das richtige Auftreten sein muss. Und genau darin liegt das Problem, gleichgültig welche Programmiersprache du verwendest: solange zu vergleichende Begriffe mehrfach vorkommen gibt es kein eindeutiges Zuordnungskriterium.

 

Sorry, ich war mit den Gedanken nicht ganz up to date - versuche es mal so:

Code:

 

Hallo,



Code:

So in der Art habe ich mir das vorgestellt, jedoch ohne MsgBox.

Momentan ist es so, dass wenn in der einen Behandlungsspalte ein E (Tabelle 1) steht und in der anderen ein E 456 (Tabelle 2), dann färbt er mir die Zeile rot, da es nicht 1 zu 1 das Gleiche in den Tabellen ist.
Wünschenswert wäre es, wenn er sieht dass bei beiden ein E vorkommt und somit dasselbe ist, damit ich später auch die =Zählenwenn() Funktion verwenden kann.

Ist dies technisch möglich?


Liebe Grüße

Sebastian