Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If Then Else

If Then Else
02.03.2004 18:35:16
TinoB
hallo leute,
ich versuche mich jetzt weiter in excel bzw. VBA einzuarbeiten. nun habe ich eine frage. in der SpalteG ab der Zeile20 in der Tabelle1 befinden sich bzw. werden ua. die zahlen 10, 11, 20, 21 usw. eingetragen. wie muß den die anweisung aussehen, das wenn zb in 10 eingetragen wird ein makro bzw eine berechnung ausgeführt wird und das ergebnis in der gleichen zeile nur in der SpalteY eingetragen wird. oder halt die 20 mit einer anderen berechnung usw. könnte mir da jemand eventuell ein beispiel bringen wie dies aufgebaut wird.
Danke
Tino

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

Betreff
Datum
Anwender
Anzeige
AW: If Then Else
02.03.2004 18:57:02
ChrisL
Hi Tino
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Row >= 20 Then
Select Case Target
Case 20: Cells(Target.Row, 25) = 10 * 10
Case 21: Cells(Target.Row, 25) = 20 * 20
End Select
End If
End Sub


Alt + F11, doppelklick auf tabelle, code einfuegen.
Gruss
Chris
Select Case Beispiel
02.03.2004 19:07:26
ChrisL
... habe noch den Titel angepasst :-)
Aber wollte noch sagen, Michael hat recht, deine Frage lässt viel Spielraum offen. Wenn du die Werte 10, 11, 20, 21 mittels Gültigkeit/Liste erzeugst könntest du mit meinem Beispiel Probleme bekommen. Und für Michaels Beispiel musst du den Bereich erst als Namen definieren, sonst wird es nichts.
Gruss
Chris
Anzeige
AW: Select Case Beispiel
02.03.2004 19:26:09
TinoB
>deine Frage lässt viel Spielraum offen
ja ist richtig, nur möchte ich nicht, das sich forum user über mein problem gedanken machen und mir dann die fertige lösung präsentieren. ich möchte mich langsam an die sache rantasten, damit ich am ende auch weiß was ich gemacht habe. ;-)
AW: If Then Else
02.03.2004 19:10:30
TinoB
danke, ok das versteh ich. funktioniert dies auch, wenn ich nicht die werte in der formel sondern einen bezug auf eine Zelle in der entsprechenden Zeile mache? ist zwar bestimmt falsch aber in etwa so:
If Target.Column = 7 And Target.Row >= 20 Then
Select Case Target

Case 20: Cells(Target.Row, 25) = A20 * B20 / C20
Case 21: Cells(Target.Row, 25) = A20 * C20 / L20

End Select
End If
End Sub
nur müsste der bezug ebenfalls dynamisch auf die entsprechende zeile sein.
Tino
Anzeige
AW: If Then Else
02.03.2004 19:14:54
ChrisL
Hi Tino
Cells(Target.Row, 1) = Spalte A
Cells(Target.Row, 7) = Spalte G
Cells(Target.Row, 25) = Spalte Y
etc.
Gruss
Chris
AW: If Then Else
02.03.2004 19:34:24
TinoB
Cells(Target.Row, 1) = Spalte A
Cells(Target.Row, 7) = Spalte G
Cells(Target.Row, 25) = Spalte Y
ja ok, dies ist mit klar. ich versuch mein problem nochmal anders zu schildern.
Wenn in SpalteG (irgendwo) 10
Dann SpalteJ = SpalteH * PI() * SpalteI (gleiche zeile)
Wenn in SpalteG (irgendwo) 11
Dann SpalteJ = SpalteH * SpalteI /100 (gleiche zeile)
Sonst SpalteJ = leer
hoffe es einigermaßen richtig erklärt zu haben.
Tino
Anzeige
AW: If Then Else
02.03.2004 20:17:05
ChrisL
Hi Tino
Finds schon OK, wenn du selber auf die Lösung kommen willst, aber sie steht eigentlich schon da. Die Frage ist nur, der wievielte Buchstaben vom Alphabet I, J und H sind.
Cells(Target.Row, Spalte) = Cells(Target.Row, Spalte) * Cells(Target.Row, Spalte) / 100
Gruss
Chris
danke, dies könnte die lösung sein,
02.03.2004 20:44:30
TinoB
mal sehen ob's klappt.
Tino
AW: If Then Else
02.03.2004 18:58:10
Michael
Das ist nicht so einfach und je nachdem, wann das Makro gestartet werden soll (automatisch oder von Hand) sehr unterschiedlich.
Allgemein könnte sowas so aussehen:

