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
  Excel Tabellen mit VBA Code in PDF speichern Sykora 0 12 Vor 22 Minuten
Letzter Beitrag: Sykora
  Rezepte in einer Excel-Datenbank speichern Dude 6 114 Gestern, 22:41
Letzter Beitrag: Dude
  Zeitreihe in Formel einsetzen und Ergebnis in Tabelle speichern Japa 4 70 29.11.2016, 20:54
Letzter Beitrag: Japa
  Werte in Excel dauerhaft speichern (loggen) Höpp 3 75 25.11.2016, 20:46
Letzter Beitrag: schauan
  [Macro] CSV öffnen - bearbeiten - speichern Brainlag 13 334 16.10.2016, 15:24
Letzter Beitrag: shift-del
  Makro: Wenn Zelle Wert ≠ 0, dann Wert speichern und Formel löschen TsuBasti1 6 223 01.10.2016, 06:27
Letzter Beitrag: IchBinIch
  Kompressionsrate beim speichern Hussell 10 290 09.09.2016, 08:31
Letzter Beitrag: schauan
  Excel-Verhalten beim Speichern - technisches Problem Glausius 4 272 18.08.2016, 05:11
Letzter Beitrag: schauan
  Fragebogen erstellen und Eingaben in separater Exceldatei speichern Kurtherbert 2 170 05.08.2016, 14:45
Letzter Beitrag: schauan
  Tabellenblatt aus einer Arbeitsmappe speichern Glausius 7 365 14.07.2016, 18:39
Letzter Beitrag: schauan

Gehe zu:


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