Office: Union(.Columns(...) als/in Array vorgeben

mücke · 4. März 2020

Moin,

stehe gerade etwas auf´m Schlauch *frown.gif* und würde eure Hilfe benötigen.
Kann ich die Variante Union(.Columns(…..) auch als Array darstellen?

Schon mal Danke für Deine Zeit *Smilie

Gruß Dirk
Code:

Option Explicit

Sub MOF()

'Test
'Dim spaltenArr()

Dim sArr(), eArr()
Dim L As Long

With Worksheets("Text")

'Spaltentest
'spaltenArr = Array(11, 28, 29, 31, 32)

sArr = Array("00.00.0000")
eArr = Array("")

For L = LBound(sArr) To UBound(sArr)
Call Union(.Columns(11), _
.Columns(28), .Columns(29), _
.Columns(31), .Columns(32)) _
.Replace(sArr(L), eArr(L), , , False)
Next L

Erase sArr
Erase eArr

End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Uwe Küstner · 6. März 2020

Hallo Dirk,

Code:

Union(.Columns(11), _
.Columns(28), .Columns(29), _
.Columns(31), .Columns(32)) _
.Replace sArr(L), eArr(L), , , False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mücke · 6. März 2020

Moin Uwe,

Danke für die Rückmeldung, aber die Variante habe ich ja bereits *wink.gif*

Ich würde gerne die Spalten in ein Array schreiben und nicht über Union() ansprechen.
siehe die in grün hinterlegten Versuche.

Gruß Dirk

Uwe Küstner · 6. März 2020

Hallo Dirk,

da fällt mir jetzt nur das ein:

Code:

Dim strSpalten As String
strSpalten = "K:K,AB:AC,AE:AF"
Range(strSpalten).Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nepumuk · 6. März 2020

Hallo Dirk,

teste mal:

Public Sub Test()
Dim avntArray As Variant
Call ThisWorkbook.Names.Add(Name:="XYZ", RefersTo:=Tabelle1.Columns("A:AF"))
avntArray = Application.Index(Range("XYZ"), [row(XYZ)], Array(28, 29, 31, 32))
Call ThisWorkbook.Names("XYZ").Delete
End Sub

mücke · 6. März 2020

Moin,

Danke Nepumuk, aber bei dem CODE blicke ich nicht wirklich durch *frown.gif*

Danke Uwe

Werde es weiter testen.

Schönes Wochenende

Gruß Dirk

mücke · 29. März 2020

Moin,

sorry für die späte Rückmeldung, hatte aktuell keinen "Kopf" für Excel-Probleme.

Das Thema hat sich inzwischen leider auch erledigt *frown.gif*
Daher werde ich den Beitrag auf erledigt setzen.

Danke ... und bleibt gesund *Smilie

Gruß Dirk

EarlFred · 30. März 2020

Klasse Lösung, @Nepumuk!

Als Variante, wenn man keine Namen verwenden möchte:
Code:

Public Sub test()
Dim avntArray As Variant
Dim rngGesamtbereich As Range

Set rngGesamtbereich = ThisWorkbook.Worksheets("Tabelle1").Range("A1:AF3")
avntArray = Application.Index(rngGesamtbereich, Evaluate("Row(" & rngGesamtbereich.Address(external:=True) & ")"), Array(28, 29, 31, 32))
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mücke · 2. April 2020

Moin EarlFred,

schöne Variante *Smilie vielen Dank.

Gruß Dirk

Flotter Feger · 2. April 2020

Hallo,

sowas cooles ... *eek.gif*

Aber das Allerbeste daran ist, dass man die Spalten auch noch beliebig anordnen kann ... *tongue.gif*

Code:

Option Explicit

Private Sub CommandButton1_Click()
Dim avntArray As Variant
Dim rngGesamtbereich As Range

Set rngGesamtbereich = ThisWorkbook.Worksheets("Tabelle2").Range("A1:E6")
avntArray = GetIt(rngGesamtbereich, Array(5, 1, 3))

Range("A10").Resize(UBound(avntArray, 1), UBound(avntArray, 2)) = avntArray
End Sub

Function GetIt(RNG As Range, Arr As Variant) As Variant
GetIt = Application.Index(RNG, Evaluate("Row(" & RNG.Address(external:=True) & ")"), Arr)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sabina

Office: Union(.Columns(...) als/in Array vorgeben

Union(.Columns(...) als/in Array vorgeben

Union(.Columns(...) als/in Array vorgeben

Union(.Columns(...) als/in Array vorgeben

Union(.Columns(...) als/in Array vorgeben

Union(.Columns(...) als/in Array vorgeben - Similar Threads - Union Columns Array

Mittelwert aus mehreren Spalten als dynamisches Array

UNION Abfrage zusätzliche Spalte

Eigenschaft Column konnte nicht abgerufen werden

Union Abfrage

Kombinieren mehrerer Abfragen in einem einzigen Ergebnis mithilfe einer Union-Abfrage

UNION-Vorgang

Anzeige der Textfelder aus Abfrage auf 5 begrenzt (column) ?