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

Zahlendubletten im 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) ?