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.
Für Tipps wäre ich, wie immer sehr dankbar!
Viele Grüße
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
- Option Explicit
- Option Compare Text
- ' neuer Eintrag Schaltfläche
- Private Sub Neuer_Eintrag_Click()
- Dim LZeile As Long
- LZeile = 2
- Do While Trim(CStr(Tabelle1.Cells(LZeile, 1).Value)) <> ""
- LZeile = LZeile + 1 'Nächste Zeile bearbeiten
- Loop
- Tabelle1.Cells(LZeile, 1) = CStr("Neuer Eintrag Zeile " & LZeile)
- ListBox1.AddItem CStr("Neuer Eintrag Zeile " & LZeile)
- ListBox1.ListIndex = ListBox1.ListCount - 1
- End Sub
- 'Speichern Schaltfläche
- Private Sub Speichern_Click()
- Dim LZeile As Long
- If ListBox1.ListIndex = -1 Then Exit Sub
- If Trim(CStr(Anrede.Text)) = "" Then
- MsgBox "Sie müssen mindestens einen Namen eingeben!", vbCritical + vbOKOnly, "FEHLER!"
- Exit Sub
- End If
- LZeile = 2 '
- Do While Trim(CStr(Tabelle1.Cells(LZeile, 1).Value)) <> ""
- If ListBox1.Text = Trim(CStr(Tabelle1.Cells(LZeile, 1).Value)) Then
- Tabelle1.Cells(LZeile, 1).Value = Trim(CStr(Nachname.Text))
- Tabelle1.Cells(LZeile, 2).Value = Vorname.Text
- Tabelle1.Cells(LZeile, 3).Value = Anrede.Text
- If ListBox1.Text <> Trim(CStr(Anrede.Text)) Then
- Call UserForm_Initialize
- If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
- End If
- Exit Do
- End If
- LZeile = LZeile + 1
- Loop
- End Sub
- Private Sub beenden_Click()
- Teilnehmer.Hide
- End Sub
- Private Sub ListBox1_Click()
- Dim LZeile As Long
- Anrede = ""
- Vorname = ""
- Nachname = ""
- If ListBox1.ListIndex >= 0 Then
- LZeile = 2
- Do While Trim(CStr(Tabelle1.Cells(LZeile, 1).Value)) <> ""
- If ListBox1.Text = Trim(CStr(Tabelle1.Cells(LZeile, 1).Value)) Then
- Anrede = Trim(CStr(Tabelle1.Cells(LZeile, 3).Value))
- Vorname = Tabelle1.Cells(LZeile, 2).Value
- Nachname = Tabelle1.Cells(LZeile, 1).Value
- Exit Do
- End If
- LZeile = LZeile + 1
- Loop
- End If
- End Sub
- Private Sub UserForm_Initialize()
- Dim LZeile As Long
- Anrede = ""
- Vorname = ""
- Nachname = ""
- ListBox1.Clear
- LZeile = 2
- Do While Trim(CStr(Tabelle1.Cells(LZeile, 1).Value)) <> ""
- ListBox1.AddItem Trim(CStr(Tabelle1.Cells(LZeile, 1).Value))
- LZeile = LZeile + 1
- Loop
- End Sub
Für Tipps wäre ich, wie immer sehr dankbar!
Viele Grüße