Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code

Code
16.10.2004 06:13:17
Michael
Hallo,
habe ein Problem.Ich habe von A1 bis A45 Namen von Mitarbeiter,nun möchte über eine Listbox bestimmte Namen anklicken und diese sollen ab A50 untereinander geschrieben werden. Ab A50 ist eine Tabelle angelegt,die dann ausgedruckt wird,ist eine art Schichtbelegung.Hat jemand eine Lösung.
Gruß
Michael

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code
16.10.2004 08:03:42
andre
Hallo Michael,
Füge eine Listbox in das Blatt und weise Ihr die Eigenschaften Multiselect und ListFillRange A1:A45 zu.
Als Code nimmst Du z.B.

Private Sub ListBox1_LostFocus()
Dim LetzteZelle%
'nach Deiner Auswahl in A sollte nix mehr kommen
LetzteZelle = Cells(Rows.Count, 1).End(xlUp).Row + 1
If LetzteZelle < 50 Then LetzteZelle = 50
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Cells(LetzteZelle, 1) = ListBox1.List(i)
LetzteZelle = LetzteZelle + 1
'Auswahl rückgängig
ListBox1.Selected(i) = False
End If
Next
End Sub

Dann wird bei Verlassen der Listbox die Liste ab A50 erstellt oder ergänzt.
Anzeige
AW: Code
16.10.2004 08:28:23
Michael
Hallo Andre,
klappt super.
Vielen Dank
Michael

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige