Ich habe folgendes Problem.
Ich habe eine Mustervorlage für eine Auswertung einer Pivot-Tabelle erstellt um Datensätze aus einer Datenbank zu analysieren.
Sobald ich über Add-Ins die Daten aktualisiere und es mehr als 1000 Datensätze sind (1000 Zeilen) tritt folgender Fehler auf.
ORA - 01795 Höhstanzahl von Ausdrücken in einer Liste 1000.
Wie kann ich diesen fehler beheben.
Danke im voraus.
(22.11.2018, 09:27)uemit schrieb: [ -> ]Wie kann ich diesen fehler beheben.
Moin!
Indem Du Deinen Code analysierst?
Gruß Ralf
Ich arbeite derzeit als Werkstudent und bin kein Ass in VBA.
Mir wurde diese Vorlage gegeben und ich finde nicht das Problem im Code.
Moin,
gib mal exakt diese (deine) Worte
Zitat:ORA - 01795 Höhstanzahl von Ausdrücken in einer Liste 1000.
in die Browserleiste ein und Tante Gugl schmeißt 208 Ergebnisse aus. Vllt. ist etwas dabei, das dir weiterhilft.
Schon getan finde nicht die passende Lösung.
Werkstudent ?
Sieht nicht so aus.
Werkstudent im Bereich QM
Jetzt sitze ich hier leider am PC und muss Reklamationen analysieren was eigentlich nicht in meinen Bereich fällt.
Ja Werkstudent.
Da Dein Problem ja sehr speziell ist, solltest Du eher in einem Oracle-Forum nachfragen.
Die Anzahl der hiesigen Helfer, die dieses Add-In haben, dürfte gegen Null tendieren!
Eins musst Du Dir vorhalten lassen:
Threaderöffnung:
Ich habe eine Mustervorlage für eine Auswertung einer Pivot-Tabelle erstellt
Später:
Mir wurde diese Vorlage gegeben
Finde den Fehler! :21:
Gruß Ralf
Ich solle wohl eine Schleife um diesen Code setzen sodass bei über 1000 es bei 1001 weitergeht bis 2000 und bis kein eintrag mehr stattfindet
Weiß aber nicht wie ich das machen soll.
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 = "'"
Sheets("Übersicht").Select
For i = 2 To nCount
strArtList = strArtList + Cells(i, 6).Text + "', '"
Next i
strArtList = strArtList + " ' "
' Belegungseinheiten Berlin
Sheets("BE-BER").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Cells(1, 1).Select
ArtikelDaten "100", strArtList
' Belegungseinheiten Kablow
Sheets("BE-KAB").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Cells(1, 1).Select
ArtikelDaten "200", strArtList
' Belegungseinheiten Heppenheim
Sheets("BE-HEP").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Cells(1, 1).Select
ArtikelDaten "300", strArtList
Application.ScreenUpdating = True
End Sub
Verwende Code Tags !
Hast du die Forenregeln überhaupt gelesen ? Werk bedeutet doch 'Arbeit', 'Mühe' ?