gleiche daten in spalten suchen und in UF listbox
Betrifft: gleiche daten in spalten suchen und in UF listbox
von: Ingo
Geschrieben am: 10.08.2014 21:33:39
Liebe Profis,
ich habe mal wieder ein Problem, mit dem ich alleine nicht fertig werde.
In Tabelle "Behandlung" habe ich 14 Spalten.
Spalte A "Datum" 1.1.2014 bis 31.12.2014
Spalte B "Zeit" 8:30 9:15 10:00 bis 19:00
Spalte C "Patient"
Spalte D "Anwendung"
Spalte E "Patient1"
Spalte F "Anwendung1"
bis Spalte N "Anwendung6"
Die Namen der Patienten können nur einmal pro ZEILE eingegeben werden, alledings
mehrmals pro SPALTE. z.B
- DATUM - ZEIT - PATIENT - ANWENDUNG
- 1.1.14 - 8:30 - Schmid - Behandlung
- DATUM - ZEIT - PATIENT1 - ANWENDUNG1
- 1.1.14 - 10:00 - Schmid - Massage
- DATUM - ZEIT - PATIENT4 - ANWENDUNG4
- 2.1.14 - 13:00 - Schmid - Gymnastik
Ich wähle über Combobox3 einen Namen (Schmid) aus und dann wird das Datum, die Zeit und der Name und die Anwendung in Listbox angezeigt. Leider aber nur die Werte bis Spalte "D". Die Werte aus Spalte "E" bis"N" sollen entsprechend auch aufgelistet werden. Das klappt bei mir leider nicht.
Vielleicht hat jemand eine Idee?
Private Sub ComboBox3_Change() 'patienten
Dim k As Long
Dim n As Long
Dim Suche As String
With Me
Sheets("Behandlung").Activate
Range("c:n").Select
Selection.Find(what:=.ComboBox3.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, lookat:=xlPart, _
searchorder:=xlByRows, searchdirection:=xlNext, _
MatchCase:=False).Activate
Suche = ComboBox3.List(ComboBox3.ListIndex, 0)
With Worksheets("Behandlung")
ListBox1.Clear
For k = 2 To .Cells(Rows.Count, 1).End(xlUp).row
If Suche = .Cells(k, 3).Value Then
ListBox1.AddItem
n = ListBox1.ListCount - 1
ListBox1.List(n, 0) = .Cells(k, 1).Value 'Datum
ListBox1.List(n, 1) = Format(.Cells(k, 2).Value, "hh:mm") 'Uhrzeit
ListBox1.List(n, 2) = .Cells(k, 3).Value 'Name
ListBox1.List(n, 3) = .Cells(k, 4).Value ' Behandlung
End If
Next
End With
End With
'On Error GoTo Fehler
'Fehler:
'MsgBox "Dieser Name ist nicht in Tabelle NAMEN vorhanden, oder muss bearbeitet werden!"
End Sub
Vielen Dank im Voraus
Ingo
Betrifft: AW: gleiche daten in spalten suchen und in UF listbox
von: fcs
Geschrieben am: 11.08.2014 08:13:25
Hallo Ingo,
dann musst du zusätzlich eine Schleife für die Spalten einbauen, die in 2er-Schritten die Spalten ab Spalte C abarbeitet.
Gruß
Franz
Makto ungetestet!
Private Sub ComboBox3_Change() 'patienten
Dim k As Long
Dim n As Long
Dim Suche As String
Dim Spalte As Long
With Me
Sheets("Behandlung").Activate
Range("c:n").Select
Selection.Find(what:=.ComboBox3.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, lookat:=xlPart, _
searchorder:=xlByRows, searchdirection:=xlNext, _
MatchCase:=False).Activate
Suche = ComboBox3.List(ComboBox3.ListIndex, 0)
With Worksheets("Behandlung")
ListBox1.Clear
For k = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
For Spalte = 3 To 13 Step 2
If Suche = .Cells(k, Spalte).Value Then
ListBox1.AddItem
n = ListBox1.ListCount - 1
ListBox1.List(n, 0) = .Cells(k, 1).Value 'Datum
ListBox1.List(n, 1) = Format(.Cells(k, 2).Value, "hh:mm") 'Uhrzeit
ListBox1.List(n, 2) = .Cells(k, Spalte).Value 'Name
ListBox1.List(n, 3) = .Cells(k, Spalte + 1).Value ' Behandlung
End If
Next
Next
End With
End With
'On Error GoTo Fehler
'Fehler:
'MsgBox "Dieser Name ist nicht in Tabelle NAMEN vorhanden, oder muss bearbeitet werden!"
End Sub
  |
Betrifft: Vielen Dank!
von: Ingo
Geschrieben am: 11.08.2014 09:49:36
Hallo Franz, vielen lieben Dank für deine Hilfe. Ich versuche schon seit Tagen das Problem zu lösen, habe mir VBA Bücher gekauft, alles (un)mögliche ausprobiert und bin nicht weiter gekommen.
Ich wünsche Dir eine schöne Woche!
Ingo
Beiträge aus den Excel-Beispielen zum Thema "gleiche daten in spalten suchen und in UF listbox "
Screenshot zu MsgBox
Screenshot zu ListBox