Office: (Office 2010) nur Zellen mit Inhalt kopieren

Andreas1977 · 12. Februar 2017

Hi liebe Forenmitglieder,

bin neu hier und habe gleich mal eine Frage.

Ich habe ein Makro, das gut funktioniert. Leider kopiert es mir aber alle Zeilen die mit "1" gekennzeichnet sind. Ich möchte aber nur, das es mir die Zeilen kopiert, die mit "1" gekennzeichnet sind und in den Spalten 5:32 der gleichen Zeile Inhalte aufweisen.

Vielleicht könnt ihr mir da ja weiterhelfen. Habe schon viel im Forum gelesen und ausprobiert, aber ich bekomme es einfach nicht hin

Code:

Sub BedingteKopieZeilen()
Range("A8:AF300").ClearContents
Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long
Dim loBlatt As Long

n = 8
With Worksheets("Tabelle1")
For loBlatt = 1 To Worksheets.Count
If Worksheets(loBlatt).Name "Tabelle9" Then
ZeileMax = Worksheets(loBlatt).Cells(Rows.Count, 1).End(xlUp).Row
For Zeile = 2 To ZeileMax
If Worksheets(loBlatt).Cells(Zeile, 1).Value = 1 Then
Worksheets(loBlatt).Rows(Zeile).Copy Destination:=Sheets("Tabelle9").Rows(n)
n = n + 1
End If
Next Zeile
End If
Next loBlatt
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Andreas

:)

RPP63 · 13. Februar 2017

Moin!
Mache Dir eine Hilfsspalte mit =ANZAHL(E2:AF2)>0 oder mit ANZAHL2()
Diese filterst Du nach WAHR und kopierst die sichtbaren Zeilen.
Geht natürlich auch per VBA, lass dazu mal den Rekorder laufen.

Gruß Ralf

Andreas1977 · 15. Februar 2017

Hi Ralf,

natürlich Antworte ich auch. Deine Lösung hat sehr gut funktioniert. Ich habe =ANZAHL(E2:AF2)>0 verwendet und danach über VBA alle "FALSCH" gekennzeichneten gelöscht.

Dir noch mal vielen Dank

Gruß

Andreas

Office: (Office 2010) nur Zellen mit Inhalt kopieren

nur Zellen mit Inhalt kopieren

nur Zellen mit Inhalt kopieren

nur Zellen mit Inhalt kopieren - Similar Threads - Zellen Inhalt kopieren

Inhalte vertikal kopieren

[EILT] Bestimmte Inhalte einer Zelle in eine andere Zelle kopieren und die Anzahl ausrechnen

rechte Zelle kopieren wenn Zelle bestimmten Inhalt hat

Inhalt Zellen übertragen, wenn Bedingung in anderer Zelle erfüllt ist.

Inhalt in andere Zelle kopieren

Kopiere den Inhalt einer Zelle nachdem 2 andere Zeilen verglichen wurden

[Makro] Inhalt suchen und zellen darunter kopieren