MultiPage UserForm

Private Sub UserForm_Initialize() Dim i As Integer With tbl_DATA 'Überschrift der Userform aus Zelle A1 holen Me.Caption = .Range("A1").Value For i = 1 To 10 Me.Controls("Label" & i).Caption = .Cells(2, i).Value Next i 'Überschrift der ListBox aus Tabelle holen For i = 1 To 8 Me.Controls("Label" & i + 10).Caption = .Cells(2, i).Value Next i End With 'ListBox einstellen With Me.ListBox1 .ColumnCount = 10 'Spaltenanzahl festlegen .ColumnWidths = "80;80;80;80;80;80;80;80;80;10" 'Spaltenbreiten definieren End With 'Cursor standardmäßig in die erste TextBox setzen Me.TextBox1.SetFocus End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() Dim i As Integer, wks As Worksheet Set wks = tbl_DATA With tbl_DATA MultiPage1.Pages(0).Caption = .Range("A1").Value 'Überschrift der Userform aus Zelle A1 holen Me.Caption = .Range("A1").Value For i = 1 To 10 Controls("Label" & i).Caption = .Cells(2, i).Value Next i 'Überschrift der ListBox aus Tabelle holen For i = 1 To 5 Controls("Label" & i + 10).Caption = .Cells(2, i).Value Next i End With 'ListBox einstellen With ListBox1 .ColumnCount = 6 'Spaltenanzahl festlegen .ColumnWidths = "80;80;80;80;80;10" 'Spaltenbreiten definieren End With 'zu Sicherheit Seite1 der Multipage wählen MultiPage1.Value = 0 'Cursor standardmäßig in die erste TextBox setzen TextBox1.SetFocus End Sub

Private Sub CommandButton3_Click() Dim lngZeile As Long Dim i As Integer Dim wks As Worksheet 'Zuerst prüfen, ob überhaupt ein Datensatz im Listenfeld markiert ist If ListBox3.ListIndex >= 0 Then lngZeile = ListBox3.Column(9, ListBox3.ListIndex) For i = 1 To 9 Worksheets("DATA").Cells(lngZeile, i).Value = Me.Vorname.Value Worksheets("DATA").Cells(lngZeile, i).Value = Me.FName.Value Worksheets("DATA").Cells(lngZeile, i).Value = Me.KST.Value Worksheets("DATA").Cells(lngZeile, i).Value = Me.OrgaCode.Value Worksheets("DATA").Cells(lngZeile, i).Value = Me.TeleNr.Value Worksheets("DATA").Cells(lngZeile, i).Value = Me.MailAdress.Value Worksheets("DATA").Cells(lngZeile, i).Value = Me.MailCC.Value Worksheets("DATA").Cells(lngZeile, i).Value = Me.MailBCC.Value Next i 'Zurückschreiben in die ListBox For i = 1 To 9 ListBox3.Column(i, ListBox3.ListIndex) = Controls("TextBox" & i + 1).Value Next i Else MsgBox "Bitte markiere einen Datensatz im Listenfeld!" End If End Sub

Moin!
Also von der Art her richtig. Damit weist du fest die Werte zu. Du musst nur noch bei dem cells die Spalte mit angeben. Die SChleife dort hilft nichts. Die braucht man bei dem Vorgehen nicht und bei deinem Code würde er immer alles in die selbe Zelle schreiben und dann zur nächsten gehen und wieder alles eintragen. Müsste so aussehen (nur einen Teil)

 If ListBox3.ListIndex >= 0 Then
lngZeile = ListBox3.Column(0, ListBox3.ListIndex)'dass komm in der Datei
Worksheets("DATA").Cells(lngZeile, 10).Value = Me.FName.Value
Worksheets("DATA").Cells(lngZeile, 11).Value = Me.KST.Value

Bzgl der Nummer zum Eintragen, hier mal an deinem Code erklärt.
https://www.herber.de/bbs/user/139649.xlsm
Habe es mal in die Datei eingebaut. Änderungen bzw. erklären habe ich mal kommentiert. Geht aber nur um den LB Click den Button 34 und den Übertragebutton.
Ich habe dabei die Anordnung in der Listbox geändert. In Spalte 0 kommt jetzt die Zeilennummer. Die ist aber ausgeblendet und wird in der Box nicht mit angezeigt (habe da für Spalte 0 die Breite auf 0 gesetzt und den Rest macht VBA automatisch). In Spalte 1 kommt dann die Nummer und dann der Name. Musst da nur aufpassen, wenn sich noch andere Code darauf bezieht (in der Datei ist alles daran angepasst).
Zusätzlich lasse ich noch die Listbox leeren, da sonst beim zweiten Click der Text unten wieder angefügt wird.
Die Nummer fehlt übringes noch im Code. Da hast du der Textbox auch keinen Namen gegeben. Apropo Namen. Zur Verdeutlichung habe ich mal die Array Methode gewählt. Damit kann ich auch die Schleife wieder nutzen.
Kannst es dir ja mal anschauen.
VG

Moin!
Also in der Datei gestern, hatte ich die Zeillennummer in die 1. Spalte der Listbox (mit dem INdex 0 ) gepackt. Hintergrund ist / war der, dass man dabei am Code nicht zuviel ändern musste und die 1. Stelle ist immer am besten. So kann man beliebig die LB nach rechts (also bis zu insg. 10 Spalten sonst anders) erweitern und braucht sich nicht um die Spalte mit den NUmmer kümmern (die ist immer am Anfang). Würde ich bei dir auch lassen. Ansonsten müssen man die Zuordnung für die Spalten 3 bis 9 ändern.
Zum Button CB3. Den hatte ich gestern in der Datei schon mit geändert. Habe eben nochmal geschaut. Bei mir macht er die Änderung beim Anklicken sowohl im Blatt als auch der LB. Also eigentlich sollte das passen. Wenn du das Beispiel von gestern in deine Datei eingebaut hast, dann poste die bitte nochmal. Dann kann man schauen, woran es liegt. Ansonsten mal ein Knackpunkt. HIer

Worksheets("DATA").Cells(lngZeile, i + 8).Value = mycontr(i) 'Controls("TextBox" & i).Value

Musst du bei dem Cells noch einen Versatz (hier die + 8) mitgeben. Da dort der Einfachheit halber beim cells und dem array der selbe INdex (i) genutzt wird, die aber an verschiedenen Stellen anfangen ( im Array bei 2 und auf dem Blatt bei 10), musst da noch die + 8 hinzu. Ansonsten startet der Eintrag die 8 Spalten zu früh.
Wie gesagt, teste nochmal mit der Datei von mir gestern und / oder poste mal bitte deine mit dem Fehler. Aber beachte, dass die LB bei Spalte 0 die Zeile hat, dann die Nummer kommt, Dann der Name und dann wie bei dir.
VG

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

MultiPage UserForm

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread