AW: Putin 's Clipboard
14.03.2017 00:53:25
Siegfried
Hallo,
also bis jetzt gefällt mir die verbesserte Lösung durch eure Hinweise auf die Funktionen
(X = WorksheetFunction.Transpose(Cells(11, 7).Resize(35)) und AR = Cells(11, 7).Resize(2, 35).Value
)sehr gut und kommt mir um einiges schneller vor.
Zur Ermittlung verschiedener Werte welche zur weiteren Verarbeitung unbedingt erforderlich sind musste immer die Gesamte Datenbank durchlaufen werden, an die 7.000 Datensätze und das noch zusätzlich mit verschiedenen Filtern auf bestimmte Spalten.
Nun habe ich z.B. folgendes herausgefunden, bzw. einen Tipp dazu erhalten über diese Funktion dies viel schneller zu erreichen.
Sheets(sSelectName).Select
Ranch_Bereich = "M:M"
Columns(Ranch_Bereich).Select
Columns(Ranch_Bereich).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
EndRow = Cells(Rows.Count, 13).End(xlUp).Row - 1
AnzZeile = Trim(Str(Val(Cells(1, 13))))
Ranch_Bereich = "M2:M" & Trim(Str(Val(EndRow))) + 1
Worksheets(sSelectName).Range(Ranch_Bereich).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GrundDaten").Select
Range("AW60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Ranch_Bereich = "AW60:AX" & Trim(Str(59 + Val(AnzZeile)))
AR() = Range(Ranch_Bereich)
Nur wie bekomme ich die nun gefilterten Zeilen in ein Array zur weiteren Steuerung von Abfragen/ Auswertungen.
Derzeit kopiere ich mir die gesamte Spalte und füge sie in einem anderen Sheet über die _
Funktion
Range("AW60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ein um daraus dann mein Array zu füllen.
Gibt es diese oder eine ähnliche Funktion um auch direkt mit Ausschluss der ausgeblendeten Zeilen in das Array kopiere zu können.
Schon mal DANKE für einen weiteren Tipp dazu
Gruß Siegfried