Datumsauswahl

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datumsauswahl

03.01.2007 11:57:08

fcs

AW: Datumsauswahl

03.01.2007 14:04:59

Ronny

AW: Datumsauswahl

04.01.2007 16:57:45

Ronny

AW: Datumsauswahl

04.01.2007 23:10:37

fcs

AW: Datumsauswahl

06.01.2007 20:45:53

fcs

AW: Datumsauswahl

07.01.2007 15:42:24

Ronny

AW: Datumsauswahl

07.01.2007 17:19:00

fcs

AW: Datumsauswahl

07.01.2007 23:44:42

Ronny

Private Sub OptionButtonZeitfenster_Click() 'Datumseingaben einblenden Dim Jahr '############ Jahr = Val(Right(Worksheets("Tmw 1-126").Range("A5").Value, 4)) '############ Me.CBox_vonTag.Value = 1 Me.CBox_vonMonat.Value = 1 Me.CBox_vonJahr.Value = Jahr '############ Call Datum_von Me.CBox_bisTag.Value = Day(Date - 1) Me.CBox_bisMonat.Value = Month(Date - 1) Me.CBox_bisJahr.Value = Jahr '############ Call Datum_bis Me.Label_von.Visible = True Me.Label_bis.Visible = True Me.CBox_vonTag.Visible = True Me.CBox_vonMonat.Visible = True Me.CBox_vonJahr.Visible = True Me.CBox_vonJahr.Locked = True '############ Me.CBox_bisTag.Visible = True Me.CBox_bisMonat.Visible = True Me.CBox_bisJahr.Visible = True Me.CBox_bisJahr.Locked = True '############ Call OptionABzurueck End Sub

Hallo Franz,
hab alles integriert und angepasst, so dass auf den ersten Blick auch alles zu funktionieren schien, doch dann stellte ich fest, dass es ein Problem beim Sortieren geben muss. Er sortiert (auch schon vorher gewesen und mir leider erst heute aufgefallen) zwar aufsteigend von klein bis groß, aber macht dort große Fehler! z.B. sortiert er momentan:
1,0
1,1
1,4
19,2
19,3
2,5
2,8
20,8
4,5
usw., d.h. er bemerkt beim sortieren nicht, dass z.B. die 19 nicht nach der 1 kommen kann, wenn es eine 2 gibt! Was kann man da tun, dass dieser Fehler nicht mehr gemacht wird?
Des Weiteren ist es bei den "PE" Nummern so, dass es dort mehrere Parameter gibt die zu einer PE Nr. gehören und nicht wie bei den Strom Nummern ohne PE nur ein Parameter existiert. Daher müßte man immer wenn eine PE Nr. eingegeben wird als nächstes nach dem Parameter fragen, welcher die gewünschte Hauptgröße sein soll. Am Besten dafür wäre meiner Meinung nach eine weitere Box, in der man den Parameter zur jeweiligen PE Nr. auswählen kann. Alle Parameter stehen ja immer gleich nach der PE Nr., so dass man hier eine Abfrage aufbauen könnte für die Auswahlbox des Parameters, wenn PE Nr. = eingegebener PE Nr., dann Parameter in die Auswahlbox hinzufügen.
Eine PE Nr. ist eine Nummer für eine Probenahmestelle an der mehrere Parameter gemessen werden können und ich von der Nummernvergabe nicht ändern kann. Wäre dir daher sehr dankbar wenn du mir dort nochmal Hilfestellung geben könntest!?
Freue mich schon auf Rückantwort von dir und wünsch noch ein angenehmes Wochenende,
Ronny

Hallo Ronny,
Problem beim Sortieren:
In den Prozeduren
Private Sub OptionButton_A_Click()
und
Private Sub OptionButton_B_Click()
muss du in folgender Zeile den letzten Parameter für das Sortieren von 1 auf 2 ändern:


If Me.OptionButtonSortMesswert = True Then
Call SortBox(Me.ComboBox_A, 2, 1, 2) '#############fcs 2007-01-07
End If

Für die Auswahl des Parameters bei PE-Stromnummern hab ich eine einfache Inputbox in den Code eingebaut. Diese Prozedur müsstet du austauschen. Falls das nicht ausreichend ist, dann könnte man auch noch irgendwie eine Auwahlliste in einem kleinen zusätzichen Userform anzeigen.
Gruß
Franz


Private Sub StromNr_Suchen_Click()
Dim I As Integer, Parameter As String, Spalte As Integer
Set rngSearch = Nothing
If TextBox1.Value = "" Then
MsgBox "Sie müssen eine Strom-Nr eingeben - danke.", _
64, "   Hinweis für " & Application.UserName
With TextBox1
.SetFocus
End With
Exit Sub
End If
If IsNumeric(Me.TextBox1.Value) Then
Select Case Me.TextBox1.Value
Case 1 To 126:   Blattname = "Tmw 1-126"
Case 127 To 252: Blattname = "Tmw 127-252"
Case 253 To 378: Blattname = "Tmw 253-378"
Case 379 To 502: Blattname = "Tmw 379-502"
Case 503 To 590: Blattname = "Tmw 503-590"
Case Else
MsgBox "Ihre angegebene Strom-Nr. existiert nicht!" & vbCrLf & _
"Bitte geben Sie eine gültige StromNr. an!", _
64, "   Hinweis für " & Application.UserName
Exit Sub
End Select
Else
Select Case Left(Me.TextBox1.Value, 2)
Case "PE"
Blattname = "Tmw PE 1-9"
Parameter = InputBox("Parameter zu Strom-Nr.: " & Me.TextBox1.Value, "Soffstrom-Nr. Auswahl")
If Parameter = "" Then Exit Sub
Case Else
MsgBox "Ihre angegebene Strom-Nr. existiert nicht!" & vbCrLf & _
"Bitte geben Sie eine gültige StromNr. an!", _
64, "   Hinweis für " & Application.UserName
Exit Sub
End Select
End If
ActiveWorkbook.Worksheets(Blattname).Activate
With ActiveWorkbook.Worksheets(Blattname)
If Blattname <> "Tmw PE 1-9" Then
Set rngSearch = .Range("A2:IV2").Find(what:=Me.TextBox1.Value, _
LookIn:=xlValues, LookAt:=xlWhole)
Else
'Strom-Nr beginnt mit PE
For Spalte = 2 To 255
If .Cells(2, Spalte) = Me.TextBox1.Value And .Cells(3, Spalte) = Parameter Then
Set rngSearch = .Cells(2, Spalte)
Exit For
End If
Next
End If
If Not rngSearch Is Nothing Then
.Cells(rngSearch.Row, rngSearch.Column).Activate
'Daten zum Strom ins Formblatt einlesen
Me.tbKlartext = rngSearch.Offset(-1, 0).Value
Me.tbParameter = rngSearch.Offset(1, 0).Value
Me.tbDimension = rngSearch.Offset(2, 0).Value
Me.tbKKS = rngSearch.Offset(3, 0).Value
Me.CB_Weiter.Enabled = True
Else
MsgBox "Ihre angegebene Strom-Nr. existiert nicht!" & vbCrLf & _
"Bitte geben Sie eine gültige StromNr. an!", _
64, "   Hinweis für " & Application.UserName
End If
End With
End Sub

Gruss
Franz

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datumsauswahl

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread