Markierte Zellen & Ergebnisse anzeigen

[PetrolMaxxe]

Hallo,

die Werte werden nun übergeben.

1. zu deiner Frage:

Wäre es auch möglich alle Zellen bei denen jetzt eine 0 hinterlegt ist (Zeile 1 und hälfte der 2. Zeile) aus der Berechnung zu nehmen? Diese Werte und Ergebnisse sind in der Praxis falsch und nicht umsetzbar. Da würde ich am Ende gern einfach einen "-" in die Zeile schreiben statt einer "0".

Die Zeile 1 wird in den Schleifen nicht abgefragt.
In Zeile 2 werden nur Werte abgefragt und ausgegeben, welche relevant sind. 
rng_1 Spalten werden in Zeile 2 direkt abfragt.
rng_2 Spalten fragen in die Werte der Zellen in Zeile 2 aus rng_1 ab.
Wie kommst du auf die Idee, dass es so nicht ist.
 
Zu deiner Werteübergabe:
Diverse unsinnige Dinge, welche im Modul des Tabellenblattes nicht benötigt werden, habe ich entfernt (unnützer Code).
Solche langen Prozeduren auch boshaft Spaghetticode genannt, macht man einfach nicht. 
Dafür legt man eine 2. Tabelle an.
Die 1. Spalte enthält die Zelladresse 2. bis letzte Spalte die Werte für die Tabelle (Ausgabe) unten rechts. Dann sucht man den Wert der markierten Zelle mit der Methode .Find und übergibt die gefundene Zeile in ein kleines Array und dann das Array in die Tabelle unten rechts.
Da braucht es nur ein paar Zeilen Code und wenn sich was ändert macht man die Anpassung in dieser Tabelle.
 
  schrauben-teller(2).xlsm (Größe: 41,54 KB / Downloads: 2)

Gruß Uwe