Tabelle durchsuchen und Ergebnisse in Textfelder ausgeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,

so, habe fertich...

Voraussetzung:
- im Verzeichnis, in dem du gleich meine Excel-Datei speicherst, muss ein Unterverzeichnis mit dem Namen "Bilder" enthalten sein
- in diesem Unterverzeichnis müssen alle Personen-Bilddateien im JPG-Format gespeichert sein
- die Namen der Bilddateien müssen so lauten: "Name Vorname.jpg", z Bps "Meier Franz.jpg"
(wenn alles in einem anderen Verzeichnis gespeichert; wenn andere Dateinamen, dann...musst du das im Code entsprechend anpassen)

Damit du es am Anfang etwas leichter hast, bekommst du gleich von mir eine ZIP-Datei zum Downloaden.

In der ZIP-Datei sind...
- meine Excel-Datei
- das Unterzeichnis BILDER
- und in BILDER einige jpg-Dateien mit den jeweils richtigen Dateienamen
...enthalten

Anpassungen durch mich an deinem Userform
- dein Userform(ular) ist für meinen 27"-Monitor zu groß
- deswegen musste ich das Userform in Höhe/Breite verkleinern
- genau so musste ich in Page2 sowohl Höhe/Breite und Abstände zueinander von allen CommandButton verkleinern
- die Größe/Breite/Position der Überschriften-Label und anderen Button, die immer da sein müssen, habe ich - nicht - verändert
- es kann also sein, dass du Höhe/Breite von Userform + Commandbutton und deren Abstände wieder vergrößern musst (wenn du das denn willst)

So, Erklärung:

Wichtig:
Zuerst den Inhalt aus ZIP-Datei in ein beliebiges Verzeichnis entpacken - NICHT die Excel-Datei direkt aus der ZIP-Datei starten!!

1. Wenn du es bis hierhin klaglos geschafft hast :-), dann starte mal die - entpackte! - Exceldatei

2. Du siehst deine dir fast bekannte Tabelle aus deiner Bsp-Datei.
- Der 1. Name in rot = weil du in der Zeile zwar mehrere "x" eingetragen hast, aber den Namen hattest du vergessen
- Wenn du schon möchtest, dass bei mehreren gefundenen Personen in der Multipage Scroll-Leisten gezeigt werden sollen, dann sei nicht so faul und trag auch mal - viele - Beispiel-Namen mit genügend "x" oder 1,2,3 ein...hab diesmal ich für dich gemacht

3. Klick auf den Button, damit das Userform(ular) angezeigt wird

4. Das Userform wird in der von mir zuvor erwähnten "kleineren Version" angezeigt

5. Klick auf den Button "Personalübersicht"

6. Wie du es kennst, werden nur die Button angezeigt, für die es in der Tabelle auch "Funktionsgruppen" gibt
Hier gibt es die erste, große "Besonderheit" im VBA-Code:
- es ...muss nicht... für jeden einzelnen Button extra Code geschrieben werden (der sich eigtl immer wieder wiederholen würde)
- es genügt ein einziger Codeblock...FÜR JEDEN ANGEZEIGTEN BUTTON
- möglich ist das durch Klassenprogrammierung - siehe das Klick-Ereignis clButton_Click im Klassenmodul namens "Klasse1_Buttons"
- egal, welchen Button du anklickst, es wird immer das Sub sbStart gestartet
...nur der Text des Buttons (Name der Funktionsgruppe) macht den Unterschied

7. Klick mal auf den Button "Vorsitzende"
- In der Multipage wird Seite 3 angezeigt
- Es werden für 2 Personen sowohl Bild- als auch Label-Feld angezeigt (mit Foto-Datei, wenn vorhanden)
- Eine Scroll-Leiste - wird nicht - angezeigt, weil ja nicht erforderlich

DAS ist zumindest DAS, was du siehst

Vor Anzeige der Bild-/Label-Felder in Multipage/Seite 3...
...wird in Tabelle erst mal die gewählte Funktionsgruppe gesucht
...aus gefundener Funktionsgruppe werden nun alle Namen + "x" oder 1,2,3-Einträge in einer Array-Variablen gesammelt, die in Spalte von Funktionsgruppe enthalten sind
...es wird in Excel-Datei ein weiteres Tabellenblatt hinzugefügt
...im neuen Blatt werden alle gefundenen Personen und ihre "x"- oder 1,2,3-Einträge eingetragen
...nun werden die Datenzeilen im neuen Blatt entweder alphabetisch ("x") oder numerisch (1,2,3) sortiert

Jetzt kommt die nächste "Besonderheit" im VBA-Code:
In Multipage/Seite 3 sind gar keine Bild-/Label-Felder für Foto-Dateien/deren Namen enthalten
Die notwendigen Bild-/Label-Felder werden erst im VBA-Code mit richtiger Größe (von dir vorgegeben) erzeugt, an die richtige Position verschoben und erhalten ebenso per VBA-Code die richtige Foto-Datei (wenn vorhanden) und eben den zugehörigen Namen im Label-Feld

...erst jetzt werden im Userform/Multipage/Seite3 die notwendigen Bild-/Label-Felder erzeugt
...diese erhalten anhand der Einträge im neuen Blatt ihre Foto-Dateien und Namen

8. Klick nun auf den "Zurück"-Button oberhalb der 2 Bild-Felder...du "landest" wieder in der Funktionsgruppen-Übersicht

9. Klick jetzt mal auf den Button "Schriftführer" oder "Aktive"
- für "Schriftführer"hab ich in deiner Tabelle 30 weitere Personen hinzugefügt; alle Personen haben ein "x" in der Spalte
- für "Aktive" gibt es nur 11 mal "x" in der Spalte
- bei beiden Funktionsgruppen werden in Multipage/Seite 3 mehr Bild-/Label-Felder angezeigt, als im Userform gleichzeitig darstellbar (zumindest auf meinem Monitor)
- und nur jetzt wird auch eine vertikale Scroll-Leiste angezeigt, mit der du auch hoch/runterscrollen kannst, um alle Personen sehen zu können

10. Das zuvor immer wieder neu hinzugefügte Tabellenblatt wird nach jedem Durchgang wieder gelöscht

Soooooo, gaaaanz viel erklärt..puhh!! :-)....hier nun meine ZIP-Datei:
https://www.herber.de/bbs/user/164589.zip

Beachte unbedingt die vielen Kommentare im VBA-Code!

Konnte ich helfen?

Ciao
Thorsten

.Add2 Key:=Range("B1:B" & Cells(Rows.Count, 1).End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .Add2 Key:=Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

.Add Key:=Range("B1:B" & Cells(Rows.Count, 1).End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .Add Key:=Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

Private Sub SpeicherEinsatz_Click()
'Datum überprüfen
If IsDate(neuEinsatz) = False Then
MsgBox "Das ist kein valables Datum"
Exit Sub
ElseIf (neuEinsatz) > CDate(Now) Then
MsgBox "Eintrag darf nicht in der Zukunft liegen"
Exit Sub
Cancel = True
End If
'Daten in Tabelle schreiben
Set finden = Columns(2).Find(what:=Userform.Namensfeld)
finden.Offset(0, 4) = CDate(neuEinsatz)
Me.neuEinsatz.Text = ""
'Seite wechseln
MultiPage1.Value = 0
Call ButtonFarbe
Call Backup_erstellen
End Sub

Hi Jörg,

"...Hat nur fünf Stunden gedauert bis es lief..." = tja, selbst schuld! :-PPP...den konnt ich mir nicht verkneifen, und ich schreib auch nicht sorry!

Weil...
a) "...Ich habe bei mir 4 Seiten in der Multipage..."
Wieso zeigst du dann eine Bsp-Datei mit nur 3 Multipage-Seiten und nicht mit 4????

b) "...Auf Seite 2 habe ich vier einfache Textfelder..."
Hier selbe Frage wie bei a), nur eben auf die fehlenden Textboxen in der Bsp-Datei bezogen

c) "...Von diesen Knöpfen gibt es also vier stück..."
Auch diese 4 Knö..ich vermute, du meinst CommandButton, oder?...fehlen in der Bsp-Datei

So, für die nächsten Probleme gilt das :-PPP nicht.

1) "...ganz am Anfang in Seite 4 der Multipage einen Rahmen eingezogen..."
Ärger dich nich! Das passiert...und...wird irgdwann wieder passieren :-)
Du würdest nich glauben, wie oft mir soooo was schon passiert ist^^ :-) Kommt halt immer wieder mal vor...

2) "...ist es doch sicherlich möglich einen Dateipfad aus der Tabelle zu nehmen..."
Ja, das ist durchaus möglich. Und eigentlich sieht dein geänderter Code dazu grundsätzlich auch gut aus.
Einzige Rate-Idee, die ich hab (ich kann ja nur raten, weil ich nix mehr sehe), ist:

Wenn, wie du schreibst, in Zelle B2 wirklich nur...
X:\Bilder\Menschen\Mitglieder
...steht, dann änder den Eintrag in B2 mal um in...
X:\Bilder\Menschen\Mitglieder\

...denn dein Codeteil .Range("B2") & Range("A" & lloRow).Value macht aus X:\Bilder\Menschen\Mitglieder UND Z BSP Meier Franz = X:\Bilder\Menschen\MitgliederMeier Franz, aber es MUSS ja X:\Bilder\Menschen\Mitglieder\Meier Franz rauskommen

3) ...Fehler beim Kompilieren (Variable nicht definiert). Markiert wird mir die Zeile Cancel=True...
DAS hat nix mit Dim clButton... zu tun.
Dieser Kompilierfehler liegt an der anderen Codezeile = Option Explicit

Grund:
die Angabe Option Explicit sorgt dafür, DASS JEDE verwendete Variable vor ihrem ersten Einsatz mit Dim ... As deklariert (dem Code bekannt gemacht) werden muss.
In deinem gezeigten Code gibt es kein

Dim Cancel As...

Ja, ich weiß, du könntest die Option Ex... Zeile jetzt einfach weglassen - würd ich aber null, rein gar nicht empfehlen!

Wir Menschen - alle!^^ - neigen zu TIPPfehlern!
Wenn du also Option Ex... weglässt, und nur 1x nicht Cancel, sondern Kancel schreibst, dann kann es wieder Stunden dauern, bis du genau diesen einen Tippfehler gefunden hast.
So macht es durchaus Sinn, in - jedem Makro! (beginnt mit ...Sub, endet mit End Sub) - JEDE Variable vor ihrem Einsatz zu deklarieren.

3a) Und ich versteh auch nicht, wieso du Cancel = True verwendest

Dein gezeigter Code...

...

Exit Sub '-- beendet das Makro...

Cancel = True '-- ...und diese Zeile WIRD NIE ausgeführt = du brauchst diese Zeile also eh nich ;-)

...

4) "...Ich hab auch schon überlegt ob das neu hinzugekommene Tabellenblatt nun eine eindeutigere Schreibweise verlangt..."
Versteh ich nich...
Du schreibst doch, wenn du die beiden Codezeilen aktivierst, die zwar deine 4 Button "lahmlegen", dass dann aber mein Code tadellos funktioniert.
Da kann ich dir gerade nich folgen, wieso du nun Set finden = ... einbauen willst.

5) Und bitte wo kommt jetzt noch Worksheets("Daten") her???
Das fehlt auch in der mir bekannten Bsp-Datei :-/

So, wenn meine Raterei nicht all deine bis-hier-Probleme erfolgreich beantwortet hat, dann....
...zeig per Upload eine Bsp-Datei, die auch wirklich alles enthält, was im Original enthalten ist!! (natürlich nur, was den Aufbau/das Design betrifft; weiterhin keine Echt-Daten)

Ciao
Thorsten

P.S. Bier ohne alles ist mir meist zu herb = mit Cola gemischt ist's etwas süßer + leckerer ;-)

Beliebteste Forumthreads (12 Monate)

Tabelle durchsuchen und Ergebnisse in Textfelder ausgeben

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread