Werte aus Tabelle auslesen

Hi
Ich habe eine Frage die wahrscheinlich am ehesten in Richtung VBA geht und wahrscheinlich auch kein großes Problem darstellt (für Euch).
Ich habe 3 Tabellen.
In Tabelle 1 steht in Spalte I ab Zeile 14 entweder "wesentlich" oder "unwesentlich". Wenn "wesentlich" dann sollen die Resultate aus Tabelle 1, Spalte A & B, Zeile 14 in Tabelle 2 ab Zeile 16 in Spalte A & B eingetragen werden. Wenn "unwesentlich" dann sollen die Resultate aus Tabelle 1 in Tabelle 3 ab Zeile 10 Spalte A & B eingetragen werden.
Der Hintergrund ist wahrscheinlich klar. Ich muss Werte aus Tabelle 1 Spalte A & B mit den beiden Suchkriterien "wesentlich" und "unwesentlich" finden und jeweils in Tabelle 2 und 3 einfügen. Und das ohne Leerzeilen zu haben. Nach meiner Vorstellung geht das am einfachsten mit VBA, aber ich weiß nicht wie. Ihr aber bestimmt und es wäre super, wenn Ihr mir helfen könntet.
Vielen, vielen Dank!
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub prcStart() GetValues "wesentlich", Sheets("Tabelle2").Cells(10, 1) GetValues "unwesentlich", Sheets("Tabelle3").Cells(10, 1) End Sub Sub GetValues(strMatch As String, rngZiel As Range) Dim vntArr(), lngCounter As Long, rngC As Range With Sheets("Tabelle1") ReDim vntArr(1 To Application.CountIf(.Columns(9), strMatch), 1 To 2) For Each rngC In .Range(.Cells(10, 9), .Cells(Rows.Count, 9).End(xlUp)) If rngC = strMatch Then lngCounter = lngCounter + 1 vntArr(lngCounter, 1) = rngC.Offset(, -8) vntArr(lngCounter, 2) = rngC.Offset(, -7) End If Next End With rngZiel.Resize(lngCounter, 2) = vntArr End Sub

Hallo,

Sub prcStart()
GetValues "wesentlich", Sheets("wesentlich").Cells(10, 1), 2
GetValues "unwesentlich", Sheets("unwesentlich").Cells(10, 1), 4
End Sub

Sub GetValues(strMatch As String, rngZiel As Range, iColumns As Integer)
Dim vntArr(), lngCounter As Long, rngC As Range, j As Integer
With Sheets("Übersicht")
ReDim vntArr(1 To Application.CountIf(.Columns(9), strMatch), 1 To iColumns)
For Each rngC In .Range(.Cells(10, 9), .Cells(Rows.Count, 9).End(xlUp))
If rngC = strMatch Then
lngCounter = lngCounter + 1
For j = 1 To iColumns
vntArr(lngCounter, j) = rngC.Offset(, -9 + j)
Next j
End If
Next
End With
rngZiel.Resize(lngCounter, iColumns) = vntArr
End Sub

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G
10	101	102		wesentlich		101	102
11	111	112		wesentlich		111	112
12	121	122		wesentlich		121	122
13	131	132		unwesentlich		151	152
14	141	142		unwesentlich		171	172
15	151	152		wesentlich		181	182

Zelle	Formel
F10	{=INDEX(A$10:A$30;KKLEINSTE(WENN($D$10:$D$30=" wesentlich" ;ZEILE($10:$30)-9;" " );ZEILE(A1)))}
G10	{=INDEX(B$10:B$30;KKLEINSTE(WENN($D$10:$D$30=" wesentlich" ;ZEILE($10:$30)-9;" " );ZEILE(B1)))}

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

359 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte aus Tabelle auslesen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

359 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread