Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Hallo Nike

Betrifft: Hallo Nike von: sigi
Geschrieben am: 12.08.2004 09:32:24

Hallo Nike,
lieder funktioniert es doch nicht.
Nachfolgend mein Code für die Userform1.Listbox 1

Private Sub UserForm_Initialize()
Dim lngZeil As Long
lngZeil = 1
Do
Select Case Cells(lngZeil, 1)
    Case 0 To 4999
UserForm1.ListBox1.List = Sheets("Daten").Range("B2:C5001").Value
        UserForm1.ListBox1.AddItem Cells(lngZeil, 1)

    Case Else
        'wenn der Wert nicht passt
End Select
lngZeil = lngZeil + 1
Loop Until Cells(lngZeil, 1) = ""
End Sub


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim Datum As Date
Dim BV As Variant
Dim von As Variant
Dim bis As Variant
Dim Bewölkung As Variant
Dim Niederschlag As Variant
Dim Wind As Variant
Dim Temp As Variant
Dim Luft As Variant
Dim Zeit As Variant
Dim A_Nr As Variant
Dim A_Nr1 As Variant
Dim I As Integer
Dim Nummer As Integer
    Nummer = UserForm1.ListBox1.ListIndex
    Nummer = Nummer + 2
    von = FormatDateTime(von, vbShortTime)
    bis = FormatDateTime(bis, vbShortTime)
    Zeit = FormatDateTime(Zeit, vbShortTime)
    UserForm1.TextBox1.Visible = True
    UserForm1.TextBox1.Value = "Änderungsmodus"
    UserForm1.TextBox2.SetFocus
    UserForm1.CommandButton3.Enabled = True
For I = 2 To 5001
If Sheets("Daten").Cells(I, 1) = "" Then Exit For
If I = Nummer Then
A_Nr = Sheets("Daten").Cells(Nummer, 1)
    Datum = Sheets("Daten").Cells(Nummer, 2)
    BV = Sheets("Daten").Cells(Nummer, 3)
    von = Sheets("Daten").Cells(Nummer, 4)
    bis = Sheets("Daten").Cells(Nummer, 5)
    Bewölkung = Sheets("Daten").Cells(Nummer, 6)
    Niederschlag = Sheets("Daten").Cells(Nummer, 7)
    Wind = Sheets("Daten").Cells(Nummer, 8)
    Temp = Sheets("Daten").Cells(Nummer, 9)
    Luft = Sheets("Daten").Cells(Nummer, 10)
    Zeit = Sheets("Daten").Cells(Nummer, 11)
   
Exit For
End If
Next I
A_Nr = Format(A_Nr, "0000")
    von = FormatDateTime(von, vbShortTime)
    bis = FormatDateTime(bis, vbShortTime)
    Zeit = FormatDateTime(Zeit, vbShortTime)
    UserForm1.ComboBox1.Value = Datum
    UserForm1.ComboBox2.Value = BV
    UserForm1.ComboBox3.Value = von
    UserForm1.ComboBox4.Value = bis
    UserForm1.ComboBox5.Value = Bewölkung
    UserForm1.ComboBox6.Value = Niederschlag
    UserForm1.ComboBox7.Value = Wind
    UserForm1.ComboBox8.Value = Temp
    UserForm1.ComboBox9.Value = Luft
    UserForm1.ComboBox10.Value = Zeit
    A_Nr = Format(A_Nr, "0000")
    UserForm1.TextBox5.Value = A_Nr
    UserForm1.TextBox2.Value = "Bei Änderungen, bitte SPEICHERN drücken..."
End Sub

Danke!
Sigi
  


Betrifft: AW: List von: Nike
Geschrieben am: 12.08.2004 09:43:13

Hi,
wenn's geht im Thread bleiben und wenn du nen neuen auf machst,
dann keinen gezielt ansprechen, sonst kuemmert sich kein anderer drum
und ich haeng auch nicht immer hier ab ;-)

Ich wuerd einfach mal das
UserForm1.ListBox1.List = Sheets("Daten").Range("B2:C5001").Value
weglassen, den mit dem AddItem fuegst du ja die Elemente hinzu...

Den DoubleClick kann ich nicht analysieren...

Bye

Nike