ich habe hier einen Code von Ransi gefunden, den ich super gut gebrauchen kann. Nur, wie kann ich die Spalten als Variablen übergeben.
Nun, ich habe eine Datei - wo ich immer mal verschiedene Spalten übergebe. Jetzt habe ich mir im Bereich A2:A60 Platz gelassen und hier trage ich je nach Bedarf eine Zahl ein - die eben für eine bestimmte Spalte steht.
Wie kann ich nun den Bereich an die FUnktion übergeben ?!?
HILFE !!!!!!
Gruß und Danke im Vorraus!!
Kay
Hier der Code von Ransi: (link: https://www.herber.de/forum/archiv/1144to1148/t1145303.htm)
Option Explicit
Public Sub Beispieldaten_rein()
With Sheets("Tabelle1").Range("A1:T10000")
.FormulaLocal = "=ZEILE() & "" "" & SPALTE()"
.Value = .Value
End With
Aufruf
End Sub
Public Sub Aufruf()
Dim arr As Variant
Dim out As Variant
arr = Sheets("Tabelle1").Range("A1:T10000")
out = extract_arr(arr, 3, 13, 1, 5, 17, 6) 'Zeilen 3 bis 13 der Spalten 1,5,17,6
'Ausgeben
Sheets("Tabelle2").Range("A1").Resize(UBound(out) - LBound(out) + 1, UBound(out, 2)) = out
End Sub
Public Function extract_arr(vntArr As Variant, _
U As Long, _
O As Long, _
ParamArray I() As Variant) As Variant
'U -->die erste Zeile die übertragen werden soll
'O -->die letzte Zeile die Übertragen werden soll
'I--> die einzelnen Spalten die ins neue Array sollen
Dim L As Long
Dim S As Integer
Dim Z As Integer
Redim tmp(U To O, 1 To UBound(I) + 1)
For L = U To O
For S = LBound(I) + 1 To UBound(I) + 1
tmp(L, S) = vntArr(L, I(S - 1))
Next
Next
extract_arr = tmp
End Function