|
"Soweit so gut." <-- das habe ich auch mal gedacht. Aber dann fand ich heraus wie viel besser es ist alles in einer Maske zu erledigen. Also Neu, ändern. löschen.
Zu deiner Frage: Ja ,ist machbar. Du wirst wohl Deine Listboxspaltennurmmern mit den Tabellespalten
hart codieren müssen oder den Beginn der "X" Spalten per Suchfunktion jedesmal suchen um von dort aus die "X"'se ein- oder auszutragen.
Z.b.
i=0
for each rng in Tabelle1.Cells(zeile, "H").resize(0,ListBox1.listcount)
rng.value = iif(ListBox1.Selected(i),"x","")
i= i+1
next
'listboxzeilen makrieren
for each rng in Tabelle1.Cells(zeile, "H").resize(0,ListBox1.listcount)
ListBox1.Selected(i) = rng.value = "x"
i= i+1
next
*Ohne Garantie, ungetestet
|