Office: VBA - Einfaches Beispiel

Hallo VBA Könner,</SPAN>

so langsam beginne ich mich für VBA zu begeistern, es hat einfach unglaublich viele Möglichkeiten.</SPAN>
Nun möchte ich mich einarbeiten und habe auch schon ein schönes Makro mit Hilfe des Recorders gebaut und Formeln verwendet.</SPAN>
Leider stelle ich fest das die Formeln (Summenprodukt etc.) sehr an den Ressourcen knabbern und bei jeder Filterung neu berechnet wird was schließlich Zeit kostet.</SPAN>
Daher möchte ich Euch fragen wie man in VBA einen Vergleich von Zelle A2 und B2 macht und entsprechenden den Wert in Zelle B3 ausgibt.</SPAN>
Weiterhin soll diese Berechnung auf die weiteren Zellen angewendet werden.</SPAN>

KAnn mir da einer helfen?

Schöne Grüße</SPAN>
Tauchmann
</SPAN>
P.S. In Google habe leider nichts gefunden und wenn war es sehr kompliziert und nicht verwendbar.

[TABLE]
<COLGROUP><COL><COL width=60><COL width=60></COLGROUP><TBODY>[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: left"]Ergebnis[/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"][/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"][/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"][/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]7[/TD]
[TD="align: right"][/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"][/TD]
[/TR]
</TBODY>[/TABLE]





[TABLE]
<TBODY>[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: left"]Ergebnis
[/TD]
[/TR]
[TR]
[TD="align: right"]1
[/TD]
[TD="align: right"]4
[/TD]
[TD="align: right"][/TD]
[/TR]
[TR]
[TD="align: right"]2
[/TD]
[TD="align: right"]5
[/TD]
[TD="align: right"][/TD]
[/TR]
[TR]
[TD="align: right"]3
[/TD]
[TD="align: right"]6
[/TD]
[TD="align: right"][/TD]
[/TR]
[TR]
[TD="align: right"]4
[/TD]
[TD="align: right"]7
[/TD]
[TD="align: right"][/TD]
[/TR]
</TBODY>[/TABLE]
</SPAN>

 

Hallo Tauchmann,

... und was soll bei dem Vergleich herauskommen, welches Ergebnis? Dass 4 größer ist als 1? Die Differenz? Etwas anderes? Und was hat das mit dn vorher beschriebenen Funktionen (Summenprodukt) zu tun?

Idealerweise stellst du hier eine Mustertabelle ein, wo schon diene Anfänge (auch fehlerhaft) der Programmierung drin sind. Und natürlich das Wunschergebnis, welches per "normaler" Formel berechnet oder auch per Hand eingegeben wurde.

 

Dir sollte in jedem Fall aber klar sein: Jede Formel in einem Arbeitsblatt ist um Längen schneller, als ein nachgebautes Pendant in VBA. Wenn Dir eine Liste mit 12.000 SummeWenn() Funktionen zu langsam ist, dann stell Dich auf ein Vielfaches der Wartezeit ein, wenn Du das per VBA nachbaust.

Aber: Wenn Du das als "one shot" Berechnung brauchst, dann mag es eine Alternative sein. Soll heißen: Du könntest zwar eine entsprechende Formel einsetzen, aber die Liste ist statisch und von daher sind Neuberechnungen nicht notwendig. Dann kann man auch das Ergebnis selbst, z.B. per VBA, einfügen.

Nur: In dem Moment wäre wohl das Eintragen der Formeln, Kopieren der Ergebnisse und "Inhalte einfügen - nur Werte" sinnvoller und auch immer noch schneller. (Ich laß bei langen Listen dann meist in der ersten Zeile unter der Überschrift die Formel selbst stehen und ersetz nur die konstanten Werte darunter. So kann ich jederzeit die Formel neu herunterziehen, wenn sich die Liste doch mal ändert.)

Ich will nur sagen: Verbeiß Dich nicht, außer zu Übungszwecken vielleicht, in Probleme, die mit Bordmitteln schon lösbar sind. Es gibt genug andere Fälle, in denen VBA dann nicht nur sinnvoll, sondern sogar notwendig wird.

Gruß, Michael

 

Hallo Tauchmann,

Ich habe ein gewisses Verständnis dafür, dass, wenn man sich in eine neue Materie einarbeiten will, man dann natürlich bei den einfachen Fällen beginnt.
Im vorhin dargestellten Problem nehme ich an, dass Du die Differenz aus den Werten, die in den Zellen A2 und B2 enthalten sind, ermitteln willst und diese dann in einer dritten Zelle (zB. E2) speichern willst.
Das geht am einfachsten mit einer benutzerdefinierten Funktion.
Im allgemeinen Code-Modul von VBA gibt man dazu folgende Funktion ein:

Code:

Option Explicit
Public Function Differenz(S1 As Variant, S2 As Variant) As Variant
   Differenz = S1 - S2
End Function

Dann kann man die Funktion DIFFERENZ so verwenden, als wäre sie eine ganz normale Arbeitsblattfunktion. Will man in Zelle E2 die Differenz der Zellwerte von A2 und B2, so gibt man in Zelle E2 folgende Formel ein:
=DIFFERENZ(A2;B2)
oder in einer anderen Zelle die Differenz der Zellwerte von C5 und G3:
=DIFFERENZ(C5;G3)

Weiß man, dass man stets nur die Differenz von 2 Ganzzahlen bilden will, so kann man auch wie folgt programmieren:

Code:

Public Function DiffGanz(S1 As Long, S2 As Long) As Long
   DiffGanz = S1 - S2
End Function

Im Arbeitsblatt sieht dann die angewandte Formel folgendermaßen aus:
=DIFFGANZ(F7;A9)
wenn in F7 und A9 Ganzzahlen enthalten sind, deren Differenz in einer 3. Zelle ermittelt werden soll.

 

Hallo zusammen,

sorry für die seeeeehr späte Antwort. (Tja, die liebe Arbeit hält einen so beschäftigt das man alles ringsherum vergisst)
Ich möchte mich bei euch für Eure Antworten danken.

Bei meinem ersten richtigen Code verwende ich in VBA Formeln die dann im Arbeitsblatt als Formeln dargestellt werden (so hat es mir der Recorder aufgenommen).
Nun ist aber bei einer Filterung der Werte das Problem das alle Zellen wieder neu berechnet werden, obwohl bei einer festen Eintragung von Werten durch den VBA code dies nicht notwendig wäre und somit eine Auswertuing der Daten schneller gehen würde.

Naja, mein Problem habe ich zwar immer noch, aber ich werde hier noch ein paar VBA Trainigsrunden machen müssen.

Einen schönen Sonntagabend wünsche Euch
Tauchmann

 

Hallo!

Um in Zelle B3 den Differenzwert von Zelle B2 abzüglich Zelle A2 zu speichern mit einem VBA-Makro:

Code:

Sub Makro1()
    'Kopiere Wert aus Zelle B2 nach Zelle B3
    Range("B2").Copy Range("B3")
    'Subtrahiere Wert aus Zelle A2 vom Wert der Zelle B3
    Range("A2").Copy
    Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlSubtract, SkipBlanks:=False, Transpose:=False
    'Beende Kopiermodus
    Application.CutCopyMode = False
End Sub

oder aber mit folgendem Makro:

Code:

Sub Makro2()
    With Range("B3")
      'Berechne in Zelle B3 die Differenz von Zelle B2 abzüglich Zelle A2
      .FormulaR1C1 = "=R[-1]C-R[-1]C[-1]"
      'Wandle die Formel in Zelle B3 in einen bloßen Zellwert um:
      .Copy
      .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With
    'Beende Kopiermodus
    Application.CutCopyMode = False
End Sub

Beide Makros wiederum in einem allgem. Code-Modul speichern.
Aus dem Arbeitsblatt sind sie über die Tastenkombination Alt+F8 aufrufbar.