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.
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
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
Hi Jens,
danke für Deine Nachricht!
Ich werde es mir mal ansehen und sehen ob es mich dann weiterbringt !
Danke :)