PDA

Vollständige Version anzeigen : Markierten Zellen in Listenbox anzeigen.


Tayler
10.07.2006, 17:30
Hallo.
Ich würde gerne in meinem Tabellenblatt alle Zeilen markieren, wo in eine Zelle offen steht. Wenn diese alle markiert sind, sollen sie in einer Listenbox im Userform angezeigt werden. Kann mir jemand sagen, wie man soetwas hinbekommt?

Gruß

Tayler

Hajo_Zi
10.07.2006, 17:41
Hallo Tayler,

warum erst die Zeilen in der Tabelle markieren? Selekt ist in VBA zu 99% nicht notwendig. Mache doch eine schleife über die Daten und prüfe in welcher Zeile "offen" steht.

<img src="http://home.media-n.de/ziplies/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://home.media-n.de/ziplies/" target="_blank"><img border="0" src="http://home.media-n.de/ziplies/images/logo_hajo.gif" align="middle" height="40" alt="Homepage"></a>

Tayler
10.07.2006, 17:50
Hallo Hajo_Zi,
wie bekomme ich sie dann in die Listenbox im Userfrom? Hast du vielleicht ein kleines Beispiel?

Gruß

Tayler

Hajo_Zi
10.07.2006, 17:58
Hallo Tayler,

ich habe jetzt mal einen Teil aus einem meiner Code kopiert. Ich hoffe mal Du kommst damit klar.

LST_Nummer.ColumnCount = 3: LoZeile = 0
If Suche <> "" Then
' Sortieren nach Auftragsnummer
.Range("C2").Sort Key1:=.Range("C2"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
Zähler = 2
Do
Set RaZelle = .Range("B" & Zähler & ":B" & .Range("B1") - 1).Find(What:=Suche)
If Not RaZelle Is Nothing Then
LST_Nummer.AddItem .Range("C" & RaZelle.Row)
LST_Nummer.List(LoZeile, 1) = .Range("B" & RaZelle.Row)
LST_Nummer.List(LoZeile, 2) = .Range("D" & RaZelle.Row)
LST_Zeile.AddItem RaZelle.Row
LoZeile = LoZeile + 1
Zähler = RaZelle.Row + 1
If Zähler > .Range("B1") - 1 Then Exit Do
Else
Exit Do
End If
Loop
Endif
<a href="http://home.media-n.de/ziplies/" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Tayler
10.07.2006, 18:02
Hallo Hajo_Zi.
Danke für die schnelle Hilfe. Dieser Code ist woll etwas kompliziert für mich zu verstehen. So gut bin ich in VBA-Programmierung auch noch nicht.
Trotzdem Danke.

Gruß

Tayler

Hajo_Zi
10.07.2006, 18:19
Hallo Tayler,

ich handhabe es so das ich in den seltesten Fällen die Datei des Fragers nachbaue. Falls dies geschieht passiert dies auch mit dem geringsten Aufwand. Da meist die nachgebaute Tabelle anders auszieht als das Original und dann wäre die gesamte Arbeit für den Papierkorb. So muß der Frager den Code selber anpassen.

<a href="http://home.media-n.de/ziplies/" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>