Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
448to452
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
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

listbox einträge markieren

listbox einträge markieren
05.07.2004 11:27:09
Hans
moin excelfreunde,
ich erstelle in einer listbox einträge, die den namen von arbeitsblättern darstellen. wie kann ich nun über einen commandbutton alle arbeitsblätter markieren die in der listbox sind?
grüße hans

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: listbox einträge markieren
K.Rola
Hallo,
meinst du wirklich alle, die in der Listbox stehen oder nur, die,
welche markiert(ausgewählt) sind?
Gruß K.Rola
AW: listbox einträge markieren
Hans
yipp,
alle
der hans
AW: listbox einträge markieren
Hans
obwohl die andere variante auch interessant klingt *g*
AW: listbox einträge markieren
K.Rola
Hallo,
Beispiel:
''=====================================================
''Erforderliche controls:
''Eine Listbox mit Namen ListBox 1
''Commandbutton1
''Commandbutton2
''Commandbutton3
''=====================================================
''Der Code muss ins Modul des userforms
''=====================================================
Option Explicit
Dim aSh As Object
''=====================================================

Private Sub CommandButton1_Click()
''Alle Blätter werden selektiert
Dim i As Long
With Listbox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
Sheets(.List(i, 0)).Select False
End If
Next
End With
End Sub

''=====================================================

Private Sub CommandButton2_Click()
''Auswahl wird aufgehoben
Dim i As Long
aSh.Select
With Listbox1
For i = 0 To .ListCount - 1
.Selected(i) = False
Next
End With
End Sub

''=====================================================

Private Sub CommandButton3_Click()
''Alle ausgewählten werden selektiert
Dim i As Long
With Listbox1
For i = 0 To .ListCount - 1
Sheets(.List(i, 0)).Select False
Next
End With
End Sub

''=====================================================

Private Sub UserForm_Activate()
''Blattnamen in die Listbox lesen
Set aSh = ActiveSheet
Dim sh As Object
With Listbox1
.Clear
For Each sh In Sheets
.AddItem sh.Name
Next
End With
End Sub

Gruß K.Rola
Anzeige
AW: listbox einträge markieren
hans
thanks k.rola
ich glaube, ich habe mich in dich verliebt *g*
grüße hans
AW: listbox einträge markieren
K.Rola
Hallo,
ich weiß, das passiert mir immer wieder.
Gruß K.Rola
AW: listbox einträge markieren
Hans
hi schatzi,
falls du noch im land bist, guck mal oben bei hans um 16:03:08
*schnauf*
grüße hans
AW: listbox einträge markieren
Hans
sorry ralph,
aber die datei ist leer

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige