Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Wert in Zelle grösser 0, dann kopiere...

Forumthread: Wenn Wert in Zelle grösser 0, dann kopiere...

Wenn Wert in Zelle grösser 0, dann kopiere...
11.09.2008 12:35:49
Bernhard
Hallo Excel Experten,
wer kann mir bei folgender Aufgabenstellung helfen:
In einer Tabelle1 werden Käufe/ Verkäufe erfasst (Spalten A - F). Wenn nun in der Spalte H ein Wert grösser Null steht, dann sollen der Inhalt der Zellen A bis C und E, F und H zeilenweise in Tabelle2 kopiert werden.
https://www.herber.de/bbs/user/55321.xls
Danke für Eure Hilfe,
Bernhard
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Bereich kopieren
11.09.2008 13:10:45
Backowe
Hi,
VBA-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Code in das entsprechende Tabellenblatt!
If Not Intersect(Target, Range("H2:H" & Cells(Rows.Count, "H").End(xlUp).Row)) Is Nothing And Target.Count = 1 Then
  If Target > 0 Then
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "H")).Copy _
      Destination:=Sheets("Tabelle2").Range("A" & Sheets("Tabelle2").Cells(Rows.Count, "A").End(xlUp).Row + 1)
  End If
End If
End Sub
Gruß Jürgen
AW: Bereich kopieren
Bernhard

Hallo Jürgen,
Danke auch Dir. Konnte Deinen Code noch nicht ausprobieren, da jetzt anderweitig beschäftigt. Rückmeldung morgen.
Gruss
Bernhard
AW: Bereich kopieren
Bernhard

Hallo Jürgen,
habe heute Deinen Code in meine Tabelle eingefügt, aber es tut sich nichts? Da meine VBA-Kenntnisse (noch) gering sind komme ich nicht auf den Fehler.
Danke aber trotzdem für Deine Mühe
Gruss
Bernhard
Ich habe so getestet!
Backowe

Hi Bernhard,
ich habe eine Tabelle 1 und eine Tabelle2 angelegt. Der Code kommt in die Tabelle1, da hatte ich dein Beispiel hin kopiert. Jedes Mal, wenn in Spalte H ein Wert größer 0 eingegeben wird, wird automatisch der Bereich von A bis H in die Tabelle 2 kopiert, immer in den nächste leere Zeile in Tabelle 2. Das Marko wird nicht angestoßen, sondern startet automatisch!
Also nochmals testen! :)
Gruß Jürgen
AW: Wenn Wert in Zelle grösser 0, dann kopiere...
Peter

Huhu,
oder so. Füg dir einen CommandButton auf Tabelle1 ein und weis dem Click-Ereignis diesen Code zu.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim intWert As Integer, intSpalte As Integer, intZeile As Integer, intAnz As Integer
ActiveWorkbook.Worksheets("Tabelle2").Range("a1:A60000").ClearContents
intSpalte = 8
intZeile = 1
intAnz = WorksheetFunction.CountA(ActiveWorkbook.Worksheets("Tabelle1").Range("A2:A60000"))
Zae2 = 0
For Zae1 = 1 To intAnz
    intWert = ActiveWorkbook.Worksheets("Tabelle1").Cells(intZeile + Zae1, intSpalte)
    If intWert > 0 Then
        ActiveWorkbook.Worksheets("Tabelle1").Range(Cells(intZeile + Zae1, 1), Cells(intZeile + Zae1, 8)).Copy
        ActiveWorkbook.Worksheets("Tabelle2").Cells(intZeile + Zae2, 1).PasteSpecial
        Application.CutCopyMode = False
        Zae2 = Zae2 + 1
    End If
Next Zae1
Application.ScreenUpdating = True
End Sub
Gruß Henrik
AW: Wenn Wert in Zelle grösser 0, dann kopiere...
Bernhard

Hi Henrik,
bin gerade erst dazu gekommen Deinen Code zu testen. Klappt prima.
Herzlichen Dank
Gruss
Bernhard
per Formel
WF

Hi Bernhard,
schreib in A2 der Tabelle2 folgende Arrayformel:
{=WENN(ZÄHLENWENN(Tabelle1!$H:$H;">0")<ZEILE(A1);"";INDEX(Tabelle1!A:A; KKLEINSTE(WENN(Tabelle1!$H$2:$H$99>0;ZEILE($2:$99));ZEILE(A1)))) }
nach rechts und nach unten kopieren / Spalte D dann löschen
ARRAY-Formel {=geschweifte Klammern} nicht eingeben;
Abschluß der Formel mit gleichzeitig Strg / Shift / Enter; - das erzeugt sie.
Salut WF
AW: per Formel
Bernhard

Hallo WF,
auch Dir sage Dankeschön. Die Formellösung werde ich auch erst morgen testen können. Dann auch Dir eine Rückmeldung.
Gruss
Bernhard
Anzeige
AW: Bereich kopieren
11.09.2008 17:20:00
Bernhard
Hallo Jürgen,
Danke auch Dir. Konnte Deinen Code noch nicht ausprobieren, da jetzt anderweitig beschäftigt. Rückmeldung morgen.
Gruss
Bernhard
AW: Bereich kopieren
12.09.2008 11:33:25
Bernhard
Hallo Jürgen,
habe heute Deinen Code in meine Tabelle eingefügt, aber es tut sich nichts? Da meine VBA-Kenntnisse (noch) gering sind komme ich nicht auf den Fehler.
Danke aber trotzdem für Deine Mühe
Gruss
Bernhard
Anzeige
Ich habe so getestet!
12.09.2008 12:03:46
Backowe
Hi Bernhard,
ich habe eine Tabelle 1 und eine Tabelle2 angelegt. Der Code kommt in die Tabelle1, da hatte ich dein Beispiel hin kopiert. Jedes Mal, wenn in Spalte H ein Wert größer 0 eingegeben wird, wird automatisch der Bereich von A bis H in die Tabelle 2 kopiert, immer in den nächste leere Zeile in Tabelle 2. Das Marko wird nicht angestoßen, sondern startet automatisch!
Also nochmals testen! :)
Gruß Jürgen
Anzeige
AW: Wenn Wert in Zelle grösser 0, dann kopiere...
11.09.2008 13:35:00
Peter
Huhu,
oder so. Füg dir einen CommandButton auf Tabelle1 ein und weis dem Click-Ereignis diesen Code zu.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim intWert As Integer, intSpalte As Integer, intZeile As Integer, intAnz As Integer
ActiveWorkbook.Worksheets("Tabelle2").Range("a1:A60000").ClearContents
intSpalte = 8
intZeile = 1
intAnz = WorksheetFunction.CountA(ActiveWorkbook.Worksheets("Tabelle1").Range("A2:A60000"))
Zae2 = 0
For Zae1 = 1 To intAnz
    intWert = ActiveWorkbook.Worksheets("Tabelle1").Cells(intZeile + Zae1, intSpalte)
    If intWert > 0 Then
        ActiveWorkbook.Worksheets("Tabelle1").Range(Cells(intZeile + Zae1, 1), Cells(intZeile + Zae1, 8)).Copy
        ActiveWorkbook.Worksheets("Tabelle2").Cells(intZeile + Zae2, 1).PasteSpecial
        Application.CutCopyMode = False
        Zae2 = Zae2 + 1
    End If
Next Zae1
Application.ScreenUpdating = True
End Sub
Gruß Henrik
AW: Wenn Wert in Zelle grösser 0, dann kopiere...
Bernhard

Hi Henrik,
bin gerade erst dazu gekommen Deinen Code zu testen. Klappt prima.
Herzlichen Dank
Gruss
Bernhard
per Formel
WF

Hi Bernhard,
schreib in A2 der Tabelle2 folgende Arrayformel:
{=WENN(ZÄHLENWENN(Tabelle1!$H:$H;">0")<ZEILE(A1);"";INDEX(Tabelle1!A:A; KKLEINSTE(WENN(Tabelle1!$H$2:$H$99>0;ZEILE($2:$99));ZEILE(A1)))) }
nach rechts und nach unten kopieren / Spalte D dann löschen
ARRAY-Formel {=geschweifte Klammern} nicht eingeben;
Abschluß der Formel mit gleichzeitig Strg / Shift / Enter; - das erzeugt sie.
Salut WF
AW: per Formel
Bernhard

Hallo WF,
auch Dir sage Dankeschön. Die Formellösung werde ich auch erst morgen testen können. Dann auch Dir eine Rückmeldung.
Gruss
Bernhard
Anzeige
AW: Wenn Wert in Zelle grösser 0, dann kopiere...
11.09.2008 16:52:00
Bernhard
Hi Henrik,
bin gerade erst dazu gekommen Deinen Code zu testen. Klappt prima.
Herzlichen Dank
Gruss
Bernhard
per Formel
11.09.2008 13:38:00
WF
Hi Bernhard,
schreib in A2 der Tabelle2 folgende Arrayformel:
{=WENN(ZÄHLENWENN(Tabelle1!$H:$H;">0")<ZEILE(A1);"";INDEX(Tabelle1!A:A; KKLEINSTE(WENN(Tabelle1!$H$2:$H$99>0;ZEILE($2:$99));ZEILE(A1)))) }
nach rechts und nach unten kopieren / Spalte D dann löschen
ARRAY-Formel {=geschweifte Klammern} nicht eingeben;
Abschluß der Formel mit gleichzeitig Strg / Shift / Enter; - das erzeugt sie.
Salut WF
Anzeige
AW: per Formel
11.09.2008 17:22:21
Bernhard
Hallo WF,
auch Dir sage Dankeschön. Die Formellösung werde ich auch erst morgen testen können. Dann auch Dir eine Rückmeldung.
Gruss
Bernhard
;

Forumthreads zu verwandten Themen

Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Anzeige
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Anzeige
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Anzeige
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
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 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 "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 Beiträge
Wenn 0 dann löschen
Ralf

Hallo und eien schönen 4 adv.
ich habe da mal ein anliegen und zwar habe ich eine Formel z.B in F 17
=E17-(B161)*RegelMoDo-(B16=6)*RegelFr
Kann man die auch noch so ummodelieren, dass wenn in D 17 = 0 Dann inhalt in E und F 17 löschen also das die Zellen leer sind
20.12.2009 11:39:13
Thread-ID: 1125105
12 Beiträge
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
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 kopieren, wenn sie größer als null sind

Schritt-für-Schritt-Anleitung

  1. VBA-Code einfügen: Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen. Wähle die Tabelle aus, in der Du die Überprüfung durchführen möchtest (z.B. "Tabelle1").

  2. Worksheet_Change-Ereignis: Füge den folgenden Code in das Codefenster ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("H2:H" & Cells(Rows.Count, "H").End(xlUp).Row)) Is Nothing And Target.Count = 1 Then
       If Target > 0 Then
           Range(Cells(Target.Row, "A"), Cells(Target.Row, "C")).Copy _
               Destination:=Sheets("Tabelle2").Range("A" & Sheets("Tabelle2").Cells(Rows.Count, "A").End(xlUp).Row + 1)
       End If
   End If
End Sub

  3. Code testen: Gehe zurück zu Excel, gib einen Wert größer 0 in eine Zelle in Spalte H ein und überprüfe, ob die entsprechenden Werte aus Spalte A bis C in "Tabelle2" kopiert werden.

Häufige Fehler und Lösungen

  • Fehler: Der Code wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass Du den Code im richtigen Tabellenblatt eingefügt hast. Es sollte in "Tabelle1" sein, wenn Du die Werte dort eingibst.

  • Fehler: Nichts wird kopiert.

    • Lösung: Überprüfe, ob der eingegebene Wert tatsächlich größer als 0 ist. Der Code funktioniert nur, wenn der Wert in Spalte H größer 0 ist.

Alternative Methoden

  1. CommandButton hinzufügen: Du kannst auch einen Button hinzufügen, um den Kopiervorgang manuell auszulösen. Füge einen CommandButton in "Tabelle1" ein und verwende folgenden Code:

    Private Sub CommandButton1_Click()
   Application.ScreenUpdating = False
   Dim intWert As Integer, intZeile As Integer, intAnz As Integer, Zae2 As Integer
   intZeile = 1
   intAnz = WorksheetFunction.CountA(ActiveWorkbook.Worksheets("Tabelle1").Range("A2:A60000"))
   Zae2 = 0
   For Zae1 = 1 To intAnz
       intWert = ActiveWorkbook.Worksheets("Tabelle1").Cells(intZeile + Zae1, 8)
       If intWert > 0 Then
           ActiveWorkbook.Worksheets("Tabelle1").Range(Cells(intZeile + Zae1, 1), Cells(intZeile + Zae1, 8)).Copy
           ActiveWorkbook.Worksheets("Tabelle2").Cells(intZeile + Zae2, 1).PasteSpecial
           Zae2 = Zae2 + 1
       End If
   Next Zae1
   Application.ScreenUpdating = True
End Sub

  2. Formel verwenden: Du kannst auch eine Formel verwenden, um die Werte anzuzeigen, die größer als 0 sind. Eine Beispiel-Arrayformel könnte so aussehen:

    =WENN(ZÄHLENWENN(Tabelle1!$H:$H;">0")<ZEILE(A1);"";INDEX(Tabelle1!A:A;KKLEINSTE(WENN(Tabelle1!$H$2:$H$99>0;ZEILE($2:$99));ZEILE(A1))))

    Vergiss nicht, die Formel mit STRG + UMSCHALT + ENTER abzuschließen.

Praktische Beispiele

  • Beispiel 1: Du hast eine Liste von Verkäufen in "Tabelle1". Wenn der Verkaufswert in Spalte H größer als 0 ist, wird die gesamte Zeile von A bis C und E bis H in "Tabelle2" kopiert.

  • Beispiel 2: Verwende die oben genannte Arrayformel in "Tabelle2", um nur die Zeilen anzuzeigen, die einen Wert größer als 0 in Spalte H haben, ohne VBA zu verwenden.

Tipps für Profis

  • Automatisierung: Nutze die Worksheet_Change-Ereignisse, um Prozesse zu automatisieren. Das spart Zeit und reduziert Fehler.

  • Datenvalidierung: Stelle sicher, dass die Eingabewerte in Spalte H durch eine Datenvalidierung überprüft werden, um sicherzustellen, dass nur numerische Werte eingegeben werden.

  • Debugging: Wenn etwas nicht funktioniert, füge MsgBox-Befehle in deinen Code ein, um den Status von Variablen während der Ausführung zu überprüfen.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass der Code nur bei bestimmten Bedingungen ausgeführt wird? Du kannst zusätzliche Bedingungen in den If-Anweisungen hinzufügen, um die Ausführung des Codes zu steuern.

2. Was mache ich, wenn ich keine VBA-Kenntnisse habe? Falls Du mit VBA nicht vertraut bist, kannst Du auch die Formelmethode verwenden, um die Werte anzuzeigen, die größer als 0 sind.

3. Wie kann ich den Code anpassen, um andere Spalten zu kopieren? Ändere einfach die Bereiche im Range-Objekt entsprechend, um die gewünschten Spalten einzuschließen.

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