AW: kop. Daten umgekehrt einfügen
13.11.2016 21:50:34
Fred
.. ja Bastian, alles gut!
Ich war an dem Tag - und viele Stunden später soo panne drauf, das ich anscheinend schon Hallus von dem mir so fremden vba hatte. Zum schluss war ich schon der Meinung, das ich meine Mappe geschrottet habe ... war schon echt peinlich. Ich habe dann den Monitor ausgemacht und dann mal 20 Stunden kein Excel-gemexcel.
Bisher, Bastian, passt alles! - wie alle deine bisherigenCode-Snippets.
Z.z. will ich ja durch Userform so manche Darstellung von Daten entsprechend Access-Formularen darstellen. Doch was ich spielend in wenigen Minuten in Access (Abfragen, Formulare etc.) hinbekomme, dauert bei mir für die simpelste Abfrage und Darstellung von Daten, manchmal Tage.
Im Augenblick bräuchte ich allerdings die Hilfe, wie ich kopierte Daten, in umgekehrter Reihenfolge einfüge.
Hier ist mal der Code, wie ich diese "normal" einfüge:
Application.ScreenUpdating = False
Worksheets("HeimTeam").Activate
' prüft ob Filterfunktionen in HeimTeam vorhanden sind, vorhandene werden entfernt
With ActiveSheet
If .AutoFilterMode Then
If .FilterMode Then .ShowAllData
End If
End With
' filtert, kopiert und fügt ein
Range("HeimTeamKomplett").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Kriterien").Range("N1:CY2"), Unique:=False
Bastian, hast evt. eine Lösung?
Wenn es hilft: In den Feldern, welche ich kopiere, ist die 2. Spalte ein Datumsfeld.
Gruß
Fred