Office: Kopieren von Werten in Exceltabelle mit gesetztem Autofilter

Hallo Hajo,

vielen vielen Dank!!!!
Genau das brauchte ich ... Echt super!

Um das das nächste Mal selber zu machen ... hast du nen guten Tipp/Link wo man sich sowas selber aneignen kann???

Ist das jetzt ganz normaler VBA-Code?

Und nur Interessehalber wie spreche ich denn eine Excelmappe an ... also wenn jetzt Quelldatei und Zieldatei in verschiedenen Mappen liegen würden??

Lg und nochmals Danke
Alex

 

Hallo Alex,

dann kommt vor Worksheets
Workbooks("Datei.xlsm").

Für 2007 habe ich mir mal ein Buch zu VBA gekauft
Excel 2007 Programmierung von Monika Weber (Can) und Michael Schwimmer
ISBN 978-3-86645-133-2

Das meiste lernt man aber im Forum und auf den entsprechenden HP.

Gruß Hajo

 

Re:

Hi hallo Hajo,

du hattest mir letztes Jahr mal mit dem hier genannten Problem geholfen - hab jetzt eigentlich so ziemlich das gleiche problem ... nur irgendwie klappt das Makro von dir nicht so richtig - zumindest bin ich wohl zu blöd Sie entsprechend umzuformuliren.
Anbei nochmal die Quelldatei und Zieldatei in einer Mappe ... die beiden Spalten aus der Quelldatei sollen in die vorderen leeren beiden Spalten der Zieldatei kopiert werden - also nur auf die sichtbaren Zeilen ...

Wäre klasse wenn du dir das nochmal anschauen kannst!

Ganz liebe grüße
alex

 

Hallo Alex,

Die Datei enthält keinen Code.
irgendwie komme ich nicht mit der Bezeichnung der Tabellen nicht klar.
Quelle ist für mich von wo was kom und Ziel ist für mich wohin was soll.
Im ersten Beitrag Stand es soll eine mittels Autofilter gefilterte Tabelle in eine neue übertragen werrden nur die angezeigten Werte. Der Autofilter ist aber in der Zieltabelle?

Wenn nur die Bezeichnung vertauscht ist.

Code:

Option Explicit

Sub Alex()
    Dim LoLetzte As Long
    Dim LoI As Long
    Dim LoZeile As Long
    LoZeile = 2     ' erste Zeile iin Quelltabelle
    With Worksheets("Zieldatei")
        LoLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
        For LoI = 2 To LoLetzte        ' Zieltabele beginnt in Zeile 2
            If .Rows(LoI).EntireRow.Hidden = False Then
               .Rows(LoI).Copy Worksheets("Quelldatei").Rows(LoZeile)
                LoZeile = LoZeile + 1
            End If
        Next LoI
    End With
End Sub

Gruß Hajo

 

Hi Hajo,

ok dann ist es doch etwas anders diesmal - so wie die neue angehängt datei ist möchte ich es kopieren.
D.h. die Zieldatei (wo die daten hinsollten) ist mit einem Autofilter belegt - die Quelldatei (also wo die daten kommen) ist ohne Filter. Ich möchte jetzt die Zielwerte in die sichtbaren gefilterten Zellen der Zieldatei kopieren.

Grüße
Alex

 

Hallo Alex,
in der Quelldatei sind 2 Spalten, in der Zieldatei 9 das past irgendwie nicht.

Gruß Hajo

 

Hi,

ja die zwei Spalten der Quelldatei sollen in die zwei ersten Spalten (also A und B - sollten leer seien) kopiert werden ...

Grüße
Alex

 

Hallo Alex,

Code:

Option Explicit

Sub Alex()
    Dim LoLetzte As Long
    Dim LoI As Long
    Dim LoZeile As Long
    Dim WsTa As Worksheet
    Set WsTa = Worksheets("Quelldatei")
    LoZeile = 1     ' erste Zeile iin Quelltabelle
    With Worksheets("Zieldatei")
        LoLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
        For LoI = 2 To LoLetzte        ' Zieltabele beginnt in Zeile 2
            If .Rows(LoI).EntireRow.Hidden = False Then
                WsTa.Range(WsTa.Cells(LoZeile, 1), WsTa.Cells(LoZeile, 2)).Copy .Cells(LoI, 1)
                LoZeile = LoZeile + 1
            End If
        Next LoI
    End With
    Set WsTa = Nothing
End Sub

Gruß Hajo

 

Super - danke Hajo!