MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 13.09.2017, 16:09   #1
Sayawa
Neuer Benutzer
Neuer Benutzer
Standard Excel2007 - Listbox Spalte auslesen

Hallo Zusammen,

ich bräuchte noch einmal Hilfe.

Ich habe eine Listbox mit 4 Spalten, die ich mit beliebig vielen Werten befüllen kann. Artikelnummer, Bezeichnung, Menge und Charge.

Ich möchte wenn ich den Commandbutton1 klicke, das alle Artikelnummern aus Spalte 1 mit einem Semikolon getrennt in eine bestimmte Zelle, z. B. B10 eingetragen wird.

Ich habe es mit dem folgenden Code probiert, dann erhalte ich einen Laufzeitfehler 381: Eigenschaft Cloumn konnte nicht abgerufen werden. Index des Eigenschaftfelds ungültig
Code:

Cells(intZ, 10) = ListBox1.Column(0)
Sayawa ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 16:38   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

man kann auch so kurz Antworten.
ListBox1.List(ListBox1.ListIndex, 0)


Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster, Test, Mappe, Beispiel, Fehler, Kalender usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.
GrußformelHomepage

__________________

Signatur in jedem Beitrag
In diesem Forum, kann der Beitrag als gelöst gekennzeichnet werde (unten Links). Bitte macht dies. Damit es auch in der Forumsübersicht gekennzeichnet ist.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 18:32   #3
drambeldier
MOF Koryphäe
MOF Koryphäe
Standard

Moin,

irgendwer wird wohl die Zeilen einzeln ansprechen müssen. Und nochwer muss die Semikolöner reinpopeln, odrr?
Code:

    Dim ttt     As String
    Dim i       As Long
    
    ttt = ListBox1.Column(0, 0)
    For i = 1 To ListBox1.ListCount - 1
        ttt = ttt & ";" & ListBox1.Column(0, i)
    Next i
    Debug.Print ttt

__________________

Gruß
Ralf
drambeldier ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 18:34   #4
Sayawa
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ich habe die entsprechenden Dateien hochgeladen
Angehängte Dateien
Dateityp: xlsm Reklamation.xlsm (20,3 KB, 3x aufgerufen)
Dateityp: xlsx Daten.xlsx (7,4 KB, 3x aufgerufen)
Dateityp: xlsx Reklaliste.xlsx (7,6 KB, 1x aufgerufen)
Sayawa ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 18:36   #5
Hajo_Zi
MOF Guru
MOF Guru
Standard

ich muss ehrlich sein, für ein Problem lade ich nicht zig Dateien runter.
Ich bin dann raus.

Gruß Hajo

__________________

Signatur in jedem Beitrag
In diesem Forum, kann der Beitrag als gelöst gekennzeichnet werde (unten Links). Bitte macht dies. Damit es auch in der Forumsübersicht gekennzeichnet ist.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 19:35   #6
Sayawa
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Aus der Datei Daten wird nur etwas ausgelesen und in die Datei Reklaliste wird das Ergebnis am Ende übergeben. Das Problem liegt in der Datei Reklamation.
Sayawa ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.09.2017, 10:01   #7
Sayawa
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hat sich erledigt, ich habe den Fehler gefunden.
Ich habe in der Intialize Daten mit .list ausgelesen und nachdem ich das angepasst habe, funktionierte auch die Lösung von drambeldier.
Sayawa ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:21 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.