Höhstanzahl von Ausdrücken in einer Liste 1000

[uemit]

Am besten sind die die am hinter ihren PCs sitzen und sinnloses Zeug schreiben.
Wenn du mir nicht helfen kannst dann kommentier auch nicht.
Schon schlimm wenn man sonst nichts im Leben zu tun hat.
Lesen wäre vorteilhaft.
Ich wurde im QUALITÄTSMANAGEMENT eingestellt und sitze grade am PC und programmiere ?
Verstehst du den Zusammenhang ?
Ich bin in diesem Thema nicht vertraut also bringt Mühe und Arbeit wenig

[LCohen]

Wenn du mir nicht helfen kannst dann kommentier auch nicht.
Schon schlimm wenn man sonst nichts im Leben zu tun hat.

Interessante Deutung. Sobald man Dir aber als Sonst-Nichtstuer hilft, ist es genehm?

[Steffl]

Auch Hallo,

Du suchst nach der letzten befüllten Zelle in der Spalte A, setzt aber deinen String aus der Spalte F zusammen. Es fehlt das Makro ArtikelDaten. Eventuell könntest Du deinen Code etwas kürzen.

Code:

Public Sub BelegungseinheitenErmitteln()
    Dim strArtList As String
    Dim nCount As Integer
    Dim i As Integer
    
    Application.ScreenUpdating = False
        
    ' Anzahl der Zellen ermitteln
    nCount = Worksheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Row
    
    ' Stringliste für die Arbeitsplansuche erstellen
    strArtList = "'"
    
    With Worksheets("Übersicht")
    For i = 2 To nCount
        strArtList = strArtList + .Cells(i, 6).Text + "', '"
    Next i
    End With
    strArtList = strArtList + " ' "
    
    ' Belegungseinheiten Berlin
    Worksheets("BE-BER").Cells.ClearContents
    ArtikelDaten "100", strArtList
    
    ' Belegungseinheiten Kablow
    Worksheets("BE-KAB").Cells.ClearContents
    ArtikelDaten "200", strArtList
    
    ' Belegungseinheiten Heppenheim
    Worksheets("BE-HEP").Cells.ClearContents
    ArtikelDaten "300", strArtList
    
    Application.ScreenUpdating = True

End Sub

[schauan]

Hallöchen,

manuell:
Nimm einen begrenzten Datenbestand, hole die Daten, speicher das Ergebnis irgendwo und hole den nächsten Brocken.

Codeanalyse:
' Anzahl der Zellen ermitteln
nCount = Worksheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Row

Hier wird also  die Anzahl Zeilen ermittelt. Wird wohl mehr als 1000 sein.

Wenn nicht, macht Deine Oracle-Abfrage wahrscheinlich was damit, dass es mehr wird. Könnte z.B. ein geschachtletes Select sein, wo die Artikel nochmal aufgespalten werden.

Wenn doch, musst Du Deine Schleifen darauf aufbauend ändern, eventuell die Daten n ein Array packen.

Dim strArtList, k%
ReDim strArtlist(0)

For i = 2 To nCount
     if i-2=1000 then k=k+1:Redim Preserve strArtlist(k)
     strArtList(k) = strArtList(k) + .Cells(i, 6).Text + "', '"
Next i

Dann gehst Du das Array durch., im Prinzip ...

For i=0 to uBound(strArtList)
'Daten holen mit strArtList(i)
Next

Übrigens arbeite ich auch in der Qualitätssicherung und hab mir über die Zeit alles was vba betrifft selber beigebracht … Hab aber aus Interesse auch selber damit angefangen.

[RPP63]

So viel Zeit muss aber sein:

Ich bin in diesem Thema nicht vertraut also bringt Mühe und Arbeit wenig

Ist ja wirklich nicht tragisch, schließlich sitzen viele vorm PC und wissen nicht was sie tun (sollen).
Du darfst Dir aber gerne vorhalten lassen, warum Du einen Auftrag annimmst, wenn Du null Ahnung von der Materie hast!

Ich verstehe Dich dennoch!
Du bist Werksstudent und möchtest glänzen.
Du erhoffst Dir eine gute Beurteilung und eine entsprechend gute Ausgangsposition, solltest Du Dich in Bälde bei der Firma bewerben.
Trotzdem solltest Du folgendes verinnerlichen:
Selbst wenn Du hier eine perfekte Lösung finden solltest, knallt es Dir brutal vor die Füße, wenn Du "Deine" Lösungsfindung erklären sollst.
Es hat noch keinem aufstrebenden "für Nüsse arbeitenden" geschadet, fehlende Skills zu kommunizieren.
Ganz im Gegenteil …

Denk mal drüber nach!