Zeile in Listbox formatieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() Dim AnzahlZeilen As Integer AnzahlZeilen = Workbooks(frmAkontoImport.boxImport.Value).Worksheets(1).UsedRange.Rows. _ Count ListBox1.List = Workbooks(frmAkontoImport.boxImport.Value).Worksheets(1).Range("A2:I" & _ AnzahlZeilen).Value End Sub

Private Sub UserForm_Initialize() Dim AnzahlZeilen As Long AnzahlZeilen = Workbooks(frmAkontoImport.boxImport.Value).Worksheets(1) _ .UsedRange.Rows.Count ListBox1.ColumnHeads = True ListBox1.RowSource = Workbooks(frmAkontoImport.boxImport.Value).Worksheets(1) _ .Worksheets(1).Range("A2:B" & AnzahlZeilen).Address End Sub

Private Sub UserForm_Initialize() Dim rBereich As Range Dim Dateiname$, TabellenName$, ZellAdresse$ Dim sFormel As String Dateiname$ = frmAkontoImport.boxImport.Value With Workbooks(Dateiname$) TabellenName$ = .Worksheets(1).Name Set rBereich = .Worksheets(1).UsedRange Set rBereich = Range("A2:N" & rBereich.Cells(rBereich.Cells.Count).Row) ZellAdresse$ = rBereich.Address End With sFormel = "[" & Dateiname & "]" & TabellenName & "!" & ZellAdresse With ListBox1 .ColumnCount = rBereich.Columns.Count .ColumnHeads = True .RowSource = sFormel End With Set rBereich = Nothing End Sub

Hallo,
irgendwas stimmt bei Dir nicht.
Baue mal den Code unten ein,
Du bekommst eine Message Box mit einem Text der in etwa so aussehen muss.
[DateiName.xls]Tabelle1!$A$2:$N$29
Sieht der bei Dir anders aus?
Stimmt der Inhalt?
Ist der Dateiname richtig, auch die Extension (.xls oder .xlsm usw...)?
Ist der Tabellenname richtig?
Ist die Zelladresse richtig?

Private Sub UserForm_Initialize()
 Dim rBereich As Range
 Dim Dateiname$, TabellenName$, ZellAdresse$
 Dim sFormel As String

Dateiname$ = frmAkontoImport.boxImport.Value

With Workbooks(Dateiname$)
 TabellenName$ = .Worksheets(1).Name
 Set rBereich = .Worksheets(1).UsedRange
 Set rBereich = Range("A2:N" & rBereich.Cells(rBereich.Cells.Count).Row)
 ZellAdresse$ = rBereich.Address
End With
 
sFormel = "[" & Dateiname & "]" & TabellenName & "!" & ZellAdresse

MsgBox sFormel 'Test Message 
 
 With ListBox1
  .ColumnCount = rBereich.Columns.Count
  .ColumnHeads = True
  .RowSource = sFormel
 End With

Set rBereich = Nothing
End Sub

Sonst kann ich nicht weiter helfen oder ich komme bei Dir mal kurz vorbei. ;-)
Gruß Tino

Hallo
Jup, die Meldung in der Messagebox lautet:
"[Testliste Akontozahlungen.xls]Tabelle1!$A$2:$N$36"
Scheinbar kann dieser Bereich nicht in die Listbox eingefügt werden... hmmm... kann es sein, dass ein Eigenschaftswert der Listbox falsch ist? BoundColumn = 0; ColumnCount = -1 ?
Ich erklär vielleicht am besten mal die Ausgangssituation: Ich habe eine Excel-Anwendung gebastelt, in der täglich Daten von anderen Exceltabellen importiert werden. Ich starte per Knopfdruck auf der Anwendung ein Import. Dabei wird eben diese Listbox als Import-Vorschau angezeigt. Diese enthält nun eben die Daten, die von der anderen Exceltabelle stammen. In dieser Liste sind in der obersten Zeile immer die Überschriften jeder Spalte, die in der Listebox eben als ColumnHeads abgebildet werden sollen.
Aber eben, das Problem ist eigentlich nur, dass die Überschriften nicht in die ColumnHeads wollen... :(
NB: Vorbeikommen wäre wohl die beste Lösung, aber vielleicht nicht gerade ökonomisch sinnvoll... ;)
Vielen Dank! Gruss
Beni

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile in Listbox formatieren

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread