Office: Daten aus Datentabelle in UserForm anzeigen!

herkules33 · 4. Juli 2010

Hallo zusammen,

hat evtl. jemand eine Idee wie Ich Daten aus einer Datentabelle wieder zurück in meine UserForm holen kann?

Ich habe ein Formular erstellt welches zum eintragen der Kundendaten etc. verwendet wird. Nach dem eintragen aller Daten schreibe ich diese per Clickbutton "Daten in Datentabelle schreiben" in meine Mastertabelle. Der User erhält nun eine MsgBox mit der jeweiligen Zähler-Nr.

Nun möchte ich, da der User die Tabelle nicht sehen kann die Daten die dort im Hintergrund abgelgt sind über ein List oder Kombinationsfeld dem User wieder anzeigen, so das er die Möglichkeit hat diese wieder auszuwählen und weiter zu bearbeiten. Bei erneuten abspeicher muss aber auch noch geprüft werden ob der Datensatz neu ist oder schon eine Zahler-Nr. hat. Dann darf er nur speichern und keinen neuen Datensatz anlegen.

Wie könnte ich das denn Lösen

Danke und Grüße
Michael

:)

hary · 5. Juli 2010

Hallo
zum 1. Prob.
setze eine Combox. Am Ende vom Code in Tabelle schreiben.
Code:

'-------- Liste fuer ComboBox in SpalteA

Dim i As Integer
ComboBox1.Clear
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.AddItem Cells(i, 1)
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

danach koennte man mit Combobox Index wieder auslesen.
gruss hary

herkules33 · 5. Juli 2010

Danke Hary werde, ich gleich mal probieren!

Gruß Michael

herkules33 · 5. Juli 2010

Hallo Hary,

ich habe es in meinen Code am Ende des Button Daten in Tabelle schreiben eingefügt. Ich bekomme aber nach dem schreiben der Daten nur eine leere Box angezeigt.

Was muss ich ändern??

Den Code habe ich mal eingefügt. Der Ausweis der Daten soll ab Zeile 2 erfolgen. Schön wäre es auch wenn ich noch weitere Informationen wie User (Spalte B), Datum Bearb. (Spalte C) und Kundenname (Spalte E) mit auslesen könnte.

Danke & Gruß
Michael

Code:

Private Sub cmdDatenschreiben_Click()

Dim lngNeueReihe As Long
Dim zaehlerneu As Double
Dim i As Integer

If SpeichernJN = False Then
MsgBox "Unvollständige Daten", vbCritical, "ACHTUNG"
Exit Sub
End If

'Aktivieren & Neue Reihe berechnen
Worksheets("Datentabelle").Activate
lngNeueReihe = Range("E65536").End(xlUp).Row + 1
If lngNeueReihe = 2 Then
zaehlerneu = 1
Else
zaehlerneu = ActiveSheet.Cells(lngNeueReihe - 1, 1) + 1
End If
'Werte eintragen

ActiveSheet.Cells(lngNeueReihe, 1).Value = zaehlerneu
ActiveSheet.Cells(lngNeueReihe, 2).Value = Environ("userName")
ActiveSheet.Cells(lngNeueReihe, 3).Value = Date
ActiveSheet.Cells(lngNeueReihe, 4).Value = Time
ActiveSheet.Cells(lngNeueReihe, 5).Value = Me.txtName.Value
ActiveSheet.Cells(lngNeueReihe, 6).Value = Me.txtVorname.Value
ActiveSheet.Cells(lngNeueReihe, 7).Value = Me.txtKdnr.Value
ActiveSheet.Cells(lngNeueReihe, 8).Value = Me.cboBeschwf.Value
ActiveSheet.Cells(lngNeueReihe, 9).Value = Me.cboProdukt.Value
ActiveSheet.Cells(lngNeueReihe, 10).Value = Me.cboKat.Value
ActiveSheet.Cells(lngNeueReihe, 11).Value = Me.cboAnl.Value
ActiveSheet.Cells(lngNeueReihe, 12).Value = Me.txtBeschr.Value
ActiveSheet.Cells(lngNeueReihe, 13).Value = Me.txtRegsofort.Value
ActiveSheet.Cells(lngNeueReihe, 14).Value = Me.txtReg8AT.Value
ActiveSheet.Cells(lngNeueReihe, 15).Value = Me.txtErstat.Value
ActiveSheet.Cells(lngNeueReihe, 16).Value = Me.txtKulanz.Value
ActiveSheet.Cells(lngNeueReihe, 17).Value = Me.txtGesch.Value
ActiveSheet.Cells(lngNeueReihe, 24).Value = Environ("userName")
ActiveSheet.Cells(lngNeueReihe, 25).Value = Date
ActiveSheet.Cells(lngNeueReihe, 26).Value = Time

If Me.chkEndschSchrb.Value = True Then
ActiveSheet.Cells(lngNeueReihe, 18).Value = Me.txtEntschreidat.Value
Else
ActiveSheet.Cells(lngNeueReihe, 18).Value = ""
End If

'Gibt den Wert JA oder NEIN in Feld "Beschwerde berechtigt/unberechtigt?" der Datentabelle zurück!
If Me.optBeschwerdeberechtigtJa Then
ActiveSheet.Cells(lngNeueReihe, 19).Value = "Ja"
ElseIf Me.optBeschwerdeberechtigtNein Then
ActiveSheet.Cells(lngNeueReihe, 19).Value = "Nein"
Else
ActiveSheet.Cells(lngNeueReihe, 19).Value = ""

End If

'Gibt den Wert JA oder NEIN in Feld "Beschwerde abschließend geklärt?" der Datentabelle zurück!
If Me.optBeschwGeklJa Then
ActiveSheet.Cells(lngNeueReihe, 20).Value = "Ja"
ActiveSheet.Cells(lngNeueReihe, 22).Value = "abgeschlossen"
Else
ActiveSheet.Cells(lngNeueReihe, 20).Value = "Nein"
ActiveSheet.Cells(lngNeueReihe, 22).Value = "offen"
End If

'Gibt den Wert DCKB oder DL-Finance in Feld "Wenn nein, weitere Bearbeitung durch DCKB oder DL" der Datentabelle zurück!
If Me.optDCKB.Value = True Then
Me.frmWeitereBearb.Visible = True
ActiveSheet.Cells(lngNeueReihe, 21).Value = "DCKB"
ElseIf Me.optDLFinance.Value = True Then
Me.frmWeitereBearb.Visible = True
ActiveSheet.Cells(lngNeueReihe, 21).Value = "DL-Finance"
Else
Me.frmWeitereBearb.Visible = False
ActiveSheet.Cells(lngNeueReihe, 21).Value = " "
End If

MsgBox "Beschwerde wurde unter der Nummer " & zaehlerneu & " gespeichert!", , ""

AllesLeeren

ComboBox1.Clear
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.AddItem Cells(i, 1)
Next

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

hary · 5. Juli 2010

hallo
Dann musst du das Tabellenblatt benennen wo die Eintraege stehen.
zB.
Code:

ComboBox1.Clear
For i = 2 To Sheets("hier Name der tabelle").Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.AddItem Sheets("hier Name der tabelle").Cells(i, 1)
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary
dann sollte es gehen. Evtl. die 2 aendern in 1 falls keine Ueberschrift. Nur Du kennst den Aufbau der Tab.

herkules33 · 5. Juli 2010

Hallo Hary,

nach dem Daten schreiben funktioniert es! Wenn ich nun mein Formular aufrufe ist die Box wieder leer! Was muss ich tun damit mir die Datensätze auch nach dem öffen der UserForm noch zur Verfügung stehen??

Evtl. hier noch als AddItem??
Code:

Private Sub UserForm_Initialize()
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke & Gruß
Michael

hary · 5. Juli 2010

Hallo
yep
gruss hary

herkules33 · 6. Juli 2010

Hi Hary,

danke funktioniert perfekt!

Es hab ich abschließend noch eine Frage:

Die ComboBox soll zu dem Zähler noch den User und en Kundennamen ausweisen.

in etwa so: 1 - User - Kunde

So wie ich mir das eben dachte einfach mal ein & hinter die 1 zu setzten ging aber nicht!
ComboBox1.AddItem Sheets("Datentabelle").Cells(i, 1 & 2 & 4)

Wie würde ich das machen??

Danke & Gruß
Michael

hary · 6. Juli 2010

Hallo Michael
das geht so.
In der Eigenschaft der ComboBox: ColumnCount auf 3 setzen.
Dann dieser Code:
Code:

Private Sub UserForm_Initialize()
Dim i As Integer
ComboBox1.Clear
For i = 2 To Sheets("Datentabelle").Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.AddItem Sheets("Datentabelle").Cells(i, 1) 'SpalteA steht die Nummer
ComboBox1.List(ComboBox1.ListCount - 1, 1) = Cells(i, 2) 'SpalteB der User
ComboBox1.List(ComboBox1.ListCount - 1, 2) = Cells(i, 3) 'SpalteC der Kd.-Name
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary
Bsp.-Mappe im Anhang

herkules33 · 6. Juli 2010

Danke perfect!

Jetzt muss ich es nur noch hin bekommen, das wenn ich einen Wert aus der Box anclicke, dieser wieder in meinen Datenfeldern auftaucht!

Gruß
Michael

hary · 6. Juli 2010

Hallo Michael
auf mein Bsp. bezogen.
Code:

Private Sub ComboBox1_Change()
TextBox1 = Cells(ComboBox1.ListIndex + 2, 4)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

Office: Daten aus Datentabelle in UserForm anzeigen!

Daten aus Datentabelle in UserForm anzeigen!

Daten aus Datentabelle in UserForm anzeigen!

Daten aus Datentabelle in UserForm anzeigen!

Daten aus Datentabelle in UserForm anzeigen!

Daten aus Datentabelle in UserForm anzeigen! - Similar Threads - Daten Datentabelle UserForm

Daten Einlesen aus mehre Zellen in Verbindung einer Verbundene Zelle

Excel icon fehlt

Excel Zusammenführen

Arr sind Null obwohl Daten vorhanden sind

Datum markieren und Daten ausblenden

Daten-Import inkl. Primärschlüssel

Datentabelle unter Chart sortiert Daten falsch