Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.03.2018 12:09:56 |
Sarah |
|
|
Nach Kriterien filtern und dann ganze Spalte in eine andere Datei kopieren |
16.03.2018 15:40:37 |
Gast70117 |
|
|
|
22.03.2018 08:43:25 |
Gast52276 |
|
|
Von:
Gast70117 |
Datum:
16.03.2018 15:40:37 |
Views:
519 |
Rating:
|
Antwort:
|
Thema:
Nach Kriterien filtern und dann ganze Spalte in eine andere Datei kopieren |
Soweit ich das blicke ?!?
Option Explicit
Sub Makro1()
'
' Makro1 Makro
'
' Tastenkombination: Strg+Umschalt+M
'
'* dieser Code steht in der Arbeitsmappe *** H:\Max Mustermann\VBA Aufgabe Prio Deru\VBA Lösungsüberlegungen.xlsm ***
Dim Zeile As Long
Dim n As Long
'* das Ziel
Dim Sh As Worksheet
'*
Set Sh = ThisWorkbook.Sheets("Tabelle1")
'* wird nicht gelöscht ??
n = 1 'Zeilenzähler
Sh.Activate
'*
Application.ScreenUpdating = False
'*
Workbooks.Open Filename:="H:\Max Mustermann\VBA Aufgabe Prio Deru\Vorgehen Besprechung mit Max.xlsm"
'* ist nun aktiv
With Sheets("Sheet1")
For Zeile = 14 To ActiveSheet.UsedRange.Rows.Count
If Cells(Zeile, 18).Value = "kein FA" Then
If Cells(Zeile, 32).Value <> 0 Then
Rows(Zeile).Copy _
Destination:=Sh.Cells(n, 1)
'* nächste Zeile
n = n + 1
End If
End If
Next Zeile
End With
Application.CutCopyMode = False
'* schließe "H:\Max Mustermann\VBA Aufgabe Prio Deru\Vorgehen Besprechung mit Max.xlsm"
ActiveWorkbook.Close SaveChanges:=False
'*
Application.ScreenUpdating = True
'* Ansicht Tabelle1
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
16.03.2018 12:09:56 |
Sarah |
|
|
Nach Kriterien filtern und dann ganze Spalte in eine andere Datei kopieren |
16.03.2018 15:40:37 |
Gast70117 |
|
|
|
22.03.2018 08:43:25 |
Gast52276 |
|
|