Sub Makro()
Dim Bereich As Name ' Das ist der Bereich, in dem geschaut werden soll
Dim Zelle As Range  ' Die einzelne Zelle
For Each Zelle In Bereich
If Zelle.Value = 10 then
zelle.offset(0, 1)=zelle.value * 5  ' hier würde Zelle rechts daneben ausgewählt
Elseif Zelle.Value = 20 then
zelle.offset(0, 1)=zelle.value * 20
Else
End If
Next
End Sub

Anzeige
AW: If Then Else
02.03.2004 19:20:04
TinoB
danke erstmal, das makro soll eigentlich bei veränderung der entsprechenden zelle, oder aber mittels button ausgeführt werden.
Tino

299 Forumthreads zu ähnlichen Themen

If Then mit mehreren Schritten
Pfannen-Meister

Guten Morgen,
leider ist mein Betreff etwas unglücklich formuliert, aber ich weiß nicht, wie ich mein Problem in wenigen Worten zusammen fassen soll:
In VBA nutze ich eine If Then Anweisung. Ist die Bedingungen erfüllt, so soll er mehrer Schritte abarbeiten. Aber wie sage ich ihm, daß...
13.08.2008 10:34:00
Thread-ID: 1001416
5 Beiträge
Anzeige
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Zeilen einfärben mit mehreren Bedingungen
donald

Hallo Forum,
ich bräuchte eure Hilfe. Ich möchte folgendes erreichen:
wenn in spalte B "Ja"/"Nein" reingeschrieben wird, soll Excel die Zeile entsprechend einfärben (Grün/gelb). Das ist an sich noch gar nicht das Problem. In Spalte C wird ebenfalls eine Ja/Nein-Abfrage erwartet, so da...
22.10.2008 12:03:56
Thread-ID: 1018296
6 Beiträge
Anzeige
If then else für Anfänger
Gunter

Hallo Zusammen,
wenn ich eine If then else Abfrage habe z.B:
If ComboBox2.Value = "Trailer" And TextBox10.Value = "" Then _
Label36.Visible = True
TextBox10.BackColor = &HFF&
If ComboBox2.Value = "Spot" And TextBox11.Value = "" Then _
Label37.Visible = True
T...
30.11.2008 12:49:00
Thread-ID: 1029010
9 Beiträge
IF/ELSE in Excel (Porto anhand Gewicht berechnen)
Thomas

Hallo zusammen,
ich erstelle gerade ein Bestellformular mit Excel 2007 und möchte ein IF/ELSE Abfrage erstellen, die im Großen und Ganzen anhand eines bekannten Gewichtes die Preisliste von DHL abbildet.
Das ganze würde ich so oder so ähnlich formulieren:
if ($gewicht_kg >...
30.01.2009 12:55:49
Thread-ID: 1045369
5 Beiträge
If und else in Label.caption
Leon

Hi Zusammen
Was mache da falsch, daß Range I11 immer angezeigt wird obwohl nichts drin steht. Falls Range I11 grösser als 0 dann I11 zeigen ansonsten H11.
Private Sub userform_initialize() If Sheets("Wesentlichkeit").Range("I11") >= 0 Then Label20.Caption = Sheets("Wesentlichkeit")...
31.01.2009 22:28:06
Thread-ID: 1045773
3 Beiträge
Sumif mit 2 Bedingungen
HeinzS

Hallo zusammen, kann mir jemand sagen, wie ich die formel richtig aufbauen muß:
Aufgabenstellung: Addiere alle Zahlen aus dem Bereich A1:A100, welche entweder =123 sind? Habe es mit Sumif versucht, scheitere aber an der 2ten Bedingung.
Danke für eure Hilfe!
Lg, Heinz
04.02.2009 10:26:00
Thread-ID: 1046913
4 Beiträge
Zählenwenn mit mehreren Bedingungen
Thomy

Hallo Excelprofis
Ich habe 2 Spalten. In der 1. befinden sich Zahlen und in der 2. Namen.
Welche Formel muss ich verwenden, wenn ich die Anzahl Zahlen in der Spalte A ermitteln will, die grösser als 2 und kleiner als 6 sind und in der Spalte B der Name Meier steht.
Ich bin mal bis...
13.03.2009 15:38:03
Thread-ID: 1059916
2 Beiträge

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
2
3
5
5
8
4
2
3
1
3
8
1
3
4
4
9
3
5
7
12
2
4
8
9