Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Höhstanzahl von Ausdrücken in einer Liste 1000
#11
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
Antworten Top
#12
(22.11.2018, 10:18)uemit schrieb: 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?
Antworten Top
#13
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
Gruß Stefan
Win 10 / Office 2016
[-] Folgende(r) 1 Nutzer sagt Danke an Steffl für diesen Beitrag:
  • uemit
Antworten Top
#14
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.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#15
So viel Zeit muss aber sein:
(22.11.2018, 10:18)uemit schrieb: 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!
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste