Programmieren - alles kontrollieren 4.937 Themen, 20.662 Beiträge

Verfolgung starten Optionen

VBA Excel-Programmierung

pol / 10 Antworten / Flachansicht Nickles

Hi! Ich möchte gern in Excel zwei Varianten vorsehen, um z.B. entweder den Preis pro Einheit anhand der Gesamtkosten zu berechnen oder umgekehrt die Gesamtkosten anhand des Preise (also 2 Zellen mit jeweils einer Formel). Die Ausgabe der Berechnung soll in der Zelle erfolgen, in der die Formel steht. Dabei sollen die zugrundeliegenden Formeln (eigentlich ein Zirkelbezug) nicht gelöscht werden, so dass man nachträglich auch noch die zweite Berechnungs-Variante durchführen kann. Wie geht das???


Ich hoffe, das Problem einigermassen verständlich rübergebracht zu haben!? Ich weiss, dass die Aufgabe zu lösen ist, da ich vor kurzem in einem Shareware-Programm diese Möglichkeit entdeckt habe. Leider habe ich trotz eifrigem Probieren noch keine Lösung gefunden. Vielen Dank im Voraus für jeden Tipp!


Pol

bei Antwort benachrichtigen
Hallo pol, bist du sicher, dass du das in VBA machen musst, hört sich für ... Lars.L
Hi pol, gebe mal ein praktisches Beispiel! MfG UselessUser UselessUser
Also, hier ein Beispiel: Du hast im Excel-Sheet drei Spalten. 1 Stückzahl, ... pol
Hört sich immer noch nach wenn Funktion mit Hilfsspalten an. Tabelle: Tabelle1 Lars.L
Das stimmt schon, was du da schreibst, aber das ganze sollte innerhalb der ... pol
Hallo pol! Habe leider nicht die Zeit, das jetzt zusammenzusuchen, aber das ... UselessUser
Die Makros in dem Programm sind leider per Passwort geschützt. Ich habe ... pol
Hallo pol versuche es noch mal im Spotlight Forum ... Lars.L
pol Lars.L „Hallo pol versuche es noch mal im Spotlight Forum...“
Optionen

Hab das Problem gelöst!!! In "Diese Arbeitsmappe" muss man folgendes Makro reinschreiben:
"Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
ActiveWorkbook.Worksheets(1).OnEntry = "Formula"
End Sub"
Dieser Code verweist nun auf das folgende "Modul-Makro":
"Sub Formula()
With ActiveCell
If .Column = 2 And ActiveCell Range("B1") Then
If ActiveCell.Value = "" Or ActiveCell.Value = "0" Then
ActiveCell.Offset(0, 1).Value = ""
Else
ActiveCell.Offset(0, 1).FormulaR1C1 = "=RC[-2]*RC[-1]"
End If
ElseIf .Column = 3 And ActiveCell Range("C1") Then
If ActiveCell.Value = "" Or ActiveCell.Value = "0" Then
ActiveCell.Offset(0, 1).Value = ""
Else
ActiveCell.Offset(0, -1).FormulaR1C1 = "=RC[1]/RC[-1]"
End If
Else
End If
End With
End Sub"

Und schon funktioniert's!
Danke für den Link!

Pol

bei Antwort benachrichtigen
OK, wenn es zwingend in den gleichen Zellen ablaufen soll, dann muss das ... Lars.L