Daten von Tabelle in Userform laden

Tabelle · 1970-01-01T00:00:00+00:00

Hallo und eine schönen Nachmittag, ich hoffe es kann mir jemand helfen :-( Ich habe für unsere Mitarbeiter ein Formular erstellt in dem sie gewisse Daten eintragen können. Das klappt wunderbar meiner Meinung, die Daten werden Zeilenweise in das Tabellenblatt eingetragen. Habe aber jetzt noch eine zweite Userform wo diese Eingetragenen Daten wieder ausgelesen werden müssen, sprich einfach zum auslesen und korrigieren. In der Userform befinden sich 3 commandbuttons (zurück, weiter,korriegieren). Ich hoffe ihr versteht was mein Ziel ist. Mit "zurück" & "weiter" möchte ich zwischen den eingetragenen Daten switchen und jeweils bei Bedarf korrigieren. In der Anlage habe ich die Datei mal Hochgeladen Bin euch wirklich sehr Dankbar für eure Hilfe bzw. Verbesserungsvorschläge Wenn ich das hinkriege bekomm ich einen dicken fetten Mitarbeiter plus :-) Meine VBA Kenntnisse haben bis dahin gereicht, ich weiss jetzt nicht mehr weiter Lg aus Wien Fatih Die Datei https://www.herber.de/bbs/user/68865.xls wurde aus Datenschutzgründen gelöscht

Hallo Fatih,
wie willst du denn die Zeile des anzuzeigenden Datensatzes im Userform2 auswählen?
Wenn du sehr wenige Daten hast, dann kann man man einfach in Zeile 2 anfangen und mit den Pfeiltasten aufwärts/abwärts zählen. Den Zeilenwert speicherst du in einer im Userform-Modul in der 1. Zeile als Private deklarierten Variablen.
Bei vielen Datensätzen sollte die Auswahl des Datensatzes in einer Liste (Kombobox oder Listbox) möglich sein.
Für das Einlesen der Tabellendaten ist eine eigene Subroutine erforderlich, die jeweils nach Änderung der Zeilen-Nr. von den beiden Pfeilbuttons gestartet wird.
Weiterer Hinweis: Wenn man die Eingabe-Steuerelemente per Tab-Taste ansteuert, dann ist die Reihenfolge etwas wild. Ändere für Comboboxen und Textboxen die Eigenschaft "Tabindex" beginnend von oben im UF aufsteigend von 0.
Gruß
Franz

'Prozedur für Userform2:
Option Explicit
Private ZeileAktuell As Long
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub DatenEinlesen()
With Worksheets("Daten")
Me.TextBox1.Value = .Cells(ZeileAktuell, 1).Value
Me.TextBox4.Value = .Cells(ZeileAktuell, 2).Value
Me.TextBox2.Value = .Cells(ZeileAktuell, 3).Value
Me.TextBox3.Value = "?" 'Name Vermittler
Me.TextBox5.Value = .Cells(ZeileAktuell, 4).Value
Me.TextBox6.Value = .Cells(ZeileAktuell, 5).Value
Me.TextBox7.Value = .Cells(ZeileAktuell, 6).Value
Me.TextBox8.Value = .Cells(ZeileAktuell, 7).Value
Me.TextBox9.Value = .Cells(ZeileAktuell, 8).Value
Me.TextBox10.Value = .Cells(ZeileAktuell, 9).Value
End With
End Sub
Private Sub CommandButton2_Click()
'Daten korrigieren
If MsgBox("Daten ändern?", vbQuestion, "Datensatz korrigieren") = vbYes Then
With Worksheets("Daten")
.Cells(ZeileAktuell, 1).Value = Me.TextBox1.Value
.Cells(ZeileAktuell, 2).Value = Me.TextBox4.Value
.Cells(ZeileAktuell, 3).Value = Me.TextBox2.Value
'      .Cells(ZeileAktuell, ?).Value = Me.TextBox3.Value 'Name Vermittler
.Cells(ZeileAktuell, 4).Value = Me.TextBox5.Value
.Cells(ZeileAktuell, 5).Value = Me.TextBox6.Value
.Cells(ZeileAktuell, 6).Value = Me.TextBox7.Value
.Cells(ZeileAktuell, 7).Value = Me.TextBox8.Value
.Cells(ZeileAktuell, 8).Value = Me.TextBox9.Value
End With
'    MsgBox ("Die Daten wurden geändert")
End If
End Sub
Private Sub CommandButton3_Click()
'Pfeil weiter
ZeileAktuell = ZeileAktuell + 1
With Worksheets("Daten")
If ZeileAktuell = 2 Then
Call DatenEinlesen
Else
MsgBox "1. Datensatz wird angezeigt", vbQuestion + vbOKOnly, "Datensatz zurück"
End If
End Sub
Private Sub UserForm_Initialize()
Worksheets("Daten").Activate
ZeileAktuell = 2
Call DatenEinlesen
End Sub

Einen wunderschönen Guten Morgen,
vorweg vielen vielen Dank für eure Bemühungen, ich habe mir jetzt die Vorschläge angeschaut bzw. auch gleich verarbeitet. Ich muss sagen, die Umsetzung ist echt genial.
Ich habe den Code von Chris in mein Hauptdokoment kopiert und zusätzlich noch die fehlende Listbox eingefügt. Es funktioniert genau wie ich es mir vorgestellt habe.
Lieber fcs, also die Datei wird wöchentlich bearbeitet von ca. 19 Mitarbeiter. Diese werden dann mir die Datei per Mail (Lotus Notes) zusenden. Habe auch im Forum ein Beitrag gefunden wo ich Lotus Notes direkt per Klick anspreche. Funktioniert auch wunderbar.
Per commanbutton öffnet sich mein Mailprogramm mit ein neuses Memo, der Absender und der Betreff sind schon vordefiniert, aber wie bekomme ich jetzt nur die Tabelle "Daten" in das Memo rein?
Private Declare


Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nshowcmd As Long) As Long

Sub Bild8_BeiKlick()
Dim strToReceiver As String
Dim strSubject As String
Dim strBody As String
strToReceiver = "vpmonitoring@helvetia.at"
strSubject = "Helvetia Action Tracking"
Call ShellExecute(0&, "Open", "mailto:" & strToReceiver _
& "?Subject=" & strSubject, "", "", 1)
End Sub

Wenn ihr mir da auch kurz weiterhelfen könnten, dann bin ich wunschlos glücklich, aber wenn nicht is auch kein Problem.

Trotzdem, vielen vielen Dank nochmals an euch beide.

lg 

fatih

Daten von Tabelle in Userform laden

Forumthread: Daten von Tabelle in Userform laden

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial