Bestimmte Daten aus einer Tabelle in eine andere schreiben

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von petaod.

    Bestimmte Daten aus einer Tabelle in eine andere schreiben

    Hallo!

    In einer Exceltabelle gibt es eine Liste mit verschiedenen "Produkten". In Spalte 1 wird die Anzahl eingegeben, in Spalte 2 steht der Name.

    Nun sollen in eine andere Tabelle listenförmig die "Produkte" eingetragen werden, deren Anzahl mit 1 oder höher eingegeben wurde, und zwar:

    Anzahl Name (Zeilenumbruch)
    Anzahl Name (Zeilenumbruch)
    u.s.w.

    wie löst man sowas am besten?

    Danke!

    Visual Basic-Quellcode

    1. r=0
    2. Set t1=Sheets("Tabelle1")
    3. Set t2=Sheets("Tabelle2")
    4. For i = 1 to t1.Cells(Rows.Count,1).End(xlUp).Row
    5. if t1.Cells(i,1) > 0 Then
    6. t2.Cells(r,1).Formula=t1.Cells(i,1).Value
    7. t2.Cells(r,2).Formula=t1.Cells(i,2).Value
    8. r = r + 1
    9. End If
    10. Next
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende