Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA wenn dann multiplizieren

VBA wenn dann multiplizieren
03.02.2018 09:36:25
Inma
Hallo zusammen
Ich hoffe ihr habt eine Lösung für folgendes Problem:
In der Spalte C stehen verschiedene Zahlen (C6:C529). Falls in der Spalte C die Zahl 4300000 oder 4320000 steht, sollte der Code den Betrag in Spalte F mit 1.5 multiplizieren. Falls eine andere Zahl in Spalte C steht soll nichts passieren.
Leider brauche ich eine VBA Lösung, es ist eine Erweiterung von einem bestehenden Code.
Besten Dank für eure Hilfe. :)

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA wenn dann multiplizieren
03.02.2018 09:37:38
Hajo_Zi
warum nicht Formel?

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
AW: VBA wenn dann multiplizieren
03.02.2018 09:40:41
Inma
Hallo Hajo
Besten Dank für deine Antwort. Es ist Teil eines bestehenden Codes welcher viele verschiedene Excel Tabellen in .txt umwandelt damit diese in eine Software importiert werden können. Der ursprüngliche Code funktioniert sehr gut, allerdings muss ich nun einmalig gewisse Parameter umbewerten.
Besten Dank und Gruss
Inma
Anzeige
AW: VBA wenn dann multiplizieren
03.02.2018 09:43:20
Hajo_Zi
If Cells(loi,3)=4300000 or Cells(loi,3)=4320000 Then
cells(loi,6)=cells(loi,6)*1,5
End if
Gruß Hajo
1.5 statt 1,5 o.w.T.
03.02.2018 11:38:37
Werner
AW: VBA wenn dann multiplizieren
03.02.2018 11:37:59
Werner
Hallo Inma,
so: 
Dim raBereich As Range, raZelle As Range
With Worksheets("Tabelle1") 'Blattname anpassen
Set raBereich = .Range(.Cells(6, 3), .Cells(529, 3))
For Each raZelle In raBereich
If raZelle = 4300000 Or raZelle = 4320000 Then
raZelle.Offset(, 3) = raZelle.Offset(, 3) * 1.5
End If
Next raZelle
End With
Gruß Werner
AW: VBA wenn dann multiplizieren
03.02.2018 12:46:26
Inma
funktioniert, vielen Dank für eure Hilfe!! :)
Dieser Code wird nur einmalig verwendet, um die entsprechenden .txt. files zu generieren. Nachher lösche ich diesen Teil des Codes wieder raus, so dass er nicht nochmals verwendet werden kann.
Nochmals, besten Dank!
Anzeige
Gerne u.Danke für die Rückmeldung. o.w.T.
03.02.2018 18:29:47
Werner
AW: VBA wenn dann multiplizieren
03.02.2018 12:16:59
Sulprobil
Woran erkennst Du, dass die Multiplikation bereits einmal durchgeführt wurde?
Oder anders gefragt, wie verhinderst Du, dass jemand unbedacht die Multiplikation mehrfach durchführt?
Viele Grüße,
Bernd P
AW: Warum stellst du diese Frage?
03.02.2018 12:47:03
Gerd
Gruß Gerd
AW: Warum stellst du diese Frage?
03.02.2018 20:23:37
Sulprobil
Versuche es bitte zu verstehen, ohne dass ich es erkläre. Wenigstens für zwei Minuten.
(Und dann ist es hoffentlich klar, oder ich muss Scotti bitten, mich 'rauf zu beamen.)
Nichts für ungut,
Bernd

311 Forumthreads zu ähnlichen Themen

VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Anzeige
Ohne VBA: Wenn Autofilter, dann anderen Zellwert
sunni

Hallo alle zusammen,
gibt es eine Möglichkeit über Excel (ohne VBA) zu sehen, ob ein Autofilter gesetzt ist?
Hintergrund: ich habe eine Formel bei gesetztem Autofilter. Wenn aber kein Autofilter gesetzt ist, soll hier in der Zelle eine 0 oder "" erscheinen.
Geht das?
Vielen Dank...
08.01.2010 12:35:47
Thread-ID: 1128216
8 Beiträge
wenn(isfehler=wahr;dann;sonst in vba
Joachim

Hallo,
ich wollte folgende Formel in vba schreiben:
=WENN(ISTFEHLER(VERGLEICH(B1;Wasserdaten!A:A;0))=WAHR;VERGLEICH(B1;Wasserdaten!A:A;1);VERGLEICH(B1; Wasserdaten!A:A;0))
Mein Code dazu geht auf Fehler:
zeile_ws = WorksheetFunction.if(IsError _
(Match(fdh_nr, Worksheets(...
30.04.2010 13:31:27
Thread-ID: 1154723
4 Beiträge
Anzeige
VBA Formel wenn Uhrzeit dann
Gonzer

Hallo zusammen,
habe folgendes Problem - ich will per VBA eine Formel in eine Zelle schreiben die überprüft ob ein Zellwert im Datumsformat vorliegt. Liegt dieses vor soll der Zellwert übernommen werden, wenn nicht soll die Zahl als Uhrzeit umgewandelt werden.
Hier meine Code Zeile:
...
16.09.2010 17:07:58
Thread-ID: 1178158
5 Beiträge
wie war das... VBA wenn dann ?
amintire

Hallo alle zusammen,
würde gerne in einem Label eine Auskunft geben wenn die UserForm geöffnet wird.
Also Daten stehen in A:B
'Wenn in der Spalte B größer als 1 vorhanden ist, dann soll die Zelle vor der Zahl mit angegeben werden.
=If B > 1 then
=?
oder so ähnlich ? <...
25.02.2011 11:37:33
Thread-ID: 1202920
16 Beiträge
wenn fehler dann sonst mit vba
Erik

Hallo Leute ich versuche einen Forecast zu erstellen und habe folgendes Problem.
Diese Formel:
=WENN(ISTFEHLER(VERWEIS(C:C;Tabelle3!A:A;Tabelle3!B:B));"";VERWEIS(C:C;Tabelle3!A:A;Tabelle3!B:B))
Steht in einer Zelle.
Wenn die Leute jetzt in die zelle schreiben ist die formel weg....
24.10.2011 23:00:40
Thread-ID: 1235246
3 Beiträge
VBA Wenn dann
WalterK

Hallo,
ich komme nicht drauf, was ich bei der Definition von ErsteZei angeben muss! ErsteZei soll, wenn E3 Leer ist die Zahl 4 sein, ansonsten die Zahl 3!
So jedenfalls funktionert es nicht:
Sub Test() Dim ErsteZei As Integer ErsteZei = If Range("$E$3") = "" Then 4 Else 3 End If Msg...
11.07.2012 14:21:31
Thread-ID: 1270637
3 Beiträge
VBA Wenn Zelle Leer dann
Philipp

Hallo,
ich habe eine Tabelle und möchte daraus automatisch eine Liste generieren.
Die Tabelle sieht in etwa so aus
A B C
1 XYZ ABC
2 Bla 23%
3 Blub 2% 7%
4 ...
Das Makro soll nun schauen ob in der Spalte A...
12.07.2012 16:29:13
Thread-ID: 1270809
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
8
7
3
6
4
15
2
2
2
2
3
4
1
1
10
2
1
5
1
5
1
1
6
8