Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
468to472
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
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hallo Nike

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: List
Nike
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige