Office: Gespeicherte Daten per Abfrage in Userform ausgeben

Prodegie · 23. Dezember 2016

Hallo,

ich habe ein Programm geschrieben welches die Daten die man in eine Userform einträgt in einem Tabellenblatt speichert inklusive einer random generierten ID die mit gespeichert wird.

Nun möchte ich die in der Tabelle gespeicherten Daten bei Eingabe der ID in einer neuen UserForm in Labels wieder ausgeben werden

Hoffe es war halbwegs verständlich und das ihr mir weiterhelfen könnt*Smilie

Gruß Prodegie

:)

aloys78 · 25. Dezember 2016

Hallo Prodegie,

Nun möchte ich die in der Tabelle gespeicherten Daten bei Eingabe der ID in einer neuen UserForm in Labels wieder ausgeben werden
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was Du damit, meinst bedarf m.E. einer näheren Erläuterung.

ich habe ein Programm geschrieben welches die Daten die man in eine Userform einträgt in einem Tabellenblatt speichert ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eigentlich dürfte es dann doch für Dich kein Problem darstellen, auch den umgekehrten Weg zu programmieren.

Ansonsten wäre es hilfreich, eine Datei mit einer Beispiel-Tabelle sowie der Userform inklusive der bisherigen Lösung zur Verfügung stellen.

Gruß
Aloys

Prodegie · 26. Dezember 2016

Hallo Aloys,

ich weiß nur nicht wie ich die beiden IDs miteinander vergleichen kann sodass er wenn er die gleiche findet dann aus der zeile die anderen Daten in die Labels einträgt.

Ps: Beispiel Datei hängt an.

Test.xlsm

Gruß Prodegie

aloys78 · 26. Dezember 2016

Hallo Prodegie,

ich weiß nur nicht wie ich die beiden IDs miteinander vergleichen kann
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anbei ein Lösungsvorschlag für den Button in Userform2; es wird dabei unterstellt, dass die ID, wie in der Datei zu sehen, als Text gespeichert ist.
Code:

Option Explicit

Private Sub Cb_Suchen_Click()
Dim LRow As Long ' letzte Zeile Datenbank
Dim r As Long ' Zeilen# in Datenbank
Dim erg As Variant ' Ergebnis Match

If Tb_ID3 = "" Then
MsgBox "Bitte ID-Nr eingeben !", vbExclamation
Exit Sub
End If

With Worksheets("Datenbank")

' Suchen ID in Datenbank
LRow = .Cells(Rows.Count, "A").End(xlUp).Row
erg = Application.Match(Tb_ID3, .Range("A4:A" & LRow), 0)
If Not IsNumeric(erg) Then
MsgBox "ID in Datenbank nicht gefunden !", vbExclamation
Exit Sub
Else
r = erg + 3 ' Zeilen# für die gesuchte ID
End If

' ID gefunden, Übertragung Datenbankfelder nach Userform
MsgBox "ID gefunden" ' nur für Test

End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

Crazy Tom · 26. Dezember 2016

Hallo

das habe ich so getestet

Code:

Private Sub Cb_Suchen_Click()
Dim c As Range
With Sheets("Datenbank")
Set c = .Columns(1).Find(Tb_ID3.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
If .Cells(c.Row, 2).Value = "Herr" Then
B_Herr = True
Else
B_Frau = True
End If
L_Vorname2.Caption = .Cells(c.Row, 3).Value
L_Nachname2.Caption = .Cells(c.Row, 4).Value
L_Straße2.Caption = .Cells(c.Row, 5).Value
L_Hausnummer2.Caption = .Cells(c.Row, 6).Value
L_PLZ2.Caption = .Cells(c.Row, 7).Value
L_Ort2.Caption = .Cells(c.Row, 8).Value
L_Telefonnummer2.Caption = .Cells(c.Row, 9).Value
Else
MsgBox "Id nicht gefunden"
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MfG Tom

Prodegie · 26. Dezember 2016

Hallo Tom und Aloys,

habe mir beides angeguckt und es funktioniert beides perfekt!

Vielen Dank für Eure Hilfe*Smilie

Gruß Prodegie

Office: Gespeicherte Daten per Abfrage in Userform ausgeben

Gespeicherte Daten per Abfrage in Userform ausgeben

Gespeicherte Daten per Abfrage in Userform ausgeben

Gespeicherte Daten per Abfrage in Userform ausgeben

Gespeicherte Daten per Abfrage in Userform ausgeben - Similar Threads - Gespeicherte Daten Abfrage

Word Dokumenteneigenschaft "Titel" wird nicht gespeichert und nicht im Fliesstext dargestellt.

Gespeicherte Dokumente sind nicht sichtbar

Aus Word gesendete E-Mails werden nicht bei Outlook im Ordner "Gesendete Nachrichten" gespeichert

Aus Word gesendete E-Mails werden nicht bei Outlook im Ordner "Gesendete Nachrichten" gespeichert

Matrixfomel - kein Zugriff auf gespeicherte Daten

Gespeicherte Excel Datei - Daten gelöscht

nicht gespeicherte Daten