Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon voodoo-burner vom 24.07.2019, 08:13 Options
Excel VBA Übernahme aus Listbox
Hallo und guten morgen,
ich habe folgendes Problem und komme überhaupt nicht weiter.
Ich habe eine Listbox die schon gefüllt mit Werten ist. Jetzt sollen per Mausclick auf den jeweiligen Eintrag ider Wert n die Tabelle geschrieben werden. Z.B. 1. Eintrag aus listbox anklicken und Wert in A23; nächsten Eintrag aus Listbox anklicken und Wert in A24 usw. so dass alle Werte die angeklickt werden ab A23 untereinander geschrieben werden.
Schon mal ganz vielen Dank
ich habe folgendes Problem und komme überhaupt nicht weiter.
Ich habe eine Listbox die schon gefüllt mit Werten ist. Jetzt sollen per Mausclick auf den jeweiligen Eintrag ider Wert n die Tabelle geschrieben werden. Z.B. 1. Eintrag aus listbox anklicken und Wert in A23; nächsten Eintrag aus Listbox anklicken und Wert in A24 usw. so dass alle Werte die angeklickt werden ab A23 untereinander geschrieben werden.
Schon mal ganz vielen Dank
Antwort 1 von Hajo_Zi vom 25.07.2019, 10:12 Options
Hallo Unbekannter,
Option Explicit
Private Sub ListBox1_Change()
Dim LoLetzte As Long
If ListBox1.Value <> "" Then
' letzte belegte Zeile unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) + 1
If LoLetzte < 23 Then LoLetzte = 23
Cells(LoLetzte, 1) = ListBox1.Value
End If
End Sub
Gruß Hajo
Option Explicit
Private Sub ListBox1_Change()
Dim LoLetzte As Long
If ListBox1.Value <> "" Then
' letzte belegte Zeile unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) + 1
If LoLetzte < 23 Then LoLetzte = 23
Cells(LoLetzte, 1) = ListBox1.Value
End If
End Sub
Gruß Hajo
Ähnliche Themen
VBA Dateinamen mit best. Wert in eine Listbox eintragen
delium 22.05.2007 - 118 Hits - 18 Antworten
listbox ohne dubletten
schnallgonz 16.05.2007 - 343 Hits - 2 Antworten
VBA - Problem mit Listbox
blaueled 14.10.2007 - 96 Hits - 1 Antwort
In einer Listbox soll das Einmaleins ausgegeben werden
ValeriaF 20.03.2008 - 15 Hits - 2 Antworten
VBA-Excel
mentosbasi 28.05.2008 - 352 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
