AW: Listbox Excel file bestimmte Zelle
11.08.2004 09:47:48
Tobias
hi nepumuk,
das ist meine sub für das füllen von 2 listboxen, in beiden wird jeweils ein worksheet dargestellt.
Listbox hat keine spalten, mit spalten wäre mein problem bestimmt leichter zu lösen weil ich mir den inhalt eines eintrages als string zusammenbastel. *g*
Ich habe zwar die spaltenanzahl und die zeilenanzahl aber so richtig weiß ich nicht wie ich mir diese position geben lasse. ' Position im excelfile
weil wenn ich sage gut gebe mir den aktuellen eintrag dann gibt er mir den ja auch und das wars, aber dadurch das das nun ein string ist mit allem möglichen zeuch drin ist das übel. Man könnte den string jetzt wieder zerlegen aber da müsst ich erst mal stark drüber grübeln.
was die gross und kleinschreibung angeht: ich brech mir immer fast die finger wenn ich die sch.... shifttaste erreichen soll. =) das ist der grund warum ich immer alles klein schreibe. =)
Bin in der hinsicht ein wenig gehändicapt.
Private Sub Listboxen_fuellen(blatt As String)
Dim lauf As Integer
Dim ausgabe As String
Dim test As String
spaltenanzahl = 0
zeilenanzahl = 0
Workbooks("daten.xls").Worksheets(blatt).Activate
spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To spaltenanzahl
rowcnt = Worksheets(blatt).Cells(Rows.Count, i).End(xlUp).Row
If rowcnt > zeilenanzahl Then zeilenanzahl = rowcnt
Next
n = zeilenanzahl
For i = 2 To n
For lauf = 1 To 7
test = Cells(i, lauf).Value
If (lauf <= 4) Then ausgabe = ausgabe + test + " | "
If (lauf = 5) Then ausgabe = ausgabe + test
If ((lauf = 6) Or (lauf = 7)) And (blatt = "schaltung") Then ausgabe = ausgabe + " | " + test
Next
If (blatt = "test1") Then Listbox1.List(i - 2) = ausgabe
If (blatt = "test2") Then Listbox3.List(i - 2) = ausgabe
If (blatt = "test3") Then Listbox2.List(i - 2) = ausgabe
lauf = 1
ausgabe = ""
test = ""
Next
Command2.Enabled = True
End Sub
gruß tobias