Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabelle filtern und einzelne Spalten kopieren

Tabelle filtern und einzelne Spalten kopieren
09.08.2016 14:30:12
Marcel
Hallo zusammen,
ich versuche eine Tabelle in dem Reiter "Quelle" in eine andere Tabelle zu übertragen (Reiter "Datenbank")unter der Voraussetzung, dass in den zu kopierenden Zeilen in Spalte 5 ein Wert größer 0 eingetragen ist. (mittels VBA)
Im Reiter Quelle beginnt die Tabelle immer ab Zeile 10, kann jedoch jedes Mal länger oder kürzer ausfallen.
Nun möchte ich jedoch nicht die kompletten Zeilen kopieren, falls größer 0 zutrifft, sondern nur die Spalten A, E und AB. Diese sollen ab Zeile 8 abwärts in die Spalten A, B und C übertragen werden.(Reiter "Datenbank")
Die Filterung habe ich einbauen können. Mit allen anderen habe ich leider so meine Probleme :D.
Sollte das Kopieren der Spalten funktionieren, soll bei der nächsten Anwendung, die nächste leere Zeile in "Datenbank" ausgefällt werden und dann dort wieder reinkopiert werden
Könntet ihr mir weiterhelfen?
Falls Infos fehlen, einfach ansprechen!
Vielen Dank!!
Viele Grüße
Marcel
Hier ist mein derzeitiger Quellcode - dieser ist in einen CommandButton eingebaut:
Private Sub CommandButton3_Click()
Sheets("Quelle").Select
Dim x As Long
Dim y As Long
y = 'was trage hier ein?
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For x = 10 To lastrow
If Cells(x, 5) > 0 Then
Rows(x).Copy Destination:=Sheets(3).Rows(y)
Else
End If
Next x
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle filtern und einzelne Spalten kopieren
09.08.2016 14:34:11
Marcel
*ausgewählt nicht ausgefällt^^
Anzeige

323 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige