Hallo Nike
12.08.2004 09:32:24
sigi
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