Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Listboxeinträge in Tabelle speichern (Lstbox1auswahl zu Lstbox2) 2 speichern
#1
Hallo @all
Habe mal wieder einen kleinen Blackout
In Listbox1 stehen Namen zur Auswahl; per Single oder Multiselect werden jene markiert.
Per Commandbutton (Hinzufügen) in Listbox2 übergeben.
Mit dem nächsten Commandbutton (Weiter) sollen die Einträge in Listbox2 ab Zeile 2 in Spalte 31 nach unten gespeichert werden.

Frage: Wie muss/sollte der Code für die besagte Spalte geschrieben werden.
anbei Probedatei

.xlsm   Vornamen.xlsm (Größe: 15,72 KB / Downloads: 8)


vorab Danke an die vielen Helfer
?mage
to top
#2
Hallo Frank,

versuchs mal so

Code:
Private Sub CommandButton4_Click()
   Dim lngLastRow As Long
   Dim lngC As Long
  
   With Worksheets("Tabelle1")
      lngLastRow = .Cells(.Rows.Count, 31).End(xlUp).Row + 1
      If ListBox2.ListCount > 0 Then
         For lngC = 0 To ListBox2.ListCount - 1
            .Cells(lngLastRow, 31).Value = ListBox2.List(lngC)
            lngLastRow = lngLastRow + 1
         Next lngC
      End If
   End With
End Sub
Gruß Stefan
Win 7 / Office 2007
to top
#3
(17.10.2014, 18:17)Steffl schrieb: versuchs mal so
Hallo Stefan, hab dank für den schnellen Code.
Meine kleine Kegeltabelle nimmt immer weiter Formen an.
Nochmals Danke.
?mage
to top
#4
Hallo Frank,

Code:
Private Sub CommandButton4_Click()
  Dim i As Long
  Dim strliste() As String
  ReDim strliste(1 To ListBox1.ListCount, 1 To 1)
  With ListBox2
    For i = 0 To .ListCount - 1
        strliste(i + 1, 1) = .List(i)
    Next i
  End With
  Range("AE2").Resize(UBound(strliste), 1).Value = strliste
End Sub

Gruß Uwe
to top
#5
Hallo Uwe,
auch Dir ein Danke für die schnelle Code-übermittlung.
?mage
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  VBA Eingaben in Excel speichern Pia 2 34 Vor 3 Stunden
Letzter Beitrag: Pia
  Formular füllen und 2fach speichern Tuempeltaucher 1 29 24.02.2017, 11:33
Letzter Beitrag: Rabe
  Spaltenbreite Speichern moe_zzarella 4 52 24.02.2017, 10:37
Letzter Beitrag: WillWissen
  Tabellenbereich kopieren, neues Dokument erstellen, einfügen und speichern DrWahnsinn 8 93 21.02.2017, 15:41
Letzter Beitrag: DrWahnsinn
Question Datei per Makro im gleichen Verzeichnis speichern o0Julia0o 8 164 18.02.2017, 16:33
Letzter Beitrag: o0Julia0o
  Hilfe beim Speichern Andreas79 1 51 11.02.2017, 20:02
Letzter Beitrag: steve1da
  Excel Tabelle als HTML speichern mit Symbolen (Bedingte Formatierung) Mario 2 64 30.01.2017, 18:27
Letzter Beitrag: Mario
  Speichern nach zeit und anzeigen Berti1506 1 68 30.01.2017, 13:00
Letzter Beitrag: schauan
  Flexiblen Maximalwert speichern Letani 8 159 23.01.2017, 05:00
Letzter Beitrag: Letani
  Fehler in VBA-Code: PDF speichern-Button MrHoef 2 81 18.01.2017, 11:42
Letzter Beitrag: MrHoef

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste