Spalten in Tabellen als Range

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub sbArr() Dim lstrHead As String, lloCol As Long Dim larARR() lstrHead = InputBox("Bitte Spaltenüberschrift eingeben") If IsNumeric(lstrHead) Or _ Len(lstrHead) = 0 Then Exit Sub lloCol = Range("tbl_Daten[[#Headers],[" & lstrHead & "]]").Column larARR = Range(Cells(2, lloCol), Cells(Cells(Rows.Count, lloCol).End(xlUp).Row, lloCol)).Value End Sub

Sub sbArr() Dim lstrHead As String Dim larARR() lstrHead = InputBox("Bitte Spaltenüberschrift eingeben") If IsNumeric(lstrHead) Or _ Len(lstrHead) = 0 Then Exit Sub larARR = ActiveSheet.ListObjects("tbl_Daten").ListColumns(lstrHead).DataBodyRange.Value End Sub

Hi Klaus,
Zitat: "Für mehrere Spalten werde ich dann wohl mit einer Schleife und wechselnden Feldnamen mein Array füllen."
Das musst du doch nicht - eine Arrayvariable reicht aus - du musst halt nur den Codeteil, der das Array "verarbeiten/verteilen" soll, in ein "Unter-Sub" auslagern.
An das "Unter-Sub" musst du nur das zuvor gebildete Array als Parameter übergeben.
Und all das wiederholt sich so lange, bis du in der Inputbox auf Abbrechen klickst - oder, wenn du immer wieder Inputbox vermeiden willst - dann musst du im Haupt-Sub halt schon festlegen, welche Spalten ins Array sollen


Sub sbArr()
hier mein Code mit InputBox oder eben den festgelegten Spalten
sbUnterSub larARR
End Sub
Sub sbUnterSub(ByVal meinArray)
Dim liIdx As Integer
For liIdx = LBound(meinArray, 1) To UBound(meinArray, 1)
hier dein Code, was mit Inhalt von Array passieren soll
Next
sbArr 'und hier wird wieder das Haupt-Sub mit InputBox aufgerufen (wenn erforderlich)
End Sub

Ob ich jetzt LBound() + UBound() mit den richtigen Parametern angegeben habe, weiß ich nicht, da das Ganze ja nur den prinzipiellen Ablauf darstellen soll, dass du eben nicht für jede Spalte eine eigene Arr-Var befüllen musst.
Aber mit VBA = Gut wirst du das schon hinbekommen.
Ciao
Thorsten

Hallo Thorsten,
VBA = gut ist natürlich relativ. Gut ist bei mir, wenn ich zum Ziel komme. Das könnte ich ja bei der aktuellen Thematik mit Range/Cells gemacht haben und alles wäre fein. Erweitert nur halt nicht den manchmal nahen Horizont. Bin ja auch kein Profi sondern nutze VBA als Werkzeug. Und da dauert's halt mit Baumarkt-Werkzeug manchmal länger als mit Profizeug :-)
Zurück zum Thema: (vorläufiges End-) Ziel ist, z.B. 2 Spalten in ein 2-dimensionales Array zu packen mit möglichst kompaktem Code. Das ist vielleicht bei meiner Ursprungsbeschreibung nicht ganz deutlich geworden.
Mit der jetzt hübschen Selektion der Spalte(n) stolpere ich über die Erweiterung des Arrays. Das legen wir ja dynamisch an und packen dann den Range hinein. Die zweite Spalte soll dann in die zweite Dimension, die kann ich per Redim Preserve ja auch erstellen und die bisherigen Daten erhalten. Ich bin aber auf Kriegsfuß (schon wieder), wie ich eine Range auf einen Schlag in die zweite Dimension befördere.
In der nächsten Ausbaustufe sind's dann z.B. 5 Spalten - wird schon wieder unübersichter fürchte ich.
Hast Du dazu noch ein Idee oder hab ich mich einfach verrannt?
Grüße
Klaus

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten in Tabellen als Range

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread