UF mit Suche nach Adressen in 2ter Tabelle

  • Excel

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    UF mit Suche nach Adressen in 2ter Tabelle

    Hallo,

    ich habe eine Datei mit 2 Tabellen ("Factura") und ("Direcciones"), hier soll von der ersten Tabelle mittels einer UF auf das 2te Dabellenblatt zugegriffen werden.

    Die UF funktioniert schon mit allen Funktionen, wenn ich die auf der Tabelle ("Direcciones") aufrufe.

    Wie müsste ich die Unten eingefügten Codes ändern, damit die UF beim Aufrufen von Seite 1 auf Seite 2 zugreift. Da stehe ich gerade irgendwie auf der Leitung ?(

    Neue Adresse eintragen:

    Visual Basic-Quellcode

    1. Private Sub btnNuevo_Click()
    3. 'Tabellenzeile hinzufügen'
    4. With Adressen.ListObjects("tblDirecciones").ListRows.Add
    6. 'Tabellenzeile befüllen'
    7. .Range(, 1).Value = txtSaludo.Value
    8. .Range(, 2).Value = txtNombre.Value
    9. .Range(, 3).Value = txtApellidos.Value
    10. .Range(, 4).Value = txtCalle.Value
    11. .Range(, 5).Value = txtLugar.Value
    12. .Range(, 6).Value = txtTelefono.Value
    13. .Range(, 7).Value = txtCorreos.Value
    15. End With
    17. 'UserForm schließen'
    18. Unload Eingabe
    20. End Sub


    Suchefunktion:

    Visual Basic-Quellcode

    1. Private Sub cbbuscar_Click()
    3. Set finden = Columns(3).Find(What:=txtbuscar)
    4. If finden Is Nothing Then
    5. MsgBox "Es wurde Kunde mit dem Namen gefunden."
    6. Else
    8. txtSaludo = finden.Offset(0, -2)
    9. txtNombre = finden.Offset(0, -1)
    10. txtApellidos = finden.Offset(0, 0)
    11. txtCalle = finden.Offset(0, 1)
    12. txtLugar = finden.Offset(0, 2)
    13. txtTelefono = finden.Offset(0, 3)
    14. txtCorreos = finden.Offset(0, 4)
    16. End If
    18. End Sub


    Weitere Adresse eintragen:

    Visual Basic-Quellcode

    1. Private Sub cbMas_Click()
    3. 'Tabellenzeile befüllen'
    4. With Adressen.ListObjects("tblDirecciones").ListRows.Add
    6. 'Tabellenzeile befüllen'
    7. .Range(, 1).Value = txtSaludo.Value
    8. .Range(, 2).Value = txtNombre.Value
    9. .Range(, 3).Value = txtApellidos.Value
    10. .Range(, 4).Value = txtCalle.Value
    11. .Range(, 5).Value = txtLugar.Value
    12. .Range(, 6).Value = txtTelefono.Value
    13. .Range(, 7).Value = txtCorreos.Value
    14. End With
    16. 'Zellinhalt löschen'
    17. Me.txtSaludo.Text = ""
    18. Me.txtVNombre.Text = ""
    19. Me.txtApellidos.Text = ""
    20. Me.txtCalle.Text = ""
    21. Me.txtLugar.Text = ""
    22. Me.txtTelefono.Text = ""
    23. Me.txtCorreos.Text = ""
    25. End Sub


    Vielen Dank schon Mal.

    VG René

    Code-Tags eingefügt. ~Thunderbolt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Da frage ich mich gerade wirklich, was an dem Code editiert worden sein soll??? ?(

    Die von mir eingestellten hatten ja, wenn ich die Userform von Seite/Tabelle 2 aufrufe, funktioniert. Nur nicht, wenn ich die Userform von Seite/Tabelle 1 aus aufrufe. Dann öffnet zwar die Userform, nur greift die nicht auf die in Tabelle 2 ("Adressen") gespeicherten Daten zu.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Cendes“ ()

    Neu

    Cendes schrieb:

    Da frage ich mich gerade wirklich, was an dem Code editiert worden sein soll?
    Die Lesbarkeit des Codes. Anscheinend hattest du keine Code-Tags verwendet.

    Cendes schrieb:

    Dann öffnet zwar die Userform, nur greift die nicht auf die in Tabelle 2 ("Adressen") gespeicherten Daten zu.
    Du adressierst die Daten der aktiven Tabelle.
    Set finden = Columns(3).Find(What:=txtbuscar)​
    Gib statt dessen den Range an, der die Daten beinhaltet

    Visual Basic-Quellcode

    1. ​Set finden = Tabelle2.Columns(3).Find(What:=txtbuscar)
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Neu

    Super, danke... Hat funktioniert.

    Sind diese Codes so richtig?

    Userform ist auf Tabellen Blatt 1 / Daten auf Tabellenblatt 2

    'Adressen auslesen'

    Visual Basic-Quellcode

    1. lbAdressen.Tabelle2.ColumnHeads = True
    3. lbAdressen.Tabelle2.ColumnCount = 7
    5. lbAdressen.Tabelle2.RowSource = Adressen.Range("tblAdressen").Address
    7. End Sub


    Übernahme der angeklickten Adresse in Adressfelder

    Visual Basic-Quellcode

    1. Private Sub lbAdressen_Click()
    2. ' bei Klick in die Listbox werden die daten aus der Tabelle eingelesen'
    3. Dim Datensatz As Integer
    4. Datensatz = Adressen.lbAdressen.ListIndex + 2
    6. With UserForm1
    8. txtAnrede.Text = Tabelle2.Selection.Cells(Datensatz, 1)
    9. txtVorname.Text = Tabelle2.Selection.Cells(Datensatz, 2)
    10. txtNachname.Text = Tabelle2.Selection.Cells(Datensatz, 3)
    11. txtStrasse.Text = Tabelle2.Selection.Cells(Datensatz, 4)
    12. txtOrt.Text = Tabelle2.Selection.Cells(Datensatz, 5)
    14. End With
    16. End Sub


    Neuanlage von Adressen

    Visual Basic-Quellcode

    1. Private Sub btnAnlegen_Click()
    3. Neuanlage von Adressen
    5. 'Tabellenzeile hinzufügen'
    6. With Adressen.ListObjects("tblAdressen").ListRows.Add
    8. 'Tabellenzeile befüllen'
    9. Tabelle2.Range(, 1).Value = txtAnrede.Value
    10. Tabelle2.Range(, 2).Value = txtVorname.Value
    11. Tabelle2.Range(, 3).Value = txtNachname.Value
    12. Tabelle2.Range(, 4).Value = txtStrasse.Value
    13. Tabelle2.Range(, 5).Value = txtOrt.Value
    14. Tabelle2.Range(, 6).Value = txtTelefon.Value
    15. Tabelle2.Range(, 7).Value = txtEmail.Value
    17. End With
    19. 'UserForm schließen'
    20. Unload Eingabe
    22. End Sub


    Gruß René

    Dieser Beitrag wurde bereits 9 mal editiert, zuletzt von „Cendes“ ()

    Neu

    Bitte Code-Tags verwenden!
    Anleitung:     [Forum] Welche BBCodes (Tags) gibt es hier im Forum zum Einfärben von Quellcodes (Syntax-Highlighting)?

    Cendes schrieb:

    lbAdressen.Tabelle2.ColumnCount = 7

    Was ist lbAdressen für ein Objekt?

    Cendes schrieb:

    txtAnrede.Text = Tabelle2.Selection.Cells(Datensatz, 1)

    Wieso Selection? Macht keinen Sinn, es sei denn, du willst irgendwas von Hand auswählen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Neu

    Habe die Codes wie gewünscht bearbeitet. Sorry, war keine Absicht es nicht zu machen

    lbAdressen ist die ListBox, in der die Adressen, etc. stehen.

    ich möchte, wenn in der Listbox mit den Adressen eine per Maus angeklickt wird, das diese Adresse in die Bearbeitungsmaske eingefügt werden.

    Neu

    Cendes schrieb:

    lbAdressen ist die ListBox, in der die Adressen, etc. stehen.
    Aber eine ListBox hat doch keine Eigenschaft Tabelle.

    Setz doch mal einen Breakpoint und schau dir das Objekt an.
    Vermutlich läuft er nicht mal rein, weil er das gar nicht kompilieren kann.

    Und setze in der ersten Zeile ein Option Explicit.
    Dann kompilierst du das Projekt von Hand (siehe Anhang) und lässt dich überraschen, was er für Fehlermeldungen auf Lager hat.
    Bilder

    • Bild_2024-06-23_012007529.png

      16,55 kB, 740×107, 3 mal angesehen
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Neu

    Guten Morgen,
    nochmal zur besseren Erläuterung. Ich möchte von Seite/Tabellenblatt eine Userform aufrufen zwecks Eintragung von Daten in Formulare. Das klappt soweit auch schon.

    Nur habe ich mit der Listbox, in welcher ich Daten, welche auf Seite/Tabellenblatt 2 liegen, Probleme.

    Dieser Code funktioniert in der Listbox, wenn ich die Userform auf Tabellenblatt 2 (enthält die Daten) aufrufe. Ich möchte, wenn ich in der Listbox auf einzelne Einträge klicke, sollen diese in die genannten Textfelder übernommen werden.

    Visual Basic-Quellcode

    1. Private Sub lbAdressen_Click()
    2. ' bei Klick in die Listbox werden die daten aus der Tabelle eingelesen
    3. Dim Datensatz As Integer
    4. Datensatz = lbAdressen.ListIndex + 2
    5. With Eingabe
    6. txtAnrede.Text = Selection.Cells(Datensatz, 1)
    7. txtVorname.Text = Selection.Cells(Datensatz, 2)
    8. txtNachname.Text = Selection.Cells(Datensatz, 3)
    9. txtStrasse.Text = Selection.Cells(Datensatz, 4)
    10. txtOrt.Text = Selection.Cells(Datensatz, 5)
    11. End With
    13. End Sub


    Das Initialisieren der Listbox funktioniert, wenn diese von Seite 2 aufgerufen wird. Nur nicht von Seite 1 aus. Wo habe ich hier den Fehler??

    Visual Basic-Quellcode

    1. Private Sub UserForm_Initialize()
    3. lbAdressen.ColumnHeads = True
    5. lbAdressen.ColumnCount = 5
    7. lbAdressen.RowSource = Adressen.Range("tblAdressen").Address
    9. End Sub



    Das Eingeben neuer Adressen in die Tabelle funktioniert, wenn ich die Userform von Seite 2 aufrufe. Nur nicht von Seite 1 aus. Wo habe ich hier den Fehler??

    Visual Basic-Quellcode

    1. Private Sub btnAnlegen_Click()
    3. 'Tabellenzeile hinzufügen'
    4. With Adressen.ListObjects("tblAdressen").ListRows.Add
    6. 'Tabellenzeile befüllen'
    7. .Range(, 1).Value = txtAnrede.Value
    8. .Range(, 2).Value = txtVorname.Value
    9. .Range(, 3).Value = txtNachname.Value
    10. .Range(, 4).Value = txtStrasse.Value
    11. .Range(, 5).Value = txtOrt.Value
    12. .Range(, 6).Value = txtTelefon.Value
    13. .Range(, 7).Value = txtEmail.Value
    15. End With
    17. 'UserForm schließen'
    18. Unload Eingabe
    20. End Sub


    Vielleicht kann mir, bin Anfänger, hier einer helfen.

    Neu

    Cendes schrieb:

    Ich möchte, wenn ich in der Listbox auf einzelne Einträge klicke, sollen diese in die genannten Textfelder übernommen werden.
    Dann musst das entsprechende Event abonnieren.
    Oder läuft er in lbAdressen_Click rein?
    Breakpoint gesetzt?
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --