Einfacher verknüpfen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Basti
ich hab dir mal was zusammengebastelt ich hoffe ich habe dich richtig verstanden:

Option Explicit
Public Zielindex As String
Dim Problemindex As String
Public Massnahmenindex As String
Private Sub ComboBox1_Change()
Dim Problemanzahl As Long
Dim Zeiger As Long
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
Worksheets(ComboBox1.ListIndex + 1).Activate
Problemanzahl = Cells(Rows.Count, 1).End(xlUp).Row 'Spalte A länge ermitteln
For Zeiger = 5 To Problemanzahl
    ListBox1.AddItem Cells(Zeiger, 2).Value
Next
End Sub
Private Sub ListBox1_Click()
Dim Zielanzahl, Zeiger As Long
ListBox2.Clear
ListBox3.Clear
Zeiger = 5
Problemindex = Cells(ListBox1.ListIndex + 5, 1)
Zielanzahl = Cells(Rows.Count, 3).End(xlUp).Row 'Spalte C länge ermitteln
For Zeiger = 5 To Zielanzahl
    If InStr(Cells(Zeiger, 3), Problemindex) = 1 Then
        ListBox2.AddItem Cells(Zeiger, 4).Value
    End If
Next
End Sub
Private Sub ListBox2_Click()
Dim Massnahmenanzahl, Zeiger As Long
ListBox3.Clear
Zeiger = 5
Zielindex = Problemindex & ListBox2.ListIndex + 1
Massnahmenanzahl = Cells(Rows.Count, 5).End(xlUp).Row 'Spalte E länge ermitteln
For Zeiger = 5 To Massnahmenanzahl
    If InStr(Cells(Zeiger, 5), Zielindex) = 1 Then
        ListBox3.AddItem Cells(Zeiger, 6).Value
    End If
Next
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In Worksheets
    ComboBox1.AddItem ws.Name
Next
ComboBox1.ListIndex = 0
ComboBox1.TabStop = False
End Sub
Ich habe deine Indexierung etwas abgeändert damit die Spalte Massnahmen eindeutig ansprechbar ist! Bei ergänzung der Exceltabelle musst du diese immer neu sortieren lassen bevor du den Code laufen lässt!
Gruss Dani

Hallo Dani,
Also ich habe bewußt zwei AEDLs (Aktivitäten und existentielle Erfahrungen des Lebens)
ausgewählt:
Bei "sich bewegen" gibt es KEIN Hauptproblem, d.h. wir wählen die AEDL "sich bewegen"
zu dieser AEDL gibt es viele Probleme die der Patient haben kann, z.B. die Gefahr ein Druckgeschwür (Dekubitus) zu entwickeln.
zu diesem Problem werden Ziele ausgewählt (z.B. intakte Haut)
und zu diesem Ziel Massnahmen (z.B. Patient auf Wechseldruckmatratze lagern usw)
damit kommen wir mit deiner vorgeschlagenen Variante gut hin (es muss natürlich nachher auch über den Eintragen-Button in möglichst der Form wie sie jetzt schon im Programm läuft eingetragen werden)
Bei der AEDL "sich pflegen und kleiden" gibt es ein Hauptproblem: warum?
Das Hauptproblem erörtert warum der Patient das Problem hat. Das ist dann sinnvoll wenn sich aus einer Ursache(=Hauptproblem) viele Folgeprobleme ergeben, um die Ursache nicht jedesmal bei allen zwanzig Folgeproblemen aufzuführen
also Hauptproblem ---- Patient ist aufgrund von Beatmung und Sedierung nicht in der Lage die Körperpflege durchzuführen:
daraus folgen dann viel Probleme (Übernahme der Ganzkörperpflege, Mundpflege, Nasenpflege, Tubuspflege usw.)
ein anderes Hauptproblem wäre das der Patient aufgrund einer Immobilität Hilfestellung bei der Körperpflege benötigt, also eine Einschränkung desselben Gesichtspunktes mit völlig anderen Problemvorstellungen
Mit anderen Worten die Probleme sind vom Hauptproblem abhängig.
Ich hoffe ich habe dich jetzt nicht zu sehr zugeschüttet, um es anschaulicher zu haben klick dich in dem Programm einfach mal durch diese beiden AEDLs durch und lass sie in die Tabelle eintragen
Gruß Basti

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einfacher verknüpfen

16 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)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread