Gefilterte Daten weiterverarbeiten per VBA

[silentwolf]

Hallo wieder mal
Folgende Situation wo ich wieder einmal nicht voran komme
Per VBA habe ich einen Autofilter erstellt der funktioniert auch soweit.
Die Kriterien habe ich aus der Spalte D erstellt.
Nun würde ich gerne wenn dieser Filter eingesetzt wird von Spalte E den string bis zur letzten "/" ausschneiden und diese in Spalte D einfügen.
Also die alten Daten in Spalte D clear und dann die Daten von Spale E in die Spalte D einfügen.
Kenne die funktion InstRev aber ich weis leider nicht wie ich das alles zusammensetzen muss damit nur der gefilterte Bereich die Aktion ausführt.

Code [Auswählen] Erweitern


Sub AutoFilterUeberweisung()
    Dim myFilt As Range
    Dim WsLR As Integer
   
    Dim ws As Worksheet
    Set ws = ThisWorkbook.ActiveSheet
   
    WsLR = ws.Cells(Rows.Count, 1).End(xlUp).Row
   
    Set myFilt = ws.Range("A1:H1" & WsLR)
        myFilt.AutoFilter Field:=4, Criteria1:= _
        "=Überweisung*", Operator:=xlAnd, Criteria2:="<>*/*"
   
End Sub



Hier der Code der mir die Daten filtert!


Wäre wirklich um Hilfe dankbar !!

Albert

[NoNameReq]

Hallo,

ich habe etwas ähnliches schon mit einer Pivot-Tabelle gelöst.

Per VBA den Filter der Pivot-Tabelle gesetzt und dann mit den "Zellformeln" der Pivottabelle gearbeitet.

Vielleicht bringt dir das einen neuen Ansatz.

Beste Grüße
Jens

[silentwolf]

Hi Jens,
danke für Deine Nachricht!
Ich werde es mir mal ansehen und sehen ob es mich dann weiterbringt !

Danke