Rows in Array einlesen (Dup.check) und Transpose

Robert · 2007-10-06T18:59:00+00:00

Guten Abend Leute, Ich habe wieder mal eine Frage die ihr sicherlich beantworten könnt... Es ist ja möglich mehrere Zeilen z.b. (Range(Cells(Irow,1),cells(Irow,10) in ein Array einzulesen, doch ist es auch möglich, bevor eine Zeile eingelesen wird zu checken ob ein Teil der Wert schon im Array vorhanden ist? Am ende muss das Array transposed auf einem Tabellenblatt eingefügt werden. Freue mich auf eure Hilfe. Gruss, Robert

Hallo Robert,
mein Lösungsoeschlag
Gruß
Franz


Sub ArrayFuellen()
'Daten aus Bereich einlesen und dabei Zeilen ausfiltern und anschließend Ergebnis  _
transponiert ausgeben
Dim Bereich As Range, arrData(), arrRows As Integer, arrCols As Integer
Dim wks As Worksheet
Dim wks_A As Worksheet, A_zeile As Integer, A_spalte As Integer
Dim Zeile%, Spalte%
Set wks = Worksheets(1) 'Blatt mit Eingabedaten
Set wks_A = Worksheets(2) 'Blatt für Datenausgabe
A_zeile = 2 '1. Ausgabe Zeile
A_spalte = 1 '1. AusgabeSpalte
With wks
'bereich mit daten
Set Bereich = .Range(.Cells(6, 2), .Cells(.Rows.Count, 2).End(xlUp).Offset(0, 9))
arrRows = Bereich.Columns.Count
arrCols = 0
'Daten einlesen
For Zeile = 1 To Bereich.Rows.Count
'Bedingungen; nur Zeilen, die bedingung erfüllen werden in Array eingelesen
If InStr(1, Bereich(Zeile, 1), "2") = 0 Then
arrCols = arrCols + 1
If arrCols > wks_A.Columns.Count - A_spalte + 1 Then
MsgBox "Zuviele Spalten für die Ausgabe erforderlich!"
Exit Sub
End If
ReDim Preserve arrData(1 To arrRows, 1 To arrCols)
For Spalte = 1 To Bereich.Columns.Count
arrData(Spalte, arrCols) = Bereich(Zeile, Spalte)
Next
End If
Next
'Daten transponiert ausgeben
For Zeile = LBound(arrData, 2) To UBound(arrData, 2)
For Spalte = LBound(arrData, 1) To UBound(arrData, 1)
wks_A.Cells(A_zeile + Spalte - 1, A_spalte) = arrData(Spalte, Zeile)
Next
A_spalte = A_spalte + 1
Next
End With
End Sub

Guten Morgen Leute,
Ich habe mein VBA Anliegen Gestern schon auf dem Forum gepostet aber leider ist aus irgendeinem Grund ein Durcheinander entstanden. Mehrere Forumler haben in meinem Posting geschrieben.
Hallo Franz und Sepp. Danke schon mal dass ihr dran arbeitet. Franz, dein Lösung Vorschlag lauft aber nicht so wo ich es mir erhofft habe.
Du hast mir diese Woche schon mal geholfen mit dem VBA Thema Tabelle Aufgrund von/bis Datum (Periodebereich) Ich habe dein Code so umprogrammiert dass es für meine Zwecke
Passt. Der Identifier kommt (in der erste spalte) öfters vor und dass muss auch so sein. Doch was nicht sein darf ist dass nach dem Transpose Identifier mit den gleichen Identifiernamen in den Spalten stehen.
In dem Code (Tabelle Aufgrund von/bis Datum (Periodebereich) wird der Identifier und Datum kontrolliert. Nachhinein habe ich aber gemerkt dass zusätzliche Kriterien geprüft werden müssen. Darum das Posting Rows in Array einlesen (Dup.check) und Transpose
Bedingungen sind Identifier und Datum (Start und End) und nachhinein auch noch der Identifiername und Typ. Ich schätze dass ist nur zu erreichen wenn Zeilen mit ausgewählten Identifier und zutreffendes Datum samt Identifiername und Typ via eine Schleife ins Array kommen. Wenn dann der Identifiername und Typ schon vorkommen, müsste der Eintrag nicht noch mal stattfinden.
Ein Teil vom Code hänge ich mal an. Ich schätze dass der Code ab der Datumscheck durch eine Arraylösung ersetzt werden muss? Da könnt ihr doch bestimmt helfen.. Gruss, Robert
wksDaten.Select
iSpalte = 3
For lZeile = 2 To wksDaten.Cells(.Rows.Count, 20).End(xlUp).Row
If wksDaten.Cells(lZeile, 20).Value = BMID_auswahl Then
If DatumsCheck(Start:=wksDaten.Cells(lZeile, 30), _
Ende:=IIf(IsEmpty(wksDaten.Cells(lZeile, 31)), tEnde, _
wksDaten.Cells(lZeile, 31)), _
PeriodeStart:=tStart, PeriodeEnde:=tEnde) = True Then
wksDaten.Range(Cells(lZeile, 20), Cells(lZeile, 32)).Copy
lZ_Start = 1
wks.Cells(lZ_Start, iSpalte).PasteSpecial Paste:=xlPasteAll, Transpose:=True
End If
iSpalte = iSpalte + 1
End If
Next

Rows in Array einlesen (Dup.check) und Transpose

Forumthread: Rows in Array einlesen (Dup.check) und Transpose

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Rows in Array einlesen (Dup.check) und Transpose

Forumthread: Rows in Array einlesen (Dup.check) und Transpose

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread