Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Filtern und Kopieren von Werten wenn Bedingung erfüllt
zurück: VBA Diagrammerstellung weiter: VBA: mehrere Strings in String suchen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
littleplup
Gast


Verfasst am:
30. Apr 2014, 14:58
Rufname:

Filtern und Kopieren von Werten wenn Bedingung erfüllt - Filtern und Kopieren von Werten wenn Bedingung erfüllt

Nach oben
       Version: Office 2010

Hi, ich hab da mal eine Frage...



Was ich erreichen will... wenn in der Spalte A des Sheets FMP_Data in einer Zelle ein NV steht, dann sollen die Werte dieser Zellen untereinander in das BM_Data Sheet in die nächste leere Zelle eingefügt werden. Habs über Filter versucht, aber leider nicht geschafft, siehe:

Sheets("FMP_Data").Select
Rows("11:11").Select
Selection.AutoFilter
ActiveSheet.Range("$A$11:$CF$654").AutoFilter Field:=1, Criteria1:="#NV"
Range("C79:C329").Select
Selection.Copy
'in BM Data einfügen
Sheets("BM_Data").Select

Columns("A").Find("", Cells(Rows.Count, "A")).Select
Selection.PasteSpecial (xlValues)


Hoffe ihr könnt mir helfen Smile Vielen lieben Dank
stefan onken
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 16:33
Rufname:
Wohnort: hamburg

AW: Filtern und Kopieren von Werten wenn Bedingung erfüllt - AW: Filtern und Kopieren von Werten wenn Bedingung erfüllt

Nach oben
       Version: Office 2010

hallo,
als Criteria musst du #N/A verwenden
http://www.office-loesung.de/ftopic347907_0_0_asc.php

und so könnte dann der Code klappen

Code:
Sheets("FMP_Data").Select
Rows("11:11").AutoFilter
ActiveSheet.Range("$A$11:$CF$654").AutoFilter Field:=1, Criteria1:="#N/A"
Range("A12:$CF$654").SpecialCells(xlCellTypeVisible).Copy
'in BM Data einfügen
Sheets("BM_Data").Activate
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial (xlValues)


Gruß
stefan
Sven1985
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 16:47
Rufname:

AW: Filtern und Kopieren von Werten wenn Bedingung erfüllt - AW: Filtern und Kopieren von Werten wenn Bedingung erfüllt

Nach oben
       Version: Office 2010

probiere das mal:

Code:
Sub Daten_kopieren()

Sheets("FMP_Data").Select
Selection.AutoFilter
ActiveSheet.Range("$A$11:$CF$10000").AutoFilter Field:=1, Criteria1:="#NV"
Range("C12:C1000").Select
Selection.Copy
Sheets("BM_Data").Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sheets("FMP_Data").Select
Application.CutCopyMode = False
       
End Sub


Basiert jetzt darauf, dass die Filter in der Zeile 11 sind. Müsstest Du ggf. anpassen wenn es eine andere Zeile betrifft.

Gruß,

Sven
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Autoausfüllen bzw. Kopieren von Zellen mit Formeln 3 UnitedBlue 1585 23. Feb 2005, 18:08
The BOO-M-AN Autoausfüllen bzw. Kopieren von Zellen mit Formeln
Keine neuen Beiträge Excel Formeln: Automatisch Tabelle sortieren, Filtern, Teilergebnis ? E2K 1 diaphone 3407 28. Jan 2005, 09:53
SapceBird Automatisch Tabelle sortieren, Filtern, Teilergebnis ? E2K
Keine neuen Beiträge Excel Formeln: Teilinhalt einer Zelle in einer neuen Zelle kopieren 2 nastromo2001 2812 24. Jan 2005, 18:48
nastromo2001 Teilinhalt einer Zelle in einer neuen Zelle kopieren
Keine neuen Beiträge Excel Formeln: Zeilen mit doppelten Werten löschen 6 Sebowsky 1208 06. Jan 2005, 22:26
Sebowsky Zeilen mit doppelten Werten löschen
Keine neuen Beiträge Excel Formeln: SUMMEWENN Bedingung? 3 MoS5000 2186 24. Dez 2004, 12:38
ae SUMMEWENN Bedingung?
Keine neuen Beiträge Excel Formeln: Kopieren von Namen in andere Mappe 0 Patrick0705 1279 26. Nov 2004, 16:51
Patrick0705 Kopieren von Namen in andere Mappe
Keine neuen Beiträge Excel Formeln: Zählenwenn bei Werten, die zwischen zwei liegen 2 rubberduck_df 877 18. Okt 2004, 12:38
rubberduck_df Zählenwenn bei Werten, die zwischen zwei liegen
Keine neuen Beiträge Excel Formeln: Automatisches Filtern mit Kriterien in Spalte 5 Aloha 1484 10. Okt 2004, 14:58
ae Automatisches Filtern mit Kriterien in Spalte
Keine neuen Beiträge Excel Formeln: Wert in Feld anzeigen wenn Bedingung erfüllt ist. 1 stoppel66 3409 29. Sep 2004, 19:18
ichbins Wert in Feld anzeigen wenn Bedingung erfüllt ist.
Keine neuen Beiträge Excel Formeln: Formel kopieren 4 Manfred50 893 24. Sep 2004, 21:31
Manfred50 Formel kopieren
Keine neuen Beiträge Excel Formeln: Letzten drei Ziffern aus einer Zelle filtern?? 7 Ben 3398 23. Sep 2004, 13:39
Gast Letzten drei Ziffern aus einer Zelle filtern??
Keine neuen Beiträge Excel Formeln: zusammengesetzten Hyperlink kopieren 4 Seppo110 570 07. Sep 2004, 12:22
Seppo110 zusammengesetzten Hyperlink kopieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: CSS Forum