Thema Datum  Von Nutzer Rating
Antwort
06.07.2014 15:02:31 Boarder510
NotSolved
06.07.2014 15:11:56 Boarder510
NotSolved
Rot VBA Script für verschiedene Berechnungen
 06.07.2014 15:39:18 Gast83090
NotSolved

Ansicht des Beitrags:
Von:
Gast83090		 Datum:
06.07.2014 15:39:18		 Views:
1059		 Rating:
     
Antwort:
  Ja
Thema:
VBA Script für verschiedene Berechnungen

Hi,

dafür brauchst du weder VBA noch Steuerelemente / Formularfelder.

Es läuft einfach per Formel.

 

Hier mal ein Beispiel welches per Makro erzeugt wird, weil es das besser verdeutlich als es nur verbal zu schildern.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
 
Sub Beispiel_Init()
   
  With Range("A1") 'DropDown 1
     
    .Validation.Delete
    .Validation.Add xlValidateList, Formula1:="Version-A,Version-B"
     
    Range("E10").Formula = "=IF(" & .Address & "=""Version-A"",3*B12," & _
                                "IF(" & .Address & "=""Version-B"",B11+B12,"""")" & _
                              ")"
  End With
   
  With Range("A2") 'DropDown 2
     
    .Validation.Delete
    .Validation.Add xlValidateList, Formula1:="Version-C,Version-D,Version-E"
     
    Range("E11").Formula = "=IF(" & .Address & "=""Version-C"",3*B15," & _
                                "IF(" & .Address & "=""Version-D"",B14," & _
                                    "IF(" & .Address & "=""Version-E"",B14+3*B15,"""")" & _
                                  ")" & _
                              ")"
  End With
   
  'Ergebnis
  Range("B10").Formula = "=MIN(E10,E11)"
   
End Sub

 

Nachdem du das Makro einmal ausgeführt hast, kannst du dir die Werte / Formeln im aktiven Blatt ansehen.

Die DropDown-Felder sind dabei Gültigkeitslisten und befinden sich hier im im Beispiel in den Zellen A1 und A2.

 

 

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.07.2014 15:02:31 Boarder510
NotSolved
06.07.2014 15:11:56 Boarder510
NotSolved
Rot VBA Script für verschiedene Berechnungen
 06.07.2014 15:39:18 Gast83090
NotSolved