Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1420to1424
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datensatz auslesen unter Nutzung einer ListBox

Datensatz auslesen unter Nutzung einer ListBox
28.04.2015 00:17:30
Dirk
Hallo zusammen,
ich erstelle zur Zeit ein Formular für die Arbeit und habe ein Problem (bzw. eine Herausforderung).
Ich habe zwei UserForms, wobei die erste (UserForm1) für das Erfassen von Datensätzen vorgesehen ist. Alle Mitarbeiter nutzen hierfür eine gemeinsame Zieltabelle, wo also die entsprechenden Daten zusammengeführt werden.
In dieser UserForm gibt es nun die Möglichkeit, einen bereits zuvor erstellten Datensatz zu suchen und einzulesen (es können mehr als zwei davon von unterschiedlichen Mitarbeitern sein).
Klicke ich also auf den entsprechenden CommandButton auf der UserForm1, so öffnet sich eine UserForm2 mit Suchfeld und einer ListBox. Die Herausforderung hierbei ist nun die, dass die Zieltabelle 27 Spalten besitzt und ich nun in Spalte 5 einen Wert suche und danach alle Zeilen (mit 27 Spalten) mit diesem Wert in der ListBox anzeigen möchte. Anschließend möchte ich eine Zeile markieren und alle Spalten dieser Zeile in UserForm1 einlesen (übergeben), so dann hier alle Felder vorbefüllt werden.
Da es mit .AddItem nicht geht (max. 10 Spalten), muss ein Array her. Hier jedoch enden meine Kenntnisse. Da meine Testversion nur 6 Spalten hatte, klappte es hier wunderbar; bei den 27 Spalten dagegen hört es leider auf.
Vielleicht kann mir hier einer weiterhelfen?
BTW: UserForm1 (also für Datenerfassung) besitzt verscheiden TextBoxen, ComboBoxen sowie Checkboxen. Letztere werden in der Tabelle wiederum als JA und NEIN erfasst.
VG Dirk

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datensatz auslesen unter Nutzung einer ListBox
28.04.2015 08:10:10
Nepumuk
Hallo,
du musst die Daten in ein Array einlesen und diese dann an die ListBox übergeben.
Gruß
Nepumuk

AW: Datensatz auslesen unter Nutzung einer ListBox
28.04.2015 09:15:57
Dirk
Sorry, meinst du, dass ich erst alle Daten der Tabelle erst einlesen muss oder kann ich hier bereits nur die zu suchenden Zeilen übergeben?
Hier übrigens mal mein Test, welcher - aufgrund weniger Spalten - perfekt mit .AddItem funktioniert:
Option Explicit
Private Sub AutoListBox()
Workbooks.Open "C:\Users\Dirk\Documents\TEST_UserForm\TEST_DATEN.xlsx"
Dim wks As Worksheet
Set wks = Worksheets("DATEN")
Dim rngSource As Object
Dim intColums As Integer
Dim rngCell As Range
Dim strFirstAddress As String
With wks.Range("D:D")
Me.ListBox1.Clear
ListBox1.Tag = 1
Set rngSource = Range("A1").CurrentRegion
Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource. _
Columns.Count)
intColums = rngSource.Columns.Count
Set rngCell = .Find(Me.TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.ListStyle = fmListStyleOption ' Auswahlfeld zu Beginn der Zeile
.ColumnCount = intColums
'.ColumnWidths = ("2,0cm;1,5cm;1,0cm;2,0cm;2,0cm;1,5cm;1,5cm;1,0cm;2,5cm")
.ColumnHeads = True
.AddItem
.List(.ListCount - 1, 0) = rngCell.Offset(0, -3).Value '1. Spalte
.List(.ListCount - 1, 1) = rngCell.Offset(0, -2).Value '2. Spalte
.List(.ListCount - 1, 2) = Format(rngCell.Offset(0, -1).Value, "hh:mm") '3.  _
Spalte
.List(.ListCount - 1, 3) = rngCell.Value 'Suchspalte | 4. Spalte
.List(.ListCount - 1, 4) = rngCell.Offset(0, 1).Value '5. Spalte
.List(.ListCount - 1, 5) = rngCell.Offset(0, 2).Value '6. Spalte
.List(.ListCount - 1, 6) = rngCell.Offset(0, 3).Value '7. Spalte
.List(.ListCount - 1, 7) = Format(rngCell.Offset(0, 4).Value, "#,##0.00 EUR") ' _
8. Spalte
.List(.ListCount - 1, 8) = rngCell.Offset(0, 5).Value '9. Spalte
End With
Set rngSource = Nothing
ListBox1.Tag = ""
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address  strFirstAddress
Else
MsgBox "ID nicht gefunden", 48
End If
End With
Application.DisplayAlerts = False
Workbooks("TEST_DATEN.xlsx").Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub


Private Sub CommandButton1_Click()
AutoListBox
End Sub


Private Sub CommandButton2_Click()
With Me.ListBox1
UserForm1.TextBox1 = .List(.ListCount - 1, 3) 'Suchspalte | 4. Spalte
UserForm1.TextBox2 = .List(.ListIndex, 4) '5. Spalte
UserForm1.ComboBox1 = .List(.ListIndex, 5) '6. Spalte
UserForm1.ComboBox2 = .List(.ListIndex, 6) '7. Spalte
UserForm1.TextBox3 = .List(.ListIndex, 7) '8. Spalte
UserForm1.TextBox4 = .List(.ListIndex, 8) '9. Spalte
End With
Unload Me
End Sub
------
Also, wie stelle ich das nun konret um, damit das auch mit 27 Spalten klappt.
VG Dirk

Anzeige
AW: Datensatz auslesen unter Nutzung einer ListBox
28.04.2015 09:20:14
Dirk
Option Explicit 
Private Sub AutoListBox()
Workbooks.Open "C:\Users\Dirk\Documents\TEST_UserForm\TEST_DATEN.xlsx"
Dim wks As Worksheet
Set wks = Worksheets("DATEN")
Dim rngSource As Object
Dim intColums As Integer
Dim rngCell As Range
Dim strFirstAddress As String
With wks.Range("D:D")
Me.ListBox1.Clear
ListBox1.Tag = 1
Set rngSource = Range("A1").CurrentRegion
Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource. _
Columns.Count)
intColums = rngSource.Columns.Count
Set rngCell = .Find(Me.TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.ListStyle = fmListStyleOption ' Auswahlfeld zu Beginn der Zeile
.ColumnCount = intColums
'.ColumnWidths = ("2,0cm;1,5cm;1,0cm;2,0cm;2,0cm;1,5cm;1,5cm;1,0cm;2,5cm")
.ColumnHeads = True
.AddItem
.List(.ListCount - 1, 0) = rngCell.Offset(0, -3).Value '1. Spalte
.List(.ListCount - 1, 1) = rngCell.Offset(0, -2).Value '2. Spalte
.List(.ListCount - 1, 2) = Format(rngCell.Offset(0, -1).Value, "hh:mm") '3. _
Spalte
.List(.ListCount - 1, 3) = rngCell.Value 'Suchspalte | 4. Spalte
.List(.ListCount - 1, 4) = rngCell.Offset(0, 1).Value '5. Spalte
.List(.ListCount - 1, 5) = rngCell.Offset(0, 2).Value '6. Spalte
.List(.ListCount - 1, 6) = rngCell.Offset(0, 3).Value '7. Spalte
.List(.ListCount - 1, 7) = Format(rngCell.Offset(0, 4).Value, "#,##0.00 EUR") '  _
8. Spalte
.List(.ListCount - 1, 8) = rngCell.Offset(0, 5).Value '9. Spalte
End With
Set rngSource = Nothing
ListBox1.Tag = ""
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address  strFirstAddress
Else
MsgBox "ID nicht gefunden", 48
End If
End With
Application.DisplayAlerts = False
Workbooks("TEST_DATEN.xlsx").Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub


Private Sub CommandButton1_Click()
AutoListBox
End Sub


Private Sub CommandButton2_Click()
With Me.ListBox1
UserForm1.TextBox1 = .List(.ListCount - 1, 3) 'Suchspalte | 4. Spalte
UserForm1.TextBox2 = .List(.ListIndex, 4) '5. Spalte
UserForm1.ComboBox1 = .List(.ListIndex, 5) '6. Spalte
UserForm1.ComboBox2 = .List(.ListIndex, 6) '7. Spalte
UserForm1.TextBox3 = .List(.ListIndex, 7) '8. Spalte
UserForm1.TextBox4 = .List(.ListIndex, 8) '9. Spalte
End With
Unload Me
End Sub

Anzeige
AW: Datensatz auslesen unter Nutzung einer ListBox
28.04.2015 09:23:14
Dirk
Sorry doppelt ... ist aber auch nicht einfach, sich hier schnell zurecht zu finden ;)

AW: Datensatz auslesen unter Nutzung einer ListBox
28.04.2015 09:42:46
Nepumuk
Hallo,
teste mal:
Private Sub AutoListBox()
    
    Dim lngColums As Long
    Dim rngCell As Range
    Dim strFirstAddress As String
    Dim astrValues() As String, ialngIndex As Long
    Dim objWorkbook As Workbook
    
    Set objWorkbook = Workbooks.Open(Filename:= _
        "C:\Users\Dirk\Documents\TEST_UserForm\TEST_DATEN.xlsx", ReadOnly:=True)
    
    lngColums = Range("A1").CurrentRegion.Columns.Count
    
    With objWorkbook.Worksheets("DATEN").Range("D:D")
        
        With ListBox1
            .Clear
            .Tag = 1
            .ListStyle = fmListStyleOption ' Auswahlfeld zu Beginn der Zeile
            .ColumnCount = lngColums
        End With
        
        Set rngCell = .Find(TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
        
        If Not rngCell Is Nothing Then
            
            strFirstAddress = rngCell.Address
            ListBox1.Tag = ""
            
            Do
                ialngIndex = ialngIndex + 1
                Redim Preserve astrValues(1 To lngColums, 1 To ialngIndex)
                
                astrValues(1, ialngIndex) = rngCell.Offset(0, -3).Value '1. Spalte
                astrValues(2, ialngIndex) = rngCell.Offset(0, -2).Value '2. Spalte
                astrValues(3, ialngIndex) = Format(rngCell.Offset(0, -1).Value, "hh:mm") '3.Spalte
                astrValues(4, ialngIndex) = rngCell.Value 'Suchspalte | 4. Spalte
                astrValues(5, ialngIndex) = rngCell.Offset(0, 1).Value '5. Spalte
                astrValues(6, ialngIndex) = rngCell.Offset(0, 2).Value '6. Spalte
                astrValues(7, ialngIndex) = rngCell.Offset(0, 3).Value '7. Spalte
                astrValues(8, ialngIndex) = Format(rngCell.Offset(0, 4).Value, "#,##0.00 EUR") '8. Spalte
                astrValues(9, ialngIndex) = rngCell.Offset(0, 5).Value '9. Spalte
                
                Set rngCell = .FindNext(rngCell)
                
            Loop Until rngCell.Address = strFirstAddress
        Else
            MsgBox "ID nicht gefunden", vbExclamation
        End If
    End With
    
    ListBox1.Column = astrValues
    
    objWorkbook.Close SaveChanges:=False
    
End Sub

Gruß
Nepumuk

Anzeige
AW: Datensatz auslesen unter Nutzung einer ListBox
28.04.2015 10:13:05
Dirk
Hallo Nepumuk,
danke für die schnelle Antwort. Klappt super; du bis mein Held. Und übergeben tue ich die Werte zurück in die Userform1 wie? :)
VG Dirk

AW: Datensatz auslesen unter Nutzung einer ListBox
28.04.2015 10:16:36
Nepumuk
Hallo,
was wie? Versteh ich nicht.
Gruß
Nepumuk

AW: Datensatz auslesen unter Nutzung einer ListBox
28.04.2015 10:21:56
Dirk
Ich meine damit den zweiten Teil. Wenn ich nun eine Zeile aus der ListBox markiere und auf Datensatz übernehmen klicke, sollen diese Daten in die UserForm übergeben werden, wo auch die Erfassung der Datensätze erfolgt:
Private Sub CommandButton2_Click()
With Me.ListBox1
UserForm1.TextBox1 = .List(.ListCount - 1, 3) 'Suchspalte | 4. Spalte
UserForm1.TextBox2 = .List(.ListIndex, 4) '5. Spalte
UserForm1.ComboBox1 = .List(.ListIndex, 5) '6. Spalte
UserForm1.ComboBox2 = .List(.ListIndex, 6) '7. Spalte
UserForm1.TextBox3 = .List(.ListIndex, 7) '8. Spalte
UserForm1.TextBox4 = .List(.ListIndex, 8) '9. Spalte
End With
Unload Me
End Sub
VG Dirk
BTW: Bei der Zeile "ListBox1.Column = astrValues" muss ich glaube ich eine weitere Abfrage hinzufügen, da er mir ansonsten mit einem Laufzeitfehler aussteigt, wenn er in der Suche meinen in der TextBox eingegebenen Wert nicht findet.

Anzeige
AW: Datensatz auslesen unter Nutzung einer ListBox
28.04.2015 10:29:18
Nepumuk
Hallo,
1. Daran hat sich doch nichts geändert. Oder was funktioniert da nicht mehr?
2. Da musst du einfach die Zeile in die Abfrage setzen:
                Set rngCell = .FindNext(rngCell)
                
            Loop Until rngCell.Address = strFirstAddress
            
            ListBox1.Column = astrValues 'neue Position ****************
            
        Else
            MsgBox "ID nicht gefunden", vbExclamation
        End If
    End With
    
    objWorkbook.Close SaveChanges:=False
    
End Sub

Gruß
Nepumuk

Anzeige
AW: Datensatz auslesen unter Nutzung einer ListBox
28.04.2015 10:51:26
Dirk
Hallo Nepumuk,
Danke nochmals . Das mit der neuen Position habe ich dann doch noch selbst hinbekommen (bin doch nicht zu unfähig ^^). Das mit der "= .List ..." habe ich noch nicht probiert; dachte eben, das es nicht klappen würde, da ich oben keine ".List ..." genutzt habe. Teste ich Heute Abend mal - jetzt erst mal zur Arbeit flitzen (Zeit verpennt bei so etwas ^^).
VG Dirk

AW: Datensatz auslesen unter Nutzung einer ListBox
28.04.2015 21:02:29
Dirk
So, nun nochmals einen grooooßen Dank an Nepumuk für die Hilfe. Es funktioniert tadellos; habe noch etwas Anpassung vorgenommen (nun mit zwei Suchkriterien) und klappt spitze. Finde Arrays jetzt doch nicht mehr so schwer (bin also doch ein helles Köpfchen)... ;)
Danke Danke Danke
VG Dirk
Anzeige

301 Forumthreads zu ähnlichen Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Anzeige
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
2
14
3
1
4
2
5
2
5
6
4
4
2
1
1
6
1
4
4
1
1
8
2