Office: (Office 2010) Kopieren von Zeilen mit Datumseingrenzung

Helfe beim Thema Kopieren von Zeilen mit Datumseingrenzung in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Zusammen, ich habe folgendes Problem. In meinem Code soll ein Wertebereich abhängig von einer Datumsangaben kopiert werden. Die Daten ("Datum... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Ijoohn, 27. April 2022.

  1. Ijoohn Erfahrener User

    Kopieren von Zeilen mit Datumseingrenzung


    Hallo Zusammen,

    ich habe folgendes Problem.
    In meinem Code soll ein Wertebereich abhängig von einer Datumsangaben kopiert werden. Die Daten ("Datum von" / "Datum bis") stehen in seperaten Zellen im Arbeitsblatt "Anwendung".

    Diese "Datums-Range" möchte ich gerne im Bereich
    "Wsh_Quelle.Range("A67:J87")"
    berücksichtigen.

    Also sowas in die Richtung:
    "Kopiere Wsh_Quelle.Range("A:J") alle Zeilen mit Datum in Spalte A zwischen "Datum von" und "Datum bis"

    Über Hilfe würde ich mich freuen.


    Code:

    Code:
    Private Sub Werte_holen_Click()
    
    
    Dim WkBk_Quelle  As Workbook   ' das Herkunfts-Workbook - die Quelle
    Dim WSh_Quelle   As Worksheet  ' das Herkunfts-Tabellenblatt
    Dim WkBk_Ziel    As Workbook   ' das Empfangs-Workbook - das Ziel
    Dim WSh_Ziel     As Worksheet  ' das Empfangs-Tabellenblatt
    Dim i As Integer
    For i = 4 To 43
    
    
    Set WkBk_Ziel = ActiveWorkbook  ' diese Datei ist das Ziel !!!
    Set WSh_Ziel = WkBk_Ziel.Worksheets(ThisWorkbook.Worksheets("Anwendung").Range("G" & i).Value)   ' das Tabellenblatt ggf. anpassen !!!
    Application.ScreenUpdating = False                                                               ' den Bildschirm-Update unterdrücken
    
    Set WkBk_Quelle = Workbooks.Open(Filename:= _
    "D:\Anwenderdateien\2-Außenanlagen\Pumpwerke\1-Bestand\" & _
    "Datenbank-PW.xlsm", ReadOnly:=True)                                                              ' die Herkunfts-Datei - die Quelle - öffnen
    
    Set WSh_Quelle = WkBk_Quelle.Worksheets(ThisWorkbook.Worksheets("Anwendung").Range("F" & i).Value) ' das Tabellenblatt benennen
    With WSh_Quelle                                                                                     ' mit dem jeweiligen Tabellenblatt arbeiten
    .Range("A67:J87").Copy
    
    WSh_Ziel.Range("A4:J4").PasteSpecial Paste:=xlFormats
    WSh_Ziel.Range("A4:J4").PasteSpecial Paste:=xlValues
    
    End With
    Application.CutCopyMode = False
    WkBk_Quelle.Close savechanges:=False
    Application.ScreenUpdating = True                                                                    ' den Bildschirm-Update wieder zulassen
    
    Next i
    
    
    End Sub
     
    Ijoohn, 27. April 2022
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi,

    dazu kannst du den Autofilter benutzen.


    Kopieren von Zeilen mit Datumseingrenzung GrußformelKopieren von Zeilen mit Datumseingrenzung Beverly's Excel - Inn
     
    Beverly, 27. April 2022
    #2
  3. Ijoohn Erfahrener User
    Danke schonmal für die Wegbeschreibung.
    Mein Motto ist ja: "learning by doing"
    Habe ein wenig gesucht und in Varianten rumprobiert.... erstmal zum Üben....

    Nach vielen Fehlern passiert auch was....
    Mit dem Ergebnis:
    Alle Daten (ohne die Range A67:J500) werden rausgesucht, in eine neue Mappe kopiert (nicht meine gewünschte) und in das falsche Tabellenblatt eingefügt....

    Code:
    Set WSh_Quelle = WkBk_Quelle.Worksheets(ThisWorkbook.Worksheets("Anwendung").Range("F" & i).Value)
    With WSh_Quelle                                                                                    
    .Range("A67:J500").AutoFilter Field:=1, Criteria1:=">=N14"                 
    .Copy
    
    Ich denke ich habe ein wenig mehr Erklärungsbedarf nötig....
    Ist mein Erstes Mal mit dem Autofilter....
    Kopieren von Zeilen mit Datumseingrenzung :rolleyes:
     
    Ijoohn, 27. April 2022
    #3
  4. Beverly
    Beverly Erfahrener User

    Kopieren von Zeilen mit Datumseingrenzung

    Vom Prinzip her so:

    Code:
        With ActiveSheet
            ' Autofilter für Bereich A3:D16 setzen
            ' Startdatum steht in Zelle G1, Enddatum in Zelle H1
            .Range("$A$3:$D$16").AutoFilter Field:=1, Criteria1:= _
                ">=" & CDbl(.Range("G1")), Operator:=xlAnd, Criteria2:="<=" & CDbl(.Range("H1"))
            ' Autofilterbereich alle sichtbaren Zellen kopieren ab A4, also ab erster gefilterter Zelle ohne Überschriftenzeile
            With .Range("A4:D16")
                .SpecialCells(xlCellTypeVisible).Copy
            End With
        End With
    
    Blattname, Zellbereich des Autofilters und Zellen mit Start- und Enddatum musst du elbstverständlich anpassen,



    Kopieren von Zeilen mit Datumseingrenzung GrußformelKopieren von Zeilen mit Datumseingrenzung Beverly's Excel - Inn
     
    Beverly, 27. April 2022
    #4
  5. Ijoohn Erfahrener User
    Moin,
    das ist ein Anstoß auf den wäre ich so nie gekommen...
    Werd ich morgen direkt versuchen zu verstehen und einzubauen...

    Super. Danke.

    MfG
     
    Ijoohn, 27. April 2022
    #5
  6. Ijoohn Erfahrener User
    Moin,
    ich habs eingebaut, angepasst und sogar verstanden...

    Was soll ich sagen... läuft.

    Danke nochmal.

    MfG
     
    Ijoohn, 28. April 2022
    #6
Thema:

Kopieren von Zeilen mit Datumseingrenzung

Die Seite wird geladen...
  1. Kopieren von Zeilen mit Datumseingrenzung - Similar Threads - Kopieren Zeilen Datumseingrenzung

  2. Zeilen x-fach kopieren

    in Microsoft Excel Hilfe
    Zeilen x-fach kopieren: Moin Moin, ich stehe gerade vor einer kleinen Herausforderung, hoffe hier Unterstützung zu bekommen. Für einen Kunden müssen Palettenanhänger gedruckt werden, da der Kunde die Paletten im freien...
  3. VBA: Zeile kopieren, wenn in Spalte O "IC"

    in Microsoft Excel Hilfe
    VBA: Zeile kopieren, wenn in Spalte O "IC": Hallo liebe VBA-Profis, ich habe eine Datei, bei der ich Zeilen vom Tabellenblatt "Salesline" in das Tabellenblatt "Intercompany" kopieren möchte, wenn in Spalte O "IC" steht, wenn die Spalte O...
  4. Bestimmte Zeilen aus einer Tabelle in eine andere kopieren

    in Microsoft Excel Hilfe
    Bestimmte Zeilen aus einer Tabelle in eine andere kopieren: Hallo zusammen, ich weiß nicht ob die Überschrift so richtig ist. Ich beschreibe einfach mal mein Anliegen. Ich habe eine Tabelle mit ca 150 Fragen&Antworten. Das ist meine Vorlage aus der ich...
  5. Formatierung und Dopdown-Felder in neue Zeile übernehmen

    in Microsoft Excel Hilfe
    Formatierung und Dopdown-Felder in neue Zeile übernehmen: Hallo zusammen, Folgende Ausgangslage: Ich habe in einer Zeile verschiedene bedingte Formatierungen und diverse Dopdownfelder angelegt. Wenn ich nun in einer neuen Zeile Daten eingebe, dann soll...
  6. SVERWEIS beim Kopieren nur eine Zeile weiter

    in Microsoft Excel Hilfe
    SVERWEIS beim Kopieren nur eine Zeile weiter: Liebe Community, ich verzweifle ein bisschen und vielleicht ist meine Idee auch gar nicht umsetzbar. Ich habe auf einem Tabellenblatt ein paar Namen untereinander. Nun möchte ich auf einem...
  7. Formel in nächste Zeile kopieren

    in Microsoft Excel Hilfe
    Formel in nächste Zeile kopieren: Hallo Zusammen, in meiner Arbeitsmappe im Anhang,befinden sich in den Zellen J3 und L3 Formeln.Die Zellen in der die Formeln stehen sind Schreibgeschützt. Da in diesem Blatt fortlaufend Daten...
  8. Leere Zellen suchen und Zeilen kopieren

    in Microsoft Excel Hilfe
    Leere Zellen suchen und Zeilen kopieren: Hallo liebe Excel Profis Ich hätte gerne Eure Hilfe in Anspruch genommen. Ich habe ein Tabellenblatt wo ich in Spalte B nach leeren Zellen suchen möchte. Sollten dort leere Zellen sein, möchte...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden