Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

mehrsp. UserForm Listbox in Tabelle übertragen | Herbers Excel-Forum


Betrifft: mehrsp. UserForm Listbox in Tabelle übertragen von: Markus
Geschrieben am: 16.10.2008 12:56:55

Hallo zusammen,

hab eine Userform mit 2 Listboxen in der einen stehn ausgelesene Pfade zu Bildern in meinen Ordnern
in der UserForm.Listbox2 hab ich Daten dazu aus anderen Tabellenblättern eingelesen.

Die Listbox2 hab ich in 5 Spalten unterteilt.

Möchte nun die Daten aus der Listbox2 auf ein Tabellenblatt übertragen um ein Datenblatt zu drucken.

Brauch also irgendwas das alle Listbox einträge ausliest und in Tabelle3 ab zeile xy einträgt.

Textbox inhalt übertragen schaff ich aber das mit allen Listbox einträgen übertragen is zu crazy für mich

Wer kann mir helfen dabei.

Danke

  

Betrifft: AW: mehrsp. UserForm Listbox in Tabelle übertragen von: Holger
Geschrieben am: 16.10.2008 15:24:48

Hallo Markus,
dazu kannst du die List-Eigenschaft der ListBox nutzen
Cells(Tabellenblatt-Zeile,Tabellenblatt-Spalte)=UserForm.ListBox2(ListBox-Zeile,ListBox-Spalte)
Gruß
Holger


  

Betrifft: AW: mehrsp. UserForm Listbox in Tabelle übertragen von: fcs
Geschrieben am: 16.10.2008 16:09:54

Hallo Markus,

hier ein Beispiel für eine Listbox deren Daten komplett in eine tabelle geschrieben werden.

Gruß
Franz

Private Sub CommandButton1_Click()
  Dim wks As Worksheet, lngZeile As Long, lngZBox As Long, lngSpalte
  Set wks = ActiveSheet
  lngZeile = wks.Cells(wks.Rows.Count, 3).End(xlUp).Row + 1
  'Inhalte in Listbox ab lngZeile in Spalte 3 und rechts davon eintragen
  With Me.ListBox1
    'Zeilen der Listbox abarbeiten
    For lngZBox = 0 To .ListCount - 1
      'Spalten der Listbox abarbeiten
      For lngSpalte = 0 To 4
        'Wert in Tabelel schreiben
        wks.Cells(lngZeile, 3).Offset(lngZBox, lngSpalte).Value = .List(lngZBox, lngSpalte)
      Next
    Next
  End With
End Sub




Beiträge aus den Excel-Beispielen zum Thema "mehrsp. UserForm Listbox in Tabelle übertragen"