Wie kriege ich bestimmte Zeilen aus einer Matrix

hi he, ich brauch hilfe
ich hoffe ihr könnt mir helfen.
ich versuche aus einer tabelle nur die werte auszudrucken die auch grösser als 0 sind, das heist ja wohl das mann die mit dem wert null irgendwie aussortieren/löschen muss oder die mit einem wert grösser als null in ein anderes tabellenblatt übertragen muss. dabei wichtig ist wenn sie gelöscht werden, sollte die summe funktion unten trotzdem noch funktionieren und es sollte keine leerzeilen entstehen die dann mitausgedruckt werden. um es euch besser zu erklären habe ich eine excel datei hochgeladen bei der die erste tabelle nullwerte enthält die in der zweiten tabelle nicht vorhanden sind weil ich einfach die zeilen kopiert haben aber das nicht manuel passieren sondern automatisch. ist natürlich die ganze tabelle aber als beispiel reicht es, das tabellenblatt mit der ich das problem habe ist genauso aufgebaut nur halt viel länger + ein bis zwei spalten mehr. ein beispiel reicht mir und ich check das endlich und kann das in meine andere datei übertragen.
hier der link zur datei
https://www.herber.de/bbs/user/16066.xls
ich weis manchmal stehen dumme fragen in foren vieleicht ist die antwort auch in diesem fall gans einfach aber ich komme einfach nicht drauf oder ich denke einfach nur zu kompliziert?

vorab bedanke ich mich für eure mühen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Nullen_weg() Dim i As Integer ' alle Zeilen mit Nullen ausblenden For i = 8 To 20 If Cells(i, 2) = 0 And Cells(i, 1) <> "" Then Rows(i & ":" & i).Select Selection.EntireRow.Hidden = True End If Next i ' drucken ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ' alle Zeilen wieder einblenden Cells.Select Selection.EntireRow.Hidden = False Range("A1").Select End Sub

hi ho
ich habe die Datei jetzt hochgeladen es besteht aus zwei tabellenblättern, das erste tabellenblatt enthält noch die zeilen mit den nullwerten das zweite tabellenblatt habe ich so gestaltet wie es von alleine aussehen soll. es ist schon der code von OttoH drin aber ohne mit dem automatischem drucken, was auch nebensächlich ist. ich kenne mich auch einbischen mit schleifen aus aber ich verstehe nicht wie er die zeilen und spalten bezeichnet hat sonst würde ich das auch so hin kriegen.
For i = 8 To 20
If Cells(i, 2) = 0 And Cells(i, 1) <>
also 'i' steht für 8 bis 20 was die zeilen bezeichnet <- soweit ok
aber bei Cells(i, 2) verstehe ich die '2' nicht glaube aber es ist die spalten bezeichnung. wenn das aber so sein sollte hätte ich es ja schon (glaube ich?)
also es sollen NUR die zeilen ausgeblendet werden die in der spalte 'B' UND 'C' den wert null enthalten. wenn in einer zeile in spalte 'B' ne null ist aber in 'C' nicht dann soll sie nicht ausgeblendet werden und umgekehrt auch.
hier nochmal der code im ganzen


Sub Nullen_weg()
Dim i As Integer
' alle Zeilen mit Nullen ausblenden
For i = 8 To 20
If Cells(i, 2) = 0 And Cells(i, 1) <> "" Then
Rows(i & ":" & i).Select
Selection.EntireRow.Hidden = True
End If
Next i
End Sub

und hier die datei nochmal im ganzen
https://www.herber.de/bbs/user/16108.xls
vielen dank im voraus

Beliebteste Forumthreads (12 Monate)

Wie kriege ich bestimmte Zeilen aus einer Matrix

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wie kriege ich bestimmte Zeilen aus einer Matrix

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread