Warum läuft diese Prozedur nicht?

Hallo VBA-Experten,
aus diesem Forum wurde mir freundlicherweise die unten aufgeführte Prozedur übermittelt, die die nachfolgend beschriebene Aufgabenstellung bewältigen sollte:

In drei identischen Tabellen (Tabellenblätter "P1", "P2" und "P3") befinden sich in den Spalten B, C und D (jeweils ab Zeile 4) Datensätze, die in Abhängigkeit einer Angabe in der entsprechenden Zeile in Spalte E (dort können die Angaben "V1" oder "V2" stehen) in die bereits bestehenden Tabellenblätter "V1" bzw. "V2" jeweils ab Zeile 4 - als kompletter Datensatz in die Spalten B bis D übernommen werden sollen. Das heißt also, dass die Tabelle "V1" der Reihe nach mit den Datensätzen gefüllt wird, bei denen in der jeweiligen Zeile in den Tabellen "P1", "P2" oder "P3" in Spalte E "V1" vermerkt ist (entsprechendes gilt für die Tabelle "V2"). In den auszufüllenden Tabellen "V1" bzw. "V2" sollte in Spalte E mit der Angabe "P1", "P2" oder "P3" ein Hinweis auf die "Herkunft" des jeweiligen Datensatzes gegeben werden.

Starte ich die Prozedur, werden zwar die Tabellen "V1" und "V2" geleert, mehr tut sich aber leider nicht, d.h. es werden keinerlei Werte aus den Tabellen "P1", "P2" oder "P3" in die Tabellen "V1" oder "V2" übertragen.

Eine Fehlermeldung beim Ablauf der Prozedur erscheint allerdings auch nicht.

Woran liegt das? Würde mich sehr freuen, wenn ihr mir bei der "Fehlersuche" behilflich sein könntet. Ganz herzlichen Dank dafür bereits an dieser Stelle!

Mfg
Frieder

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub fillSheets() Dim lV1_cnt, lV2_cnt As Integer Dim l_sheetname As String 'Zielbereiche leeren For i = 1 To 2 Sheets("V" & CStr(i)).Range("B4:E65536") = "" Next i lV1_cnt = 0 lV2_cnt = 0 'Zielbereiche füllen For j = 1 To 3 For k = 4 To 65536 l_sheetname = Sheets("P" & CStr(j)).Cells(k, 5) If IsNull(CVar(l_sheetname)) Or _ IsEmpty(CVar(l_sheetname)) Or _ l_sheetname = "" Then Exit For ElseIf l_sheetname = "V1" Then lV1_cnt = lV1_cnt + 1 For l = 2 To 4 Sheets(l_sheetname).Cells(lV1_cnt + 3, l) = Sheets("P" & CStr(j)).Cells(k, l) Next l Sheets(l_sheetname).Cells(lV1_cnt + 3, 5) = "P" & CStr(j) ElseIf l_sheetname = "V2" Then lV2_cnt = lV2_cnt + 1 For m = 2 To 4 Sheets(l_sheetname).Cells(lV2_cnt + 3, m) = Sheets("P" & CStr(j)).Cells(k, m) Next m Sheets(l_sheetname).Cells(lV2_cnt + 3, 5) = "P" & CStr(j) End If Next k Next j End Sub

Hallo Nike,
ich glaub, dass die Beschreibung der Aufgabenstellung etwas zu wünschen übrig läßt.
Zudem hab ich in der geposteten Datei jeweils die Zellen E3 in den Tabellen V1 und V2 nicht korrekt bezeichnet, dort muss nicht Vertreter, sondern jeweils Produkt stehen.
Damit dürfte die Aufgabenstellung etwas leichter nachvollziehbar sein: Also sämtliche Werte aus den Spalten A bis E der Tabellen P1, P2, und P3 sollten in die Tabellen V1 oder V2 übertragen (kopiert werden; diese Tabellen also zeilenweise "gefüllt" werden) und zwar, die Datensätze bei denen in der Ursprungstabelle (P1, P2, P3) in der Spalte E V1 steht in die Tabelle V1 (entsprechend in Tabelle V2,wenn V2 in der Spalte E steht). In den Zieltabellen (V1 bzw. V2) sollte dann in der Spalte E (korrekte Bezeichnung: Produkt) entsprechend P1, P2 oder P3 (je nach Ursprung des Datensatzes) stehen.
Vielleicht hilft diese Beschreibung. Bereits besten Dank für Deine bisherige Mühe.

Mfg
Frieder

Beliebteste Forumthreads (12 Monate)

Warum läuft diese Prozedur nicht?

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread