Listbox abfrage

Dim loletzte As Long loletzte = ListBox1.ListCount - 1 'letzte beschriebene zelle For N = 0 To ListBox1.ListCount - 1 Cells(N + 6, "A") = ListBox1.List(N, 0) Cells(N + 6, "B") = ListBox1.List(N, 1) usw....... Next

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Listbox abfrage

07.02.2021 08:02:30

Hajo_Zi

AW: Listbox abfrage

07.02.2021 08:20:33

Oberschlumpf

AW: Listbox abfrage

07.02.2021 09:00:43

Jürgen

AW: Listbox abfrage

07.02.2021 11:33:09

Werner

AW: Listbox abfrage

07.02.2021 12:33:16

Jürgen

AW: Listbox abfrage

07.02.2021 14:59:51

Werner

AW: Listbox abfrage

07.02.2021 15:46:10

Jürgen

AW: Listbox abfrage

07.02.2021 16:25:00

Werner

AW: Listbox abfrage

07.02.2021 18:10:22

Jürgen

AW: Listbox abfrage

08.02.2021 07:13:41

Werner

AW: Listbox abfrage

08.02.2021 11:45:11

Jürgen

Gerne u. Danke für die Rückmeldung. o.w.T.

08.02.2021 11:48:30

Werner

For N = 0 To ListBox1.ListCount - 1 TabellenSpalte = 1 For ListSpalte = 0 To LetzteListSpalte Cells(N + 6, TabellenSpalte) = ListBox1.List(N, ListSpalte) TabellenSpalte = TabellenSpalte + 1 Next Next

Hallo ihr beiden.
Um das Projekt im gesamten zu verstehen ist es notwendig die original Datei hoch zu laden.
Zum zurechtfinden:
1. unter "Optionen" muss Die Kostenstelle eingefügt werden (Tabellenblatt Kostenstelle ist hier die Source)
2.) unter "Userboard" werden neue Benutzer bzw. Feuerwehrkameraden angelegt (Tabellenblatt Login ist hier die Source)
3.) im "Stundenmanager" können nun neue Daten angelegt werden, dabei muss Name, Datum und Zeitbereich eingegeben werden. (Tabellenblatt "Daten" ist hier die Source)
Filtern funktioniert alles sehr gut.
Der Button drucken, soll die aktuelle Liste ausdrucken. Das passt so, dabei werden die aktuellen gefilterten Daten der Listbox in das Tabellenblatt "Drucken" kopiert, der Druckberreich festgelegt und gedruckt.
so und nun gehts um mein Problem.
Beim klick des Buttons "Monatsbericht drucken" sollen die Werte aus dem gewählten Jahr und Monat gefiltert werden. Das ist e schon realisiert.
Jetzt müssen die Werte ins Tabellenblatt "Übersicht" übertragen werden.
Zum Tabellenblatt "Übersicht"
- Die Namen werden vom Tabellenblatt "Login" übernommen
- Die Kostenstellen vom Tabellenblatt "Kostenstelle"
Kamerad Hans Meier hat im Monat Mai zb. 3 Stunden in kst.1 gearbeitet und 2 Stunden in kst.2
jetzt muss im Tabellenblatt "Übersicht" in der Zeile von Hans Meier 3 Stunden in die Spalte kst.1 und 2 STunden in kst.2 eingetragen werden.
und so soll die gesamte Liste, bis zum letzten Kameraden durchgegangen werden.
Die Datei findet ihr hier: www.alpinfreunde.at/TEST
leider könnte ich das interne System nicht verwenden da nur 300 kb erlaubt sind und meine Date 600 kb hat
Boooa, ich hoffe ihr versteht mich und könnt und wollt mir helfen
Lg Jürgen

Sub Makro2() Dim N As Long, raMitarbeiter As Range, raKosten As Range With Worksheets("Übersicht") If Me.ListBox1.ListIndex > -1 Then For N = 0 To ListBox1.ListCount - 1 Set raMitarbeiter = .Columns("A").Find(what:=Me.ListBox1.List(N, 0), _ LookIn:=xlValues, lookat:=xlWhole) Set raKosten = .Rows(1).Find(what:=Me.ListBox1.List(N, 1), _ LookIn:=xlValues, lookat:=xlWhole) If Not raMitarbeiter Is Nothing And Not raKosten Is Nothing Then .Cells(raMitarbeiter.Row, raKosten.Column) = CDbl(Me.ListBox1.List(N, 2)) Set raMitarbeiter = Nothing: Set raKosten = Nothing End If Next N End If Set raMitarbeiter = Nothing: Set raKosten = Nothing End Sub

Dim N As Long, raMitarbeiter As Range, rastunden As Range With Worksheets("Übersicht") If Me.ListBox1.ListIndex > -1 Then For N = 0 To ListBox1.ListCount - 1 Set raMitarbeiter = .Columns("A").Find(what:=Me.ListBox1.List(N, 0), _ LookIn:=xlValues, lookat:=xlWhole) Set rastunden = .Rows(5).Find(what:=Me.ListBox1.List(N, 1), _ LookIn:=xlValues, lookat:=xlWhole) If Not raMitarbeiter Is Nothing And Not rastunden Is Nothing Then .Cells(raMitarbeiter.Row, rastunden.Column) = CDbl(Me.ListBox1.List(N, 2)) Set raMitarbeiter = Nothing: Set rastunden = Nothing End If Next N End If Set raMitarbeiter = Nothing: Set rastunden = Nothing End With

Private Sub CommandButton1_Click() Dim N As Long, raMitarbeiter As Range, raStunden As Range With Worksheets("Übersicht") For N = 0 To ListBox1.ListCount - 1 If Me.ListBox1.Selected(N) Then Set raMitarbeiter = .Columns("A").Find(what:=Me.ListBox1.List(N, 0), _ LookIn:=xlValues, lookat:=xlWhole) Set raStunden = .Rows(5).Find(what:=Me.ListBox1.List(N, 1), _ LookIn:=xlValues, lookat:=xlWhole) If Not raMitarbeiter Is Nothing And Not raStunden Is Nothing Then .Cells(raMitarbeiter.Row, raStunden.Column) = CDate(Me.ListBox1.List(N, 2)) Set raMitarbeiter = Nothing: Set raStunden = Nothing End If End If Next N End With Set raMitarbeiter = Nothing: Set raStunden = Nothing End Sub

Name: Kostenstelle: Stunden: Jürgen Unterweger kst1 2 Jürgen Unterweger kst1 3 Jürgen Unterweger kst2 2 Hans Meier kst1 8 Franz Huber kst2 2 usw......

Hallo,
der Code ist auch für eine "Multiselect" ListBox. Ich habe jetzt keine Ahnung wie ich darauf gekommen bin. Hab jetzt alle deine Beiträge nochmals durchgelesen, da war aber nirgends was von einer Multiselect Listbox. Also - keine Ahnung wie ich auf das Brett gekommen bin.
Hier jetzt nochmal der Code:

Private Sub CommandButton18_Click()
Dim N As Long, raMitarbeiter As Range, raStunden As Range
If b Then Exit Sub
b = True
With Worksheets("daten").Range("a3:i3")
.AutoFilter Field:=7, Criteria1:=ComboBox2.Value
.AutoFilter Field:=8, Criteria1:=ComboBox3.Value
End With
With Worksheets("Übersicht")
For N = 0 To ListBox1.ListCount - 1
Set raMitarbeiter = .Columns("A").Find(what:=Me.ListBox1.List(N, 0), _
LookIn:=xlValues, lookat:=xlWhole)
Set raStunden = .Rows(5).Find(what:=Me.ListBox1.List(N, 1), _
LookIn:=xlValues, lookat:=xlWhole)
If Not raMitarbeiter Is Nothing And Not raStunden Is Nothing Then
.Cells(raMitarbeiter.Row, raStunden.Column) = _
.Cells(raMitarbeiter.Row, raStunden.Column) + CDbl(Me.ListBox1.List(N, 5))
Set raMitarbeiter = Nothing: Set raStunden = Nothing
End If
Next N
End With
Set raMitarbeiter = Nothing: Set raStunden = Nothing
End Sub

Der Wert aus der Listbox muss per CDbl in die Zelle geschrieben werden. CDate schreibt ein Datum, das war nur als Beispiel, da die angesprochene Spalte in der Listbox ein Datum enthalten hat.
Zudem mußt du den Stundenwert aus der Spalte 5 der Listbox auf den Wert der Zelle aufaddieren. Zumindest im Beispiel hast du ja Personen in der Listbox, die mehrfach Stunden in der selben Kostenstelle erbracht haben. Wenn du jetzt den Listbox-Wert nicht auf den Wert der Zielzelle aufaddierst, dann hast du immer nur den letzten Wert in der Zielzelle stehen.
Ich will dir ja nicht zu nahe treten, aber der meiste Code ist ziemlich gruselig. Lauter Select und Activate.
Das braucht in 99,9 Prozent der Fälle kein Mensch und macht den Code nur langsam.
Zu Select/Activate siehe auch mal hier: https://www.online-excel.de/excel/singsel_vba.php?f=78
Gruß Werner

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox abfrage

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread