habe mal eine Excel angehangen in der ich eine Userform Suchen eingebaut habe.
Momentan ist es so das die Suche anhand der vergebenen ID(Auswahl Frame) die Einträge in die TextBoxen, aus der mit der ID übereinstimmenden Zeile die füllt.
Wie bekomme ich es hin das ich nach mehreren Kriterien die TextBoxen mit den dazu gehörigen Zeile füllen kann.
Code:
Option Explicit
Private Sub cboAuswahl_DropButtonClick()
Dim Listindex As String
On Error Resume Next
If cboAuswahl.Listindex <> 0 Then
Else
TboID = ""
TboDatum = ""
TboSchicht = ""
TboEingetragenvon = ""
TboBereich = ""
TboMaschine = ""
TboProblem = ""
TboStandby = ""
TboLösung = ""
TboVerantwortlich = ""
TboErledigtam = ""
TboNotizen = ""
End If
End Sub
Private Sub Bildspeicher_Click()
Dim sPath As String
sPath = ActiveWorkbook.Path & "\" & TboID
If TboID.Text > "" Then
Shell "Explorer.exe " & sPath, vbNormalFocus
' Dir(sPath & "\" & TboID.Text, vbDirectory) > "" Then
Else
MsgBox "ID für Bildordner fehlt"
End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Nicht schließen über den (x) Button, Abbrechen benutzen"
Cancel = True
End If
End Sub
Private Sub InitializeCboVerantwortlich()
Dim i As Long
Me.cboVerantwortlich.Clear
With Sheets("Stammdaten")
For i = 3 To Cells(Rows.Count, 7).End(xlUp).Row
If Not .Cells(i, 7) = Empty Then Me.cboVerantwortlich.AddItem .Cells(i, 7)
Next
End With
End Sub
Private Sub cmdÜbernehmen_Click()
Dim XZeile As Long
If TboID = "" Then Exit Sub
If TboID.Listindex = 0 Then
XZeile = [A10000].End(xlUp).Row + 1
Else
XZeile = TboID.Listindex + 1
End If
On Error Resume Next
Cells(XZeile, 1) = TboID
Cells(XZeile, 2) = TboDatum
Cells(XZeile, 3) = TboSchicht
Cells(XZeile, 4) = TboEingetragenvon
Cells(XZeile, 5) = TboBereich
Cells(XZeile, 6) = TboMaschine
Cells(XZeile, 7) = TboProblem
Cells(XZeile, 8) = cboInArbeit
Cells(XZeile, 9) = TboLösung
Cells(XZeile, 10) = TboVerantwortlich
Cells(XZeile, 11) = TboErledigtam
Cells(XZeile, 12) = TboNotizen
Dim aRow, i As Long
Application.EnableEvents = False
cboAuswahl.Clear
aRow = [A10000].End(xlUp).Row
cboAuswahl.AddItem ""
For i = 2 To aRow
cboAuswahl.AddItem Cells(i, 1)
Next i
cboAuswahl.Listindex = 0
Application.EnableEvents = True
End Sub
ich hab mir Dein Beispiel nicht angeschaut. und beziehe mich erst mal auf Deine Frage.
Zitat:Wie bekomme ich es hin das ich nach mehreren Kriterien die TextBoxen mit den dazu gehörigen Zeile füllen kann.
Das setzt voraus, dass Du erst mal eine oder mehrere Bedingungen setzt. Eine Bedingung ist eigentlich was mit If oder Select Case ..
Im Moment setzt Du für das Füllen der TextBoxen gar keine, Du füllst sie entsprechend der Auswahl in der cboAuswahl.
Anders betrachtet ist das Deine eine Bedingung Da die ID sicher eindeutig ist, würde eine zweite Bedingung hier auch keinen Sinn machen.
Wenn Du nun andere Bedingungen hinzufügen willst, könntest Du eine zweite Box nehmen und dort alle Inhalte eintragen, die sich aus der Auswahl der ersten Box ergeben. Du müsstest nur überlegen, ob das ein eindeutiges Ergebnis liefert, sonst brauchst Du noch weitere … Na ja, und Du müsstest die ID-Box sicher leer lassen, damit diese Auswahl nicht die anderen übersteuert.
Du könntest z.B. die erste Box mit allen Deinen Daten füllen. Intelligenterweise so, dass bei mehrfachem Auftreten eines Datums dieses nur einmal in der Box auftaucht. Du wählst ein Datum aus. Dann gehst Du in einer Schleife über alle Zeilen und schaust z.B., welche Namen am gewählten Datum vorkommen und füllst damit die zweite Box. Wenn die Namen eindeutig sind, merkst Du dir noch die Zeilennummer für das Füllen der TextBoxen. Meist reicht das aber nicht, Du brauchst noch die Vornamen. Schlimmstenfalls reicht das auch nicht, da wäre eine Personalnummer nicht schlecht.
Du könntest auch eine cbo mit einer Listbox kombinieren und Dir nach Auswahl des Datums eine Listbox mit allen Treffern zum Datum füllen und dort dann die Zeile für die TextBoxen wählen...
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
24.02.2019, 17:15 (Dieser Beitrag wurde zuletzt bearbeitet: 24.02.2019, 17:23 von WillWissen.
Bearbeitungsgrund: Codetags
)
Hallo,
habe jetzt mal etwas zusammengestellt(gebastelt) das den Tabelleninhalt in einer Listbox zum auswählen auflistet und dann durch anklicken die ID in die cbo Auswahl einträgt und mit diesen Daten dann die TextBoxen füllt.
Else
TboID = ""
TboDatum = ""
TboSchicht = ""
TboEingetragenvon = ""
TboBereich = ""
TboMaschine = ""
TboProblem = ""
TboStandby = ""
TboL?sung = ""
TboVerantwortlich = ""
TboErledigtam = ""
TboNotizen = ""
End If
End Sub
Private Sub Bildspeicher_Click()
Dim sPath As String
sPath = ActiveWorkbook.Path & "\" & TboID
If TboID.Text > "" Then
If Dir(sPath, vbDirectory) > "" Then
Shell "Explorer.exe " & sPath, vbNormalFocus
Else
MsgBox "ID f?r Bildordner fehlt"
End If
End If
End Sub
Private Sub lboID_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ID As Integer
With lboID
ID = .Listindex
cboAuswahl.Text = .List(ID, 0)
End With
End Sub
Private Sub TboDatum_Change()
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Nicht schlie?en ?ber den (x) Button, Abbrechen benutzen"
Cancel = True
End If
End Sub
Private Sub InitializeCboVerantwortlich()
Dim i As Long
Me.cboVerantwortlich.Clear
With Sheets("Stammdaten")
For i = 3 To Cells(Rows.Count, 7).End(xlUp).Row
If Not .Cells(i, 7) = Empty Then Me.cboVerantwortlich.AddItem .Cells(i, 7)
Next
End With
End Sub
Private Sub cmd?bernehmen_Click()
Dim XZeile As Long
If TboID = "" Then Exit Sub
If TboID.Listindex = 0 Then
XZeile = [A10000].End(xlUp).Row + 1
Else
XZeile = TboID.Listindex + 1
End If
On Error Resume Next
Cells(XZeile, 1) = TboID
Cells(XZeile, 2) = TboDatum
Cells(XZeile, 3) = TboSchicht
Cells(XZeile, 4) = TboEingetragenvon
Cells(XZeile, 5) = TboBereich
Cells(XZeile, 6) = TboMaschine
Cells(XZeile, 7) = TboProblem
Cells(XZeile, 8) = cboInArbeit
Cells(XZeile, 9) = TboL?sung
Cells(XZeile, 10) = TboVerantwortlich
Cells(XZeile, 11) = TboErledigtam
Cells(XZeile, 12) = TboNotizen
TboID = ""
TboDatum = ""
TboSchicht = ""
TboEingetragenvon = ""
TboBereich = ""
TboMaschine = ""
TboProblem = ""
TboStandby = ""
TboL?sung = ""
TboVerantwortlich = ""
TboErledigtam = ""
TboNotizen = ""
Userform_Initialize
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub Userform_Initialize()
lblID = ActiveSheet.[A3].Value
lblDatum = ActiveSheet.[B3].Value
LblSchicht = ActiveSheet.[C3].Value
LblEingetragenvon = ActiveSheet.[D3].Value
Lblbereich = ActiveSheet.[E3].Value
lblMaschine = ActiveSheet.[F3].Value
LblProblem = ActiveSheet.[g3].Value
'LblStandby = ActiveSheet.[h3].Value
lblL?sung = ActiveSheet.[i3].Value
lblVerantwortlich = ActiveSheet.[j3].Value
LblErledigtam = ActiveSheet.[k3].Value
LblNotizen = ActiveSheet.[l3].Value
Dim j As Integer
Dim lzeile As String
lzeile = Sheets("Elektronisches Schichtbuch").UsedRange.Rows.Count
For j = 1 To 11
Next
With Me.lboID
.ColumnCount = 12
.ColumnHeads = True
.RowSource = "a4:k" & lzeile
.ColumnWidths = "1cm;2,5cm;1,9cm;5cm;1,9cm;11cm;0cm;0cm;0cm;5cm;2cm"
End With
Dim aRow, i As Long
Application.EnableEvents = False
cboAuswahl.Clear
aRow = [A10000].End(xlUp).Row
cboAuswahl.AddItem ""
For i = 2 To aRow
cboAuswahl.AddItem Cells(i, 1)
Next i
cboAuswahl.Listindex = 0
Application.EnableEvents = True
End Sub
Weitere Suchkriterien muss ich nochmal schauen ob ich das hinbekomme.
Gruß Arnold
habe da mal eine Frage zur Netzwerkfreigabe.
ich gebe eine Tabelle im Netz frei und zum Eintragen in diese benutze ich eine Userform (Schichtbuch). Bei Mehrfachbearbeitung kommt dann beim abspeichern immer das Fenster welcher Eintrag verwendet werden soll.
An dieser Stelle kann dann ein Datenverlust entstehen. Meine Lösung war jetzt beim starten der Userform in die nächste freie Zeile schon eine ID in Zelle A zu setzen und die Datei zwischen zu speichern, damit für jeden weiteren Anwender die Zeile als belegt erscheint und somit für sich die nächste leere Zeile verwendet wird um die nächst höhere ID einzutragen.Leider funktioniert das auch nicht zuverlässig, getestet bei 2 Anwendern, was wird dann erst bei 10 oder mehr.
Hat von euch jemand einen Lösungsansatz füu die Netzfreigabe für mehrere Benutzer? Wäre um jedem Tipp dankbar.
Da die ID sicher eindeutig ist, würde eine zweite Bedingung hier auch keinen Sinn machen.