Zeilennummer anzeigen | Herbers Excel-Forum"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim arrData as Variant With ActiveSheet.Range("A1").CurrentRegion If .Rows.Count > 1 Then Set mrngData = Intersect(.Cells, .Offset(1)) End If End With ' Zeilennummern in letzter Spalte hinzufügen arrData = mrngData.Resize(, mrngdata.columns.count + 1).value for i = 1 to Ubound(arrData, 1) arrData(i, Ubound(arrData, 2)) = i + 1 Next ' Listbox füllen ################################################### With ListBox1 .ColumnCount = Ubound(arrData, 2) .List = arrData End With Zeilennummer = Listbox1.List(Listbox1.ListIndex, Listbox1.ColumnCount - 1)

Hi
ok ich müsste sehr tief in den Code eingreifen, den du schon hast.
dazu habe ich keine Lust.
dein erstes Problem, nämlich die richtigen Texte kannst du aber relativ einfach lösen, indem du die Texte für die Textboxen nicht aus der Exceltabelle liest (denn dafür brauchst du Zeilennummern, die du aber nicht hast), sondern aus der Listbox direkt.
hierzu musst du den Code für die Listbox1_Click so schreiben:

Private Sub ListBox1_Click()
With ListBox1
TextBox1.Text = .List(.ListIndex, 2)
TextBox2.Text = .List(.ListIndex, 3)
End With
End Sub

damit liest du die Texte aus der Listbox aus und brauchst daher nur den ListIndex des geklickten Eintrags und den hast du auf jeden Fall.
wenn du die Zeilennummer in der Tabelle haben willst, ist am einfachsten, die Zeilennummer in einer weiteren Spalte am Tabellenende mit der Formel =Zeile() zu hinterlegen, die dann wie eine normale Spalten in die Listbox mit aufgenommen wird.
dann kannst du den Code so wie du ihn erhalten hast weiter verwenden (ohne meine Ergänzung)
ansonsten müsste man recht tief in den Code, den du schon hast, eingreifen.
dazu fehlt mir grad die Zeit und die Lust, das unentgeltlich für dich zu tun.
Wenn du zeilen Löscht, ist das kein Problem, wenn du Zeilen hinzufügst, musst du eben diese Formel in der letzten Spalte mit einfügen, aber dass sollte nicht allzuschwer sein.
Gruß Daniel

Private Sub ListBox1_Click() TextBox1 = Cells(ListBox1.ListIndex + 2, 3) TextBox2 = Cells(ListBox1.ListIndex + 2, 4) zeilnum = Cells(ListBox1.ListIndex + 2, 1) - 10000 + 2 'TextBox3 = zeilennummer End Sub

Hallo Thomas,
rein fachlich kann ich die Makros die meine Vorgaenger geschrieben haben nicht nachvollziehen.
Das ist eine Programmiersprache die ist mir zu hoch. UserFormen sind auch nicht meine Staerke.
Wennich aber verstanden und begriffen habe worum es geht entwickle ich eigene Ideen.
Eine Datenbank die ich komplett selbst entwickelt habe, mit UserFormen, findest du im Archiv:
Index 1495834 @Lukas "Datenbank" - neue Lösung - Piet das war meine Arbeit zur Anfrage Lukas.
Schaut man sich die Anfrage an ist leicht zu erkennen, das ist die Produktion in einem Industrie
Unternehmen. Wahrscheinlich eine Rohr- oder Blechfertigung. Meines Wissens wurde sie übernommen.
Ich muss aber erst einmal verstehen was die ganzen Daten bedeuten, ob man sie alle braucht?
Ich habe im zweiten Beispiel gesehen das es dort eine ganz andere (unentwickelte) UserForm gibt.
Aber den Zusammenhang, wozu das ganze dient, was man damit erreichen will, sehe ich noch nicht.
Brauche erst den Durchblick, dann kann ich mich dazu aeussern und eigene Vorschlaege machen ...
mfg Piet

Beliebteste Forumthreads (12 Monate)

Zeilennummer anzeigen | Herbers Excel-Forum"

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread