Listeneintrag Uhrzeit zum drucken verändern

[Arni49]

Hallo,

habe mal eine Reduzierte Version der Datei angehangen.


Beim benutzten der Userform21" Suche ", auch möglich in der Symbolleiste -  Terminplanung - Suchen, mit der Einstellung Multiselect 1 = Multi funktioniert das Drucken bei Auswahl in der Listbox.
Bei Multiselect = 2 Single funktioniert der Sprung zum Suchergebnis, bei Suche nach "Testmann" über das Frame " Suche  Patienten Terminen "  Combobox Patientensuche.

Ziel wäre das beides geht, Auswahl in Listbox drucken und oder Position in Tabelle aufzeigen.

[Arni49]

Hallo,
Datei zu groß Grrrrr. 7 MB.


Juhu Komprimiert als Zip geht

[Kuwer]

Hallo,

ich komme mit dieser Datei nicht klar. Hast Du es selbst mal mit dieser getestet?

Gruß Uwe

[Arni49]

Hallo Uwe,

na klar. Um es mit deinen Worten zu sagen " woran kann man den erkennen womit Du nicht klar kommst ?" wenn es keine weitere angaben gibt.

Gruß

[Kuwer]

Hallo,

ich sehe nur den Februar, das Blatt enthält keine Einträge bzw. ich weiß nicht, was ich im Userform machen muss, dass da etwas gefunden wird zum Ausdruck. Es sollte also schon so vorbereitet sein, dass man sich sofort dem Problem widmen kann, ohne sich erst groß einarbeiten zu müssen.

Gruß Uwe

[Arni49]

Beim benutzten der Userform21" Suche ", auch möglich in der Symbolleiste -  Terminplanung - Suchen, mit der Einstellung Multiselect 1 = Multi funktioniert das Drucken bei Auswahl in der Listbox.

Bei Multiselect = 2 Single funktioniert der Sprung zum Suchergebnis, bei Suche nach "Testmann" über das Frame " Suche  Patienten Terminen "  Combobox Patientensuche.

Ich dachte ich hätte es Beschrieben wie es geht
Im der Gruppe "Andere Tabellen" findest Du das Beschriebene "Suche" Symbol das die Userform21 öffnet, die Du natürlich auch aus dem VBA direkt starten könntest.
In dieser Userform "Suche" gibt's Du oben Rechts Testmann ein und die Liste zeigt den im Januar eingegebenen Termin an.
Die Blattregister sind abgeschaltet, können über Symbolleiste Service zugeschaltet werden
Dann erscheint auch der Januar, in der der "Testmann" als Termin steht. Kannst aber auch  im Februar irgendetwas in die weisen Felder eingeben nach dem Du gerne suchen möchtest.
Es geht dann aber um das anklicken der in der Listbox angezeigten Ergebnisse:
Genauer: Um die Einstellung in den Eigenschaften der Listbox, wie bereits beschrieben.
Multiselect 1 = Drucken i.O. (dazu dient die Tabelle Druckvorlage) aber kein Sprung in den Monat an die Stelle wo sich der Eintrag befindet.
Multiselect = 2 genau anders herum
Schön wäre es wenn es eine Einstellung, bzw. einen Code gäbe, der beides ermöglicht.
Jetzt verstanden???

Gruß Arnold

[Kuwer]

Hallo Arnold,

ersetze

Range(lstResponse.Value).Select

durch

Range(lstResponse.List(lstResponse.ListIndex)).Select

Gruß Uwe

[Arni49]

Hallo Uwe,

bin begeistert.
habe in den Eigenschaften der Listbox Multiselect noch auf 2 gestellt und alles geht wie gewünscht, Danke.

Ich habe noch ein kleines Problem:

Wenn eins der Ergebnisse in der Listbox mit Doppelklick angeklickt wird, springt das Prog. an diese Stelle innerhalb der Tabelle und soll die Zelle Leuchtgrün einfärben. Das soll auch nach beenden des Subs noch der Fall sein, aber beim anklicken einer anderen Zelle innerhalb der Tabelle wieder seinen Ursprung bekommen 


Private Sub lstResponse_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim s As String
    If lstResponse.ListIndex > -1 Then
        s = Me.lstResponse.Column(6, Me.lstResponse.ListIndex) & "." & Sheets("Januar").Range("A1")
        Sheets(Format(s, "MMMM")).Select
        If lstResponse.Tag <> "" Then
            Range(lstResponse.Tag).Interior.ColorIndex = 0
            Cells(8, Range(lstResponse.Tag).Column).Interior.ColorIndex = 0
            Cells(Range(lstResponse.Tag).Row, 1).Interior.ColorIndex = 43
            Cells(Range(lstResponse.Tag).Row, 2).Interior.ColorIndex = 19
        End If
        'Range(lstResponse.Value).Select
        Range(lstResponse.List(lstResponse.ListIndex)).Select
        ActiveCell.Interior.ColorIndex = 4
        Cells(8, ActiveCell.Column).Interior.ColorIndex = 4
        Cells(ActiveCell.Row, 1).Interior.ColorIndex = 4
        Cells(ActiveCell.Row, 2).Interior.ColorIndex = 4
        lstResponse.Tag = ActiveCell.Address
        Cancel = True
    End If
    'Form schließen:
    Unload Me
End Sub
 

Wäre Super wenn Du dazu auch noch eine Idee hättest.

[schauan]

Hallo Arni,

aber beim anklicken einer anderen Zelle innerhalb der Tabelle wieder seinen Ursprung bekommen

Das würde man aber nur hinbekommen wenn

a) der "Ursprung" generell eine bestimmte Farbe bzw. "keine Farbe" ist

oder

b) man irgendwo die ursprüngliche Farbe speichert.

Darüber hinaus muss man sich auch Gedanken machen, was passieren soll, wenn man die Datei mit eingefärbter Zelle speichert. Es hilft dann ja nicht mehr, wenn man weiter macht, die Farbe der aktiven Zelle zurückgesetzt wird und die Datei dann nicht noch mal speichert.
Die aktive Zelle zu betrachten muss übrigens auch nicht richtig sein. Wenn man das Blatt wechselt liegt die aktive Zelle auf diesem Blatt ...

Würde a) ausreichen und man z.B. die Einfärbung einer Zelle beim Verlassen selbiger ganz raus nimmt? Kann man beim Speichern generell die Farben raus nehmen? ...

[Arni49]

Hallo Schauan,

Würde a) ausreichen und man z.B. die Einfärbung einer Zelle beim Verlassen selbiger ganz raus nimmt? Kann man beim Speichern generell die Farben raus nehmen? …

 ja, alles raus nehmen ist OK, da es nur dazu dient bis zum anklicken das Suchergebnis aufzuzeigen.
Gruß Arnold