Daten aus Tabelle in neue Excel-Datei kopieren

  • Excel

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ThorStein83.

    Daten aus Tabelle in neue Excel-Datei kopieren

    Hallo zusammen,
    wie bei den letzten Malen trage ich immer noch Daten mittels Userform in eine Tabelle ein und kann die Daten in der Userform mittels Listbox wieder aufrufen.
    Jetzt suche ich eine Möglichkeit mittels Button "Daten übertragen" Teile der Daten (Nachname, Vorname) aus der Tabelle in eine zweite Excel-Datei quasi als Indexverzeichnis zu kopieren.

    Die Daten sollen dabei in die nächste freie Zeile kopiert werden. Hier muss also eine Überprüfung stattfinden, ob die Zeile leer ist oder nicht.

    Quellcode

    1. Option Explicit
    2. Option Compare Text
    4. ' neuer Eintrag Schaltfläche
    5. Private Sub Neuer_Eintrag_Click()
    6. Dim LZeile As Long
    8. LZeile = 2
    9. Do While Trim(CStr(Tabelle1.Cells(LZeile, 1).Value)) <> ""
    10. LZeile = LZeile + 1 'Nächste Zeile bearbeiten
    11. Loop
    14. Tabelle1.Cells(LZeile, 1) = CStr("Neuer Eintrag Zeile " & LZeile)
    16. ListBox1.AddItem CStr("Neuer Eintrag Zeile " & LZeile)
    18. ListBox1.ListIndex = ListBox1.ListCount - 1
    20. End Sub
    22. 'Speichern Schaltfläche
    23. Private Sub Speichern_Click()
    24. Dim LZeile As Long
    26. If ListBox1.ListIndex = -1 Then Exit Sub
    28. If Trim(CStr(Anrede.Text)) = "" Then
    29. MsgBox "Sie müssen mindestens einen Namen eingeben!", vbCritical + vbOKOnly, "FEHLER!"
    30. Exit Sub
    31. End If
    32. LZeile = 2 '
    33. Do While Trim(CStr(Tabelle1.Cells(LZeile, 1).Value)) <> ""
    35. If ListBox1.Text = Trim(CStr(Tabelle1.Cells(LZeile, 1).Value)) Then
    37. Tabelle1.Cells(LZeile, 1).Value = Trim(CStr(Nachname.Text))
    38. Tabelle1.Cells(LZeile, 2).Value = Vorname.Text
    39. Tabelle1.Cells(LZeile, 3).Value = Anrede.Text
    41. If ListBox1.Text <> Trim(CStr(Anrede.Text)) Then
    42. Call UserForm_Initialize
    43. If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
    44. End If
    46. Exit Do
    48. End If
    50. LZeile = LZeile + 1
    51. Loop
    53. End Sub
    55. Private Sub beenden_Click()
    56. Teilnehmer.Hide
    57. End Sub
    59. Private Sub ListBox1_Click()
    60. Dim LZeile As Long
    62. Anrede = ""
    63. Vorname = ""
    64. Nachname = ""
    65. If ListBox1.ListIndex >= 0 Then
    67. LZeile = 2
    68. Do While Trim(CStr(Tabelle1.Cells(LZeile, 1).Value)) <> ""
    70. If ListBox1.Text = Trim(CStr(Tabelle1.Cells(LZeile, 1).Value)) Then
    72. Anrede = Trim(CStr(Tabelle1.Cells(LZeile, 3).Value))
    73. Vorname = Tabelle1.Cells(LZeile, 2).Value
    74. Nachname = Tabelle1.Cells(LZeile, 1).Value
    76. Exit Do
    78. End If
    80. LZeile = LZeile + 1
    82. Loop
    84. End If
    86. End Sub
    87. Private Sub UserForm_Initialize()
    88. Dim LZeile As Long
    90. Anrede = ""
    91. Vorname = ""
    92. Nachname = ""
    94. ListBox1.Clear
    96. LZeile = 2
    97. Do While Trim(CStr(Tabelle1.Cells(LZeile, 1).Value)) <> ""
    100. ListBox1.AddItem Trim(CStr(Tabelle1.Cells(LZeile, 1).Value))
    102. LZeile = LZeile + 1
    104. Loop
    106. End Sub


    Für Tipps wäre ich, wie immer sehr dankbar!

    Viele Grüße
    Dateien

    • Bsp-Datei.zip

      (25,98 kB, 118 mal heruntergeladen, zuletzt: )

    @ThorStein83: mach mal bei Deinen code-Tags aus dem [code] ein [code=vb], damit es entsprechend auch farblich leichter wird, denselbigen zu durchschauen.

    btt: Nochmal, um alle Klarheiten zu beseitigen:
    • Userform = Daten kontrolliert hinzufügen, bearbeiten, ...
    • Excel-Tabelle = Datenbankersatz
    • Wunschfunktion = ?
    Da werd ich aus Deinem Post nicht schlau. Sollen die Daten aus der Userform in ne neue Datei, oder aus der Excel-Tabelle? Wenn ja, welche Daten sollen woanders hinkopiert werden, und welches Format sollen die Daten haben? Will heißen: Zeig mal bitte Ist-Wert und Soll-Wert, z.B. 2 Screenshots: Nr. 1 von den Quelldaten, Nr. 2 von den erstmal selbst konstruierten Zieldaten
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hallo VaporiZed,
    werde das beim nächsten Post berücksichtigen!!!

    Genau, Userform zur Eingabe, bzw. bearbeiten der Daten und die Excel-Datei in der sich die Userform befindet als Datenbankersatz.
    Jetzt würde ich einen Teil der Daten aus dem Datenbankersatz gerne per VBA-Befehl in eine zweite, neue Datei kopieren. Da in diese zweite Datei allerdings auch Daten von Kollegen per Hand eingetragen werden, soll vor dem Kopieren überprüft werden, ob die Zeilen in Datei 2 leer sind und dann in die nächste freie Zeile kopiert werden.

    Im Anhang die beiden Screenshots.
    Bilder

    • Quelldatei mit UserForm.png

      27,66 kB, 718×567, 158 mal angesehen

    • Zieldatei.png

      24,57 kB, 718×567, 127 mal angesehen

    Ja gut, dann werf ich einfach mal in den virtuellen Raum: Mappe 2 öffnen, von oben nach unten codetechnisch schauen, wo in Spalte 1 die erste freie Zelle ist und dann von Mappe 1 nach 2 alles rüberkopieren. Simples Codebeispiel (muss natürlch mit Mappennamen und usw. an die eigene Situaltion angepasst werden; das Makro geht hier davon aus, dass die Zielmappe im selben Verzeichnis wie die Quellmappe mit Userform ist), daher m.E. selbsterklärend (Achtung, es wird hier einfachheithalber erstmal nur der Inhalt der ersten Mappe1Spalte rüberkopiert!):

    BasicExcelExporter

    Visual Basic-Quellcode

    1. Private Sub BasicExcelExport()
    3. Workbooks.Open "Mappe2.xlsx"
    5. Dim i As Integer
    6. i = 1
    8. Do Until Workbooks(2).Sheets(1).Cells(i, 1).Value = ""
    9. i = i + 1
    10. Loop
    12. Dim j As Integer
    13. j = 1
    15. Do Until Workbooks(1).Sheets(1).Cells(j, 1).Value = ""
    16. Workbooks(2).Sheets(1).Cells(i + j - 1, 1).Value = Workbooks(1).Sheets(1).Cells(j, 1).Value
    17. j = j + 1
    18. Loop
    20. End Sub


    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende