Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UserForm Liste

UserForm Liste
16.02.2007 16:33:17
Gregor
Hallo
Ich habe eine Tabelle, aus der ich in eine UserForm Liste die Einträge wie folgt übernheme:

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Application.EnableEvents = False
Me.lblTitel = "Erklärung des Codes " & Code
lstCode.RowSource = "Code!B" & Zeile & ":E" & Zeile
lstCode.ListIndex = -1
End Sub


Private Sub cmdAbbrechenCode_Click()
Unload Me
Sheets("Master Datei").Activate
End Sub


Private Sub UserForm_Activate()
usrCode.lstCode.ColumnHeads = True
End Sub

In der 1. Zeile der UserForm Liste sollte es die Spaltenüberschriften B1 bis E1 der Tabelle übernehmen. Mit obigem Ansatz übernimmt es mir immer die Zeile oberhalb der gefundenen Zeile.
Wie kann ich das lösen?
Vielen Dank
Gregor

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserForm Liste
16.02.2007 16:43:59
Jan
Hi,
woher bekommt die Variable Zeile ihren Wert?
mfg Jan
AW: UserForm Liste
16.02.2007 16:54:07
Gregor
Hallo Jan
Von

Sub Code_Erklärung()
Application.ScreenUpdating = False
Application.EnableEvents = False
Worksheets("Master Datei").Select
Zeile = ActiveCell.Row
Spalte = ActiveCell.Column
Code = Cells(Zeile, Spalte + 1).Value
If Code = "" Then
MsgBox Prompt:="Es sind keine Erläuterungen hinterlegt.", _
Title:="  Erläuterungen FV"
Worksheets("Master Datei").Activate
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Gregor
AW: UserForm Liste
16.02.2007 17:59:20
Jan
Hi,
Deklariere Zeile in einem Standardmodul
als Long
Public Zeile As Long
mfg Jan
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige