Zellen "gegeneinander" berechnen

Guten Morgen liebe Forumteilnehmer,
ich benötige einmal Eure Hilfe. Leider bin ich in VBA noch nicht so gut unterwegs - bediene mich aber bei guten Ideen gern einiger Äußerungen aus dem Forum.
Ich habe im Tabellenblatt "Daten" diverses Material nach folgender Form aufgebaut:
Spalte A - Name
Spalte B - anteilige Erreichung eines definierten Ziels (Wert in %)
Spalte C - Ranking der Spalte B
Jetzt möchte ich in einem neuen Tabellenblatt (Tabelle1) folgendes erreichen:
In Zelle A3 möchte ich eine Rangziffer eingeben, automatisch soll dann in B3 die Abweichung auftauchen - gebe ich allerdings in B3 einen Wert Abweichung ein, soll in A3 der Rang auftauchen...
Mit Formeln bzw. 2 Tabellenblätter im Excel habe ich das auch "normal" hinbekommen. Allerdings hoffe ich auf eine VBA Idee, die mir die Felder automatisch und damit gegeneinander berechenbar macht, damit ich auf das eine Blatt komplett verzichten kann.
Ich hoffe, dass ich mich verständlich ausgedrückt habe und hoffe auf baldige Hilfe.
Für die restlichen Osterfeiertage wünsche ich Euch und Euren Familien viel Freude, Ruhe und Entspannung - das Wetter passt ja :)
Grüße
Ron

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
so ganz verstehe ich ja dein Problem noch nicht (ne Beispieldatei wäre vielleicht hilfreich), aber um zu unterscheiden, ob jetzt ein Rang oder eine Abweichung zum Zielwert eingegeben wurde, reicht es doch zu Prüfen, ob die Zahl grösser oder kleiner 1 ist, da die Abweichung ja in % angegeben wird.
die Formel könnte dann so aussehen:


=Wenn(A3Formel für Rang;Formel für Abweichung)

Problem bleibt halt,das zwischen Abweichung und Rang nicht unterschieden werden kann.
andere Alternative wäre, du beginnst die Eingabe in A3 immer mit einem R wenn es sich um einen Rang handelt. Die Formel sieht dann in etwa so aus:


=Wenn(IstZahl(A3);Formel für Rang;Formel für Abweichung)

innerhalb der Formel für Abweichung musst du dann die Eingabe in A3 mit dieser Formel in eine Zahl umwandeln:


Wert(Teil(A3;2;99))

Gruß, Daniel

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False With Target Select Case .Address Case "$A$3" .Offset(0, 1).FormulaR1C1 = "=INDEX(Daten!C4,MATCH(RC1,Daten!C5,0))" .Formula = .Value Case "$B$3" .Offset(0, -1).FormulaR1C1 = "=INDEX(Daten!C5,MATCH(RC2,Daten!C4,0))" .Formula = .Value Case Else End Select End With Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen "gegeneinander" berechnen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread