Listenbox, aber mit anschließendem Neuerstellen !?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Click() Dim i, Listenlänge As Long Dim Fundort As Range Dim ListBox1, ListBox2 'hab ich hinzugefügt, weil er meinte Objekt dekl. Dim Quelltabelle, Zieltabelle As Worksheet Set Quelltabelle = Workbooks("Wasserfall.xls").Worksheets("GefilterteDatei") Set Zieltabelle = Workbooks("Wasserfall.xls").Worksheets("Programmdatei") Zieltabelle.Range("A1:H100").Delete For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then 'FEHLER: Objekt erforderlich, bleibt hängen... Set Fundort = Quelltabelle.Range("C:C").Find(ListBox1.List(i), , , xlWhole) If Not Fundort Is Nothing Then Listenlänge = 1 + Zieltabelle.Cells(Rows.Count, 1).End(xlUp).Row Quelltabelle.Range(Fundort.Row & ":" & Fundort.Row).Copy Destination:=Zieltabelle.Range(Listenlänge & ":" & Listenlänge) End If End If Next For i = 0 To ListBox2.ListCount - 1 If ListBox2.Selected(i) = True Then Set Fundort = Quelltabelle.Range("D:D").Find(ListBox2.List(i), , , xlWhole) If Not Fundort Is Nothing Then Listenlänge = 1 + Zieltabelle.Cells(Rows.Count, 1).End(xlUp).Row Quelltabelle.Range(Fundort.Row & ":" & Fundort.Row).Copy Destination:=Zieltabelle.Range(Listenlänge & ":" & Listenlänge) End If End If Next 'Me.Hide ...was ist das? Hab ich ma auskommentiert, kam gleich als erster Fehler... End Sub

Hallo Pierre,
ich hab das ganze nochmals angeschaut und etwas auskommentiert. Wenn du das File öffnest sollte (eigentlich) das UserForm1 erscheinen und du kannst die Auswahl treffen gefundene Einträge werden in die zweite Tabelle kopiert. Zur Analyse des Codes: Wenn du mit Alt+F11 in die VBA Entwicklungsoberfläche gehst kannst du den Projektexplorer normalerweise irgendwo rechts auf deinem Bildschirm finden. Fenstertiltel: "Projekt-VBA Project" Hier siehst du in der Liste die verschiedenen Elemente in deinem VBA Projekt. In dieser Beispieldatei sind dies: "Diese Arbeitsmappe" / "Tabelle1" / "Tabelle2" / "Tabelle3" und "UserForm1" Das Element "Diese Arbeitsmappe" ist immer vorhanden wir brauchen es in diesem Beispiel zum starten der von uns eingefügten UserForm durch das Ereigniss Workbook_Open(). Wenn du auf "Diese Arbeitsmappe" klickst erscheint auch schon ganz automatisch der Code der zu diesem Element gehört. Du wirst sehen dass den Tabellen kein Code hinterlegt ist. Wenn du aber z.B. Tabelle1 anklickst erscheint bei dir links auf dem Bildschirm ein weisses Textfeld und darüber zwei ComboBoxen. Auf der linken kannst du auswählen für welches Element du Code in das Textfeld schreiben willst.Wenn du ein Element ausgewählt hast, kannst du mit der rechten ComBox ein Ereigniss auswählen zu welchem du Code schreiben willst. Die linke ComboBox zeigt als Standart "Allgemein" an. In dieser TextBox kannst du Deklarationen eingeben welche für das Element "Tabelle1" öffentlich sind. Ich hoffe ich habe dich nicht verwirrt mit diesen Ausführungen. Zurück zu unserem Problem: Wenn du die "UserForm1" anklickst erscheint der eigentlich von dir gesuchte Code. Der Code besteht aus zwei Teilen. Der erste wird automatisch beim start der UserForm ausgeführt. Die Prozedur heisst UserForm_Initialize() in dieser Prozedur wird die ListBox1 mit den Zahlen 1 bis 10 gefüllt. Danach wird die ListBox2 mit den Meldungen "Hallo1-Hallo10" gefüllt. Hier musst du nachhacken und die Listboxen mit deinen Daten füllen aber da ich deine Tabellen nicht kenne kann ich dir dazu nichts weiter sagen. Die zweite Prozedur welche von der UserForm aufgerufen werden kann ist CommandButton2_Click(). Hier werden beide Listboxen durchsucht und die entsprechenden Zeilen in die zweite Tabelle kopiert.
Ich hoffe ich habe mich diesmal verständlicher ausgedrückt und du kommst deinem Ziel etwas näher.
Gruss
Dani

Zitat: "Wenn du das File öffnest sollte (eigentlich) das UserForm1 erscheinen und du kannst die Auswahl treffen gefundene Einträge werden in die zweite Tabelle kopiert." ...könntest du mir da auch das File schicken?! Wäre echt noch mal nett, bitte! Das sieht so gut aus, nur weiter unten sprichst du von Hallo1 und Hallo2 ?! o_O ...per Mail hast du es mir ja auch nicht geschickt, könntest du da nochmal?
Zum Programm selbst, hab bisher alles gemacht, hab eine Mappe erstellt (erstma zur Probe) und da in Spalte J was eingetragen - das kopiert er auch im Hintergrund von deinem Userform_Initialze() ...aber weiter unten kommt der Fehler zu ListBox1 wo er sicherlich die Werte dieser neuen Spalte reinschreiben soll?! Aber da meckert er das die ListBox1 fehlt - sie ist aber da - Momentan leer:


Private Sub ListBox1_Click() End Sub

Könntest du da die Datei mit eingefügtem Code an mich schicken, ich hoffe einfach inständig das du das noch liest, bevor das Archiv geschlossen wird!
raptor008@web.de
Ich dank dir auf alle Fälle für alles bisherige. (Warst ja auch der einzige...*g*)
Grüße Pierre
Alles andere hab ich ich eingefügt - Userform1 ist drin mit Listbox1+2 und einer ComboBox und einem CommandButton. Quelltext sieht bei mir so aus:
Option Explicit


Private Sub ComboBox1_Change()
End Sub


Private Sub CommandButton2_Click()
Dim i, Listenlänge As Long
Dim Fundort As Range
Dim Quelltabelle, Zieltabelle As Worksheet
Set Quelltabelle = Workbooks("Mappe2").Worksheets("Tabelle1")
Set Zieltabelle = Workbooks("Mappe2").Worksheets("Tabelle2")
Zieltabelle.Range("A1:H100").Delete
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Set Fundort = Quelltabelle.Range("C:C").Find(ListBox1.List(i), , , xlWhole)
If Not Fundort Is Nothing Then
Listenlänge = 1 + Zieltabelle.Cells(Rows.Count, 1).End(xlUp).Row
Quelltabelle.Range(Fundort.Row & ":" & Fundort.Row).Copy Destination:=Zieltabelle.Range(Listenlänge & ":" & Listenlänge)
End If
End If
Next
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
Set Fundort = Quelltabelle.Range("D:D").Find(ListBox2.List(i), , , xlWhole)
If Not Fundort Is Nothing Then
Listenlänge = 1 + Zieltabelle.Cells(Rows.Count, 1).End(xlUp).Row
Quelltabelle.Range(Fundort.Row & ":" & Fundort.Row).Copy Destination:=Zieltabelle.Range(Listenlänge & ":" & Listenlänge)
End If
End If
Next
End Sub


Private Sub ListBox1_Click()
End Sub


Private Sub UserForm_Initialize()
Dim ws As Worksheet
Dim xErsteZeile As Long
Dim xZeile As Long
Dim ListBox1
ThisWorkbook.Worksheets("Tabelle1").Range("J:J").Copy Destination:=Tabelle3.Range("A:A")
Set ws = ThisWorkbook.Worksheets("Tabelle3")
xErsteZeile = ws.Cells(Rows.Count, 1).End(xlUp).Row
For xZeile = xErsteZeile To 1 Step -1
If Application.WorksheetFunction.CountIf(ws.Columns(1), ws.Cells(xZeile, 1).Value) > 1 Then
ws.Rows(xZeile).Delete
End If
Next
ListBox1.RowSource = "Tabelle3!A:A"
UserForm1.Show
End Sub

Beliebteste Forumthreads (12 Monate)

Listenbox, aber mit anschließendem Neuerstellen !?

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

83 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listenbox, aber mit anschließendem Neuerstellen !?

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

83 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread