Suche in einer Tabelle und Kopieren des Zelleninhalts in eine Neue Worksheet

  • Excel

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Lord C.

    Suche in einer Tabelle und Kopieren des Zelleninhalts in eine Neue Worksheet

    Guten Tag,

    meine Aufgabe ist es ein Programm zu entwickeln, das eine Spalte nach Personennamen durchsucht
    und die zugehörige Personal-ID in ein Neues Tabellenblatt einfügt.

    Die Suchfunktion soll über eine Inputbox erfolgen.

    Kann mir einer ein Paar Tips geben bezüglich Suche/Zellenkope in neue Worksheets?

    Danke im Voraus ;)

    Hallo, hat das worksheet einen eigenen namen und ist es schon erstellt?

    Wenn ja, dann musst du zuerst den Inhalt der Inputbox speichern in einer Variable, dannach die Tabelle durchsuche (ich mach das meist mit einer schleife), wenn er was gefunden hat kopieren und kopieren. WS wechseln zelle anwählen einfügen.

    Wenn es kein sheet gibt.
    sheet erstellen und aufbauen und dann wie oben.

    Wenn du es nochmal genau in code haben willst, dann gibt ein paar sachen mehr an. :D

    lg LC

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

    Guten Morgen,
    nein noch nicht ich soll ein Programm entwickeln das aus Tabelle 1 einen Namen heraus Sucht der über eine Inpubox eingegeben wird. Anschließend soll die zugehörige Personal-ID kopiert werden und aus Tabelle 2 eine weitere ID. Diese sollen darauf in Tabelle 3 eingefügt werden.

    Wenn ich das jetzt richtig verstehen hast du 3 Tabellen, Tabelle mit name +id. dort wird per inputbox der name gesucht und in der zweiten steht id(wom vorblatt) und eine andere id drinn. und dass zusammen muss in Tabelle drei.

    Dann wird das ganze entwas "lustiger" dh mehr code wie ich es oben beschrieben habe. Ich schau mal ob ich was rohes zusammen gebastel bekomme.

    Ich bin da grad am bauen. Muss aber uach noch für den Betrieb ne testumgebung aufbauen. Also kurz warten ich bin atm am debuggen.
    So das ist der Code. Du musst ihn halt anpassen.
    Spoiler anzeigen

    Quellcode

    1. Dim ipbox As String
    2. Dim id_idweiter As Integer
    3. Dim ausg As Integer
    5. Private Sub cb_usernamesuche_Click()
    6. Call inpbox
    7. Call suche("name_id")
    8. Call suche("id_id")
    9. Call ausga
    10. End Sub
    12. Sub inpbox()
    13. Dim strName As String
    14. ipbox = InputBox("Gesuchter Name eintragen") 'erstellt die Inputbox und befüllt den string
    15. If ipbox = vbNullString Then
    16. MsgBox ("Name ist nicht vorhanden")
    17. Exit Sub
    18. End If
    19. End Sub
    21. Sub suche(sheet As String)
    22. Sheets(sheet).Select
    23. Dim z As Integer
    24. Dim weiter As Boolean
    25. weiter = False
    26. z = 1
    27. 'Fragt ab ob der gesuchte wert der inputbox = einer zelle ist
    28. Do While (weiter = False)
    29. If ipbox = ActiveSheet.Range("a" & z) Then
    30. If sheet = "name_id" Then
    31. id_idweiter = ActiveSheet.Range("b" & z)
    32. weiter = True
    33. ipbox = id_idweiter
    34. Else
    35. ausg = ActiveSheet.Range("b" & z)
    36. weiter = True
    37. End If
    38. Else
    39. z = z + 1
    40. End If
    41. Loop
    42. z = 1
    43. weiter = False
    44. End Sub
    46. Sub ausga()
    47. Dim z As Integer
    48. Dim ende As Boolean
    49. ende = False
    50. z = 1
    51. Sheets("ausgabe").Select
    52. 'trägt die 2 werte in die nächsten zellen ein
    53. Do While (ende = False)
    54. If ActiveSheet.Range("A" & z) = "" Then
    55. ActiveSheet.Range("a" & z) = id_idweiter
    56. ActiveSheet.Range("b" & z) = ausg
    57. ende = True
    58. Else
    59. z = z + 1
    60. End If
    61. Loop
    62. End Sub



    ich hoffe der Code ist verständlich. Und das ich dir helfen konnte

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Lord C“ ()