vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
ListBox Spalten 
Autor: Tweety2016
Datum: 02.11.17 16:11

Hallo zusammen,

mit untenstehendem Code setze ich einen Filter in Spalte 29, wodurch etliche Zeilen ausgeblendet werden.
Dann übertrage ich die Inhalte der Zellen in Spalte C der sichbaren Zeile in eine ListBox im Formular.

Wie muss ich den Code jetzt erweitern, wenn ich in der ListBox neben den Inhalten der Spalte C auch die der Spalten D ud F haben möchte?

Code:

ActiveWorkbook.Worksheets("2014").Activate

ActiveSheet.Range("$B$4:$AD$1000").AutoFilter Field:=29, Criteria1:="NEIN"
ListBox1.ColumnCount = 2
'ListBox1.RowSource = "B4:AD1000"

Dim i As Integer
'Dim k As Integer

With Sheets("2014")
Set Bereich = ActiveSheet.Range("$B$4:$AD$1000")

For i = 4 To .UsedRange.Rows.Count


If .Rows(i).Hidden = False Then
ListBox1.AddItem .Cells(i, 3).Value
End If


Next i

End With

Grüße
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ListBox Spalten1.570Tweety201602.11.17 16:11
Re: ListBox Spalten579MarkM19.12.17 21:47

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel