Excel-Wenn Wert größer 0 dann übertragen

Question

HI:)

ich habe folgendes problem!

ich habe eine Tabelle in der geldbeträge (zwischen 0,00€ und 1000,00€) stehen.
ich möchte nun alle Geldbeträge die größer sind als 0 in einem anderen tabellenblatt untereinander aufgelistet haben.

hoffe man hat das problem verstanden und würde mich sehr über eine antwort freuen!!

Answer 1

benutze Autofilter und kopiere den sichtbaren Bereich.

Gruß Hajo

Answer 2

das habe ich schon versucht aber da es mehrere spalten nebeinnader sind und er dann immer nurnoch die zeile mit dem ersten treffer anzeigt und nicht jede spalte für sich absucht!
außerdem hätte ich das ergebnis gerne auf einem neuen tabellenblatt!!:)

Answer 3

hier vielleicht zum besseren verständniss:

Tabelle1:

0,00€ 20,00€ 0,00€ 10,00€
10,00€ 0,00€ 5,00€ 0,00€
30,00€ 0,00€ 0,00€ 5,00€


und so sollte dann die neue Tabelle aussehen:

10,00€ 20,00€ 5,00€ 10,00€
30,00€ 5,00€


ich hoffe das geht so wie ich mir das vorstelle!:)

Answer 4

Kopiere alles in eine neue Tabelle und lasse folgendes Makro laufen.

Option Explicit

Sub Fett()
Dim RaZelle As Range
For Each RaZelle In ActiveSheet.UsedRange
If RaZelle = 0 Then
RaZelle.Delete Shift:=xlUp
End If
Next RaZelle
End Sub

Gruß Hajo

Answer 5

schonmal vielen dank für deine hilfe!!
wenn du mir jetzt noch erklären könntest wie ich ein solches makro "laufen" lasse oder mir sagst wo ich eine erklärung finde wäre das der hammer!!!:D

Answer 6

geänderter Code.

Option Explicit
Sub Loeschen()
Dim LoI As Long
Dim LoJ As Long
Dim LoLetzteR As Long
Dim LoLetzteS As Long
LoLetzteR = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
LoLetzteS = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
For LoI = LoLetzteR To 1 Step -1
For LoJ = LoLetzteS To 1 Step -1
If Cells(LoI, LoJ) = 0 Then
Cells(LoI, LoJ).Delete Shift:=xlUp
End If
Next LoJ
Next LoI
End Sub

Gruß Hajo

Answer 7

Register Ansicht, Befehlsgruppe auf Makro klicken.

Code
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen.

Gruß Hajo