Nochmals allgemeine Frage zu Userforms

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ewald,
Danke für die Antwort.
Zu Deiner Frage:
Es geht um eine Kalkulationsmappe
In der ersten UF wird in einer Listbox ein mehrspaltiger Bereich vom Tabellenblatt1 eingelesen (Positionen und Text und Menge).
Zu diesem einzelnen Positionen von Tabellenblatt1 sind in Tabellenblatt2 mehrere verschiedene Werte hinterlegt (Material und Zeit).
In der erten UF kann ich dann eine Position auswählen, dann öffnet sich eine zweite UF mit den dazugehörigen Daten für diese Position. In dieser UF kann ich dann die einzelnen Daten für Material und Zeit einsehen und nach Bedarf bearbeiten.
Da es aber für das Material nochmals eine hinterlegte Liste gibt, rufe ich zum ändern dieser Werte die dritte UF auf, um die Materialwerte ändern bzw. hinzufügen zu können.
Das alle klappt eigentlich recht gut.
Jetzt habe ich aber noch eine Frage:
Wie kann ich aus einem Variablen Bereich in einer Spalte die erste freie Zeile ausgeben lassen?
Bei folgendem Code gibts immer Probleme:
Die Matrix wird zwar erkannt, aber wenn zB die Zeile 23 leer ist, gibt er Zeile 23 aus, wenn Zeile 29 frei ist, aber Zeile 22 belegt, gibt er 28 aus, verstehe ich noch nicht!
Was muss man da ändern?

Set Dim anfmatarray As Long
Dim endmatarray As Long
Dim lastrowmat As Long
Dim MatrixPosnr As Range
Dim suchposnr As String
MatrixPosnr = Sheets("Kalkulation").Range("L1:L25000")
suchposnr = Me.ListBox1.List(0, 1)
anfmatarray = Application.Match(suchposnr, MatrixPosnr, 0) + 2
endmatarray = anfmatarray + 13
lastrowmat = wksKalk.Range("N" & anfmatarray & ":N" & endmatarray).End(xlDown).Row

Danke für die Unterstützung!
MfG Christian

With ListBox2 .Clear suchmat = Me.ListBox1.List(0, 1) zeilemat = Application.Match(suchmat, MatrixMat, 0) + 2 For imat = zeilemat To zeilemat + 14 If wksKalk.Cells(imat, 14) "" Then .AddItem wksKalk.Cells(imat, 14) .List(ListBox2.ListCount - 1, 1) = wksKalk.Cells(imat, 15) .List(ListBox2.ListCount - 1, 2) = wksKalk.Cells(imat, 16).Text .List(ListBox2.ListCount - 1, 3) = wksKalk.Cells(imat, 17).Text .List(ListBox2.ListCount - 1, 4) = wksKalk.Cells(imat, 18) .List(ListBox2.ListCount - 1, 5) = wksKalk.Cells(imat, 19).Text .List(ListBox2.ListCount - 1, 6) = wksKalk.Cells(imat, 20).Text .List(ListBox2.ListCount - 1, 7) = wksKalk.Cells(imat, 21).Text .List(ListBox2.ListCount - 1, 8) = wksKalk.Cells(imat, 22).Text .List(ListBox2.ListCount - 1, 9) = wksKalk.Cells(imat, 23).Text End If Next End With

efzeile = 0 'erste freie Zeile For imat = zeilemat To zeilemat + 14 If wksKalk.Cells(imat, 14) "" Then .AddItem wksKalk.Cells(imat, 14) .List(ListBox2.ListCount - 1, 1) = wksKalk.Cells(imat, 15) .List(ListBox2.ListCount - 1, 2) = wksKalk.Cells(imat, 16).Text .List(ListBox2.ListCount - 1, 3) = wksKalk.Cells(imat, 17).Text .List(ListBox2.ListCount - 1, 4) = wksKalk.Cells(imat, 18) .List(ListBox2.ListCount - 1, 5) = wksKalk.Cells(imat, 19).Text .List(ListBox2.ListCount - 1, 6) = wksKalk.Cells(imat, 20).Text .List(ListBox2.ListCount - 1, 7) = wksKalk.Cells(imat, 21).Text .List(ListBox2.ListCount - 1, 8) = wksKalk.Cells(imat, 22).Text .List(ListBox2.ListCount - 1, 9) = wksKalk.Cells(imat, 23).Text Else If efzeile = 0 Then efzeile = imat End If Next

Beliebteste Forumthreads (12 Monate)

Nochmals allgemeine Frage zu Userforms

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nochmals allgemeine Frage zu Userforms

5 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)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread