Ich suche den Wert des Sheets "Wichtige Meldung Prio 1" in Spalte B, in den Jeweiligen Orten ("Ort1" Ort2"-"Ort8") in der Spalte "E"
Welcher Ort sich in der Variablen verbirgt ist in der Deklaration und Zuordnung am Anfang des Codes hinterlegt und verweist auf den Sheet Orte.
Im Sheet Orte ist hinterlegt, das Ort1 = Darmstadt; Ort2 = Frankfurt (Main) usw.
Die Sheets haben die entsprechend zugeordneten Namen.
Was ich möchte ist: aus dem Sheet "Wichtige Meldung Prio 1" in Spalte B (Zeile 8) ("Frankfurt (Main), BSK Technikräume ausgelöst") wird beim entsprechenden Durchlauf (in diesem Fall Der Durchlauf für Ort2 {Frankfurt (Main)}) in dem Sheet "Frankfurt (Main)" (Ort2) gesucht.
Dort wird es in Zeile 3 gefunden
Wird er gefunden, (in diesem Falle Zeile 3), sollen aus dem Sheet "Wichtige Meldung Prio 1" Zeile 8 die Zelle C & Zeile 8 kopiert und in das Sheet "Frankfurt (Main)" Zelle H & Zeile 3 eingefügt
und aus dem Sheet "Wichtige Meldung Prio 1" Zeile 8 die Zelle G & Zeile 8 kopiert werden und in das Sheet "Frankfurt (Main)" Zelle I & Zeile 3 eingefügt werden.
Ich dachte an etwas wie:
with Sheets("Wichtige Meldungen Prio 1").Cells("C" & I2).copy
Worksheets(Ort2).Range("H" & lngReihe2).PasteSpecial Paste:=xlPasteValues
With Sheets("Wichtige Meldungen Prio 1").Cells("G" & I2).copy
Worksheets(Ort2).Range("I" & lngReihe2).PasteSpecial Paste:=xlPasteValues
Ich finde aber das sich das einfach nicht "Richtig" anfühlt.
Wenn man das jetzt in einen funktionierende Code umschreiben würde, könnte es sein das es 1. funktioniert und ich es 2. auch verstehe.
Ich bin sicher, das man den gesamten Code total schlank und schön machen kann, aber ich kann es nicht und möchte ihn halt auch verstehen.
Deshalb dieser lange Weg, das ich jeden Ort einzeln durchsuche und den Code 8x durchlaufen lasse.
Das Problem ist, das wenn etwas bei dem "schlanken" Code nicht funktioniert ich wahrscheinlich schnell an meine Grenzen stoße.
Daher Danke, das du dich mit so einem "primitiven" Code beschäftigst.
Danke Bernd
|