Daten aus einer Tabelle in ein Listenfeld übernehmen

Hallo zusammen,
mal sehen ob ich mein Problem genau genug schildern kann.
Ich habe eine Tabelle, in der in Zeile 2(ab B2) das Datum immer in 5er Blöcken nach rechts läuft, also 5 Arbeitstage, dann die nächsten usw.
Wenn es einfacher wird kann ich mir auch ein Feld mit der Kalenderwoche vorstellen.
In Zelle A4 (ist mit den Zellen A5-10 verbunden) steht die MaschineA.
In den Zellen B4 bis F10 sind Auftragsnummern eingetragen.
In Zelle A11 (ist mit den Zellen A11-16 verbunden) steht die MaschineB.
In den Zellen B11 bis F16 sind Auftragsnummern eingetragen.
... usw.
Das Große Ziel ist nun, dass ich in einer ersten Textbox eine Maschine eintragen möchte, und in einer zweiten Textbox entweder das erste Datum der Woche (Montag) oder die KW.
Dann sollen in einem Listenfeld in der obersten Zeile die 5 Wochentage stehen links in der ersten Spalte die Maschine und unter dem jeweiligen Datum die Auftragsnummern der 5 Wochentage, die zu der eingetragenen Maschine passen.
Ich hoffe das war verständlich.
Wie gesagt ich bin neu in VBA. Die Userform habe ich so weit hinbekommen. Ich habe drei Schaltflächen eingebaut. Abbrechen, Liste Clear, Abfrage starten. Abbrechen und Clear funktioniert (welch Wunder) Bei Starten bin ich aber nicht weiter gekommen. Ich bekomme eine liste mit allen Maschinen und Aufträgen, also nicht selektiert nach Maschine, und wie ich das mit dem Datum hinbekommen soll... ?
Sehr wahrscheinlich ist das für die Profis easy, aber ich steh von nem großen Berg.
Danke Euch
LG Dieter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dieter
nach Rechts kannst du beliebig erweitern, max. stehen dir 4096 Spalten zur Verfügung! Nach unten geht auch beliebig weit. Dann sollest du den Code bitte wie unten aendern, und hinter der letzten Maschine in Spalte A das Wort "Ende" schreiben! Das benötige ich als Endzelle für den Suchlauf nach LastZell! Die Const Anweisung "lzMasch" MUSS dann gelöscht werden, aber danach kannst du FREI waehlen wieviele Datensaetze du nach unten anhaengst.
Das nenne ich sich der Tabelle selbst anpassendes Universal Makro! Wir können in Kontakt bleiben, denke aber bitte daran das dieser Thread automatisch aus dem Server rausfaellt und ins Archiv geht. Dort kannst du nix mehr schreiben, ich nicht mehr antworten. In dem Fall neuen Tread aufmachen, am besten mit Hinweis auf diesen Thread oder an Piet.
Ich bin aber nicht jeden Tag im Forum, habe manchmal Probleme mit Internet Ausfall durch Strassenbauarbeiten. (Standort Ankara, überrascht?) Mal 1-2 Tage kein Netz ist hier normal!
mfg Piet

Private Sub Starten_Click()
Dim LIdx As Integer, z As Integer    'ListIndex, AC.Row
Dim KW As String, CKW As Integer     'KW String + Zahl
Dim i As Integer, j As Integer       'Zaehler allgemein
Dim AC As Range, rFind As Range      'For AC, Suche KW
Dim MRange As String, MSA As String  'Maschinen Auswahl
Dim lzMasch As Integer  '** neu: LastZelle Maschine
On Error GoTo Fehler
With Worksheets("Tabelle1")
ListBox1.Clear
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "0;60;80;80;80;80;80"
lzMasch = .Cells(Rows.Count, 1).End(xlUp).Row - 1

Beliebteste Forumthreads (12 Monate)

Daten aus einer Tabelle in ein Listenfeld übernehmen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus einer Tabelle in ein Listenfeld übernehmen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread