Bedingungen
30.09.2021 09:03:14
Manfred
ich suche nach einer Lösung für folgende Herausforderung:
Ich nutze ein Makro um Daten aus einem Tabellenblatt ("Eingabe") in andere Blätter zu überführen und möchte dabei, dass die Daten nur unter bestimmten Bedingungen eingefügt werden, bzw. nach dem Einfügen wieder gelöscht werden.
In diesem Fall gibt es zwei Bedingungen. In Spalte F des Ziel Blattes sind Daten von 0 bis zu einem MAX-Wert und von diesem wieder bis 0. Ich möchte, dass die Zellen in Spalte B bis G VOR dem MAX-Wert die kleiner als 0,1 sind, gelöscht werden. Zweitens, dass die Zellen in Spalte B bis G NACH dem MAX-Wert, die kleiner als 80% von diesem sind, ebenfalls gelöscht werden. Hierbei wäre mir wichtig, dass die Verschiebung nach oben stattfindet.
Für jede Anregung und Hilfestellung wäre ich sehr dankbar!
Mein Code für die Übertragung sieht wie folgt aus:
Sub Test()
With ThisWorkbook
.Worksheets("Vorlage").Copy After:=.Sheets(.Sheets.Count)
ActiveSheet.Name = Range("Eingabe!B5")
End With
asi = ActiveSheet.Index
nasi = Sheets(asi).Name
Range("Eingabe!B16:G55000").Copy
Sheets(asi).Select
Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub