|
Hallo zusammen,
ich stehe hier als VBA Neuling vor einem Mega Problem.
Ich möchte Zellen in 2 Tabellenblättern miteinenader vergleichen. mit einer Wenn (Identisch...) abfrage komme ich nicht weit, weil die mir immer einen Wert ausgeben will und ein "nichts tun" nicht möglich ist. meine Zelle wird immer überschrieben. Also muss VBA her.
Es stellt sich wie folgt dar:
zwei Tabellenenblätter die vom Aufbauea her gleich sind, wobei Tabelle1, zwei Spalten mehr nach rechts raus hat.
Ich will mit Spaltennamen Arbeiten, weil die sich nicht ändern werden. die Tabelle könnte jedoch wachsen.
Also Tabelle1 "ServerInventory" in Spalte "Name" soll eine Übereinstimmung finden in Tabelle2 "Serverdaten_aktuell" in Spalte"Name"
wenn es keine Übereinstimmunggibt, also wenn der gesuchte Wert in der Tabelle2 nicht gefunden wird, soll in Tabelle1 in der Spalte "WMI Status" der Eintrag "kein AD Objekt" eingetragen werden. (in der entsprechenden zeile natürlich :) )
Wenn es eine Übereinstimmung gibt soll in Tabelle2 "Serverdaten_aktuell" geprüft werden ob in Spalte "WMI Status" das Wort "Success" drin steht"
Wenn ja soll die ganze Zeile kopiert werden und die zuvor abgeglichene Zeile in Tabelle1 kopiert werden. (aber nur Inhalte, ohne Formatierung)
Wenn die zweite Bedigung nicht "Sucess" ist sondern was anderes soll nichts kopiert werden, aber die Zelle in Tabelle1 in Spalte "Name" soll eine rote Schriftfarbe erhalten.
und das soll solange geschehen bis alle Zellen in Tabelle1 in der Spalte "Name" durch sind.
Puuhh ich hoffe es ist verständlich??
Vielen Dank schon mal für eure Hilfe,
Snoopy
|