Thema Datum  Von Nutzer Rating
Antwort
27.02.2011 19:35:10 Heinz
NotSolved
Blau Daten filtern und auf neues Sheet kopieren
 27.02.2011 22:45:22 Severus
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
27.02.2011 22:45:22		 Views:
798		 Rating:
     
Antwort:
  Ja
Thema:
Daten filtern und auf neues Sheet kopieren		 
Option Explicit

Sub gefiltert_kopieren()
Dim lngLaufzahl As Long
Dim lngLetzteZeile As Long
Dim lngDestZeile As Long
Dim lngMaxSpalte As Long
'Zielzeile festlegen
lngDestZeile = 1
'Tabelenblätter heißen Tabelle1 für Quellblatt und Tabelle2 für Zielblatt
'Zielblatt löschen
ThisWorkbook.Sheets("Tabelle2").Cells.ClearContents
With ThisWorkbook.Sheets("Tabelle1")
    'Festlegen der maximalen Zeile und Spalte
    lngLetzteZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
    lngMaxSpalte = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
    'Kopfzeilen werden mit kopiert
    For lngLaufzahl = 1 To lngLetzteZeile
        'Prüfen, on die Zeile ausgeblendet ist
        If .Cells(lngLaufzahl, 1).EntireRow.Hidden = False Then
            'Sichtbare Zeilen kopieren
            .Range(.Cells(lngLaufzahl, 1), .Cells(lngLaufzahl, lngMaxSpalte)).Copy _
            Destination:=ThisWorkbook.Sheets("Tabelle2").Cells(lngDestZeile, 1)
            'Zielzeile um 1 erhöhen
            lngDestZeile = lngDestZeile + 1
        End If
    Next lngLaufzahl
End With
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.02.2011 19:35:10 Heinz
NotSolved
Blau Daten filtern und auf neues Sheet kopieren
 27.02.2011 22:45:22 Severus
NotSolved