Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Wert grösser 1 dann...

Forumthread: Wenn Wert grösser 1 dann...

Wenn Wert grösser 1 dann...
06.03.2017 07:14:56
Roland
Hallo zusammen
Ich bin neu im Forum und lese mich momentan in VBA ein. Nun stosse ich aber an meine Grenzen und komme hier nicht weiter. In der Spalte E stehen Zahlenwerte. Die gelb Markierten Felder möchte ich immer wenn der Wert grösser 1 ist vom oberen Feld kopieren und einfügen.
Userbild
Beispiel: E2 wird der Wert 2 gefunden. Kopiere C2 nach C3. Dies soll so durchlaufen von oben nach unten. Am Schluss sollte es so wie beim 2. Bild aussehen.
Userbild
Hinbekommen habe ich die Abfrage über den Wert grösser 1. Ebenfalls das ich in Spalte F was einfügen („Früchte“)kann. 
Sub finden2()
Dim i As Integer
For i = 2 To 10
If Cells(i, 5).Value > 1 Then
Cells(i, 6).Value = "Früchte"
End If
Next
End Sub

Für eure Hilfe wäre ich sehr dankbar. Wenn Ihr die Schritte noch auskommentieren könntet wäre super.
Gruss Roland
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Wert grösser 1 dann...
06.03.2017 07:34:26
Rainer
Hallo Roland,
nimm doch einfach Spalte D als Hilfsspalte:

D2 =WENN(E2>1;C1;C2)
Kann man auch mit VBA machen, aber lohnt es sich?

For i = 2 To 10
If Cells(i, 5).Value > 1 Then
Cells(i, 3).Value = Cells(i - 1, 3).Value
End If
Next
Gruß,
Rainer
Anzeige
AW: Wenn Wert grösser 1 dann...
06.03.2017 07:45:42
Gerd
Hallo Roland,
bei diesem Konstrukt ist es unnötig, in E2 zu prüfen. Die Zeilenvariable sollte vom Typ Long sein,
falls es mal "longer" wird. :-) 
Sub finden4()
Dim zeile As Long
For zeile = 3 To 10
If Cells(zeile, 5).Value > 1 Then
Cells(zeile, 3).Value = Cells(zeile - 1, 3).Value
End If
Next
End Sub
Gruß Gerd
Anzeige
AW: Wenn Wert grösser 1 dann...
06.03.2017 08:07:39
Roland
Hallo Rainer und Gerd
Meine Güte das geht ja schnell hier ;-)
Herzlichen Dank, damit komm ich weiter.
;

Forumthreads zu verwandten Themen

Textbox - wenn nicht mehr als 3 stellen dann
Patrick

Hallo,
ich habe auf einer Userform eine Textbox in welche je nach Auswahl Kürzel (z. B. BE) eingetragen werden. Es soll nun realisiert werden, dass wenn ich auf einen commandbutton drücke, geprüft wird ob in der besagten Textbox nach wie vor nur "BE" steht oder diese Textbox bearbeitet wurd...
12.11.2008 16:39:47
Thread-ID: 1023910
5 Beiträge
Wenn Formel einen Wert hat, dann....
Rob

Hallo miteinander!
Ich habe in einer Zelle folgende Funktion stehen:
{=INDEX(Abrechnungshistorie!$C$1:$C$100;KKLEINSTE(WENN(Abrechnungshistorie!$A$7:$A$100=$C$30; ZEILE(Abrechnungshistorie!$C$7:$C$100));1)) }
Diese Funktion möchte ich gerne mit einer "Wenn...Dann" Bedingung verknü...
25.03.2009 18:58:58
Thread-ID: 1063931
3 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
wenn wert anders dann | Herbers Excel-Forum
Ralf
Hallo und frohes neues
Kann mir jemand von euch helfen ? ich brauche da mal ne formel die meine Fähigkeiten komplett übertrifft .
ich versuche es mal in worten zu schreiben also
wenn wert in H15 = ist wie E15-D15-F15 dann "" wenn der wert aber anders ist dann ( E15-D15-F15 )-H15 und da...
02.01.2010 11:28:05
Thread-ID: 1126681
9 Beiträge
Anzeige
Wenn Wert in ComboBox2, dann Eintrag in TB
Josef

Hallo!
Ich würde bitte eine VBA Lösung suchen.
Wenn ein Wert in der ComboBox2 in einer UF aktiviert wird, dann soll dieser Wert in der Tabelle2!B2:B107 gesucht werden und der in der Spalte C danebenstehende Wert soll in die TextBox1 eingelesen werden.
If ComboBox2.Text = Tabelle2!B2...
09.02.2010 10:10:30
Thread-ID: 1136905
4 Beiträge
Anzeige
wenn nicht eine Textbox mehr als 0, dann Msg.Box
Wolfgang

Hallo,
ich versuche folgendes Problem in den Griff zu bekommen, schaffe es aber mit verschied. Ansätzen nicht:
Ich würde gerne bei Klicken einer Schaltfläche zunächst überprüft haben, ob nicht zumindest eine Textbox von den Textboxes13-16 mehr als 0 enthält, wenn nein, Abbruch. Wäre für...
22.02.2010 18:36:04
Thread-ID: 1140459
11 Beiträge
Wenn nur ein Wert vorhanden, dann auto. Vorbelegen
Torsten

Hallo liebe Forumsgemeinde,
ich habe mehere Dropdownlisten.
Und ich blende bei der Auswahl verschiedene Möglichkeiten aus bereits aus, wenn diese nicht eintreffen können. Also wenn nur noch eine Auswahlmöglichkeit besteht, soll Excel automatisch diese Zelle mit dem einzig verfügbaren We...
22.06.2010 08:52:04
Thread-ID: 1163324
4 Beiträge
change-ereignis, wenn wert x dann sverweis
koenig.kl@arcor.de

hallo zusammen,
wenn in dem bereich K1:K1000 Target.Value "eign. Pr." enthält, soll
zwei zellen links davon sverweis eingetragen werden.
der zu suchende werte steht in der gleichen zeile wie target.value nur um 10 spalten nach links versetzt
-->Target.Offset(0, -10).Value
30.07.2010 13:02:59
Thread-ID: 1169606
5 Beiträge
Wenn Wert 0 dann MsgBox
Heinz

Schönen Vormittag im Forum
Ich habe eine Arbeitsmappe mit "Jänner" bis "Dezember"
In den jeweiligen Sheets steht das Datum in C1:AG1
Ich möchte nun wenn zum Beispiel im "Oktober" D1 ist der 2.Oktober und D168 ist gleich 0 das eine MsgBox erscheint "2.Okt. in Schicht 1 kein "VA"
...
15.09.2010 07:02:26
Thread-ID: 1177448
23 Beiträge
wenn in textbox1 der wert zwischen 1 u 35 dann rot
Achim

Hallo Excel Freunde
Komm nicht weiter. Wenn In meiner textbox1 der wert zwischen 0 und 34 liegt soll das Textfeld rot sein.
ist der wert 35 dann soll das Feld grün sein
Habe rumprobiert bekomme das nicht hin:
If TextBox1.Value = ? Then TextBox1....
06.12.2010 12:16:05
Thread-ID: 1190233
4 Beiträge
Wenn wert in Zelle dann Button
Rene

Hallo,
warum funktioniert die Auswahl der Buttons nicht mehr wenn Sie im Ttabellenblatt an eine andere Position gesetzt werden.
Die Datei https://www.herber.de/bbs/user/72744.xls wurde aus Datenschutzgründen gelöscht
Würde das Tool gern verwenden.
MfG René
19.12.2010 23:05:53
Thread-ID: 1192146
2 Beiträge
Wenn wert in Zelle dann Button
Rene

Hallo,
warum funktioniert die Auswahl der Buttons nicht mehr wenn Sie im Ttabellenblatt an eine andere Position gesetzt werden.
Die Datei https://www.herber.de/bbs/user/72744.xls wurde aus Datenschutzgründen gelöscht
Würde das Tool gern verwenden.
MfG René
20.12.2010 03:06:11
Thread-ID: 1192147
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Werte in Excel verarbeiten: Wenn größer als 1

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle eine neue Tabelle oder benutze eine bestehende.
  2. Gib in Spalte E die Zahlenwerte ein, die du überprüfen möchtest.
  3. Gib in Spalte C die Werte ein, die kopiert werden sollen, wenn die Bedingung erfüllt ist.

  4. Verwende die folgende VBA-Formel, um die Werte zu überprüfen und bei Bedarf zu kopieren:

    Sub finden2()
   Dim i As Integer
   For i = 2 To 10
       If Cells(i, 5).Value > 1 Then
           Cells(i, 3).Value = Cells(i - 1, 3).Value
       End If
   Next
End Sub
  5. Füge den Code in das VBA-Editor-Fenster ein (Alt + F11) und führe das Makro aus.

Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass du den Code im richtigen Modul eingefügt hast und dass die Zellen die richtigen Werte enthalten.

  • Fehler: Die Werte werden nicht korrekt kopiert.

    • Lösung: Überprüfe die Bedingungen in deiner If-Anweisung. Stelle sicher, dass die Zellreferenzen korrekt sind.

Alternative Methoden

Eine praktische Alternative zur Verwendung von VBA ist die Verwendung einer Excel-Formel:

  • In Spalte D kannst du folgende Formel verwenden, um den Wert aus der vorherigen Zeile zu kopieren, wenn der Wert in Spalte E größer als 1 ist:

    =WENN(E2>1;C1;C2)

Diese Methode ist schneller, wenn du einfach nur mit Formeln arbeiten möchtest und keine Programmierung benötigst.

Praktische Beispiele

Angenommen, du hast folgende Werte in Spalte E:

E C
0 Apfel
2 Banane
3 Traube
1 Kiwi

Mit der VBA-Formel oder der Excel-Formel wird das Ergebnis in Spalte C wie folgt aussehen:

E C D
0 Apfel Apfel
2 Banane Banane
3 Traube Traube
1 Kiwi Traube

Tipps für Profis

  • Verwenden von Long anstelle von Integer: Wenn du mit größeren Datensätzen arbeitest, ist es besser, die Zeilenvariable als Long zu deklarieren, um mögliche Überläufe zu vermeiden.

  • Fehlerbehandlung: Füge Fehlerbehandlungsroutinen in deinen VBA-Code ein, um unerwartete Fehler abzufangen und zu behandeln.

FAQ: Häufige Fragen

1. Wie kann ich die VBA-Formel anpassen, um mehr Zeilen zu überprüfen?
Du kannst den Bereich in der For-Schleife ändern, zum Beispiel For i = 2 To 50, um bis zur Zeile 50 zu überprüfen.

2. Funktioniert das auch in Excel Online?
VBA-Skripte funktionieren nicht in Excel Online. Du musst die Standardformeln verwenden oder Excel Desktop für VBA verwenden.

3. Kann ich die Formel in einem anderen Format verwenden?
Ja, die WENN-Formel kann auch in anderen Formaten angepasst werden, um unterschiedliche Bedingungen zu überprüfen, wie z.B. WENN(E2>=1;C1;C2).

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige