Excel 2016 - Laufzeitfehler 32809

Hallo Robert,

danke für deine Nachricht. Weil du ein Anliegen mit Makros hast, würde ich dir empfehlen, an

MDSN-Foren zu wenden. Falls du andere Fragen hast, stehen wir gerne zur Verfügung. Einfach wieder melden.

Vielen Dank und liebe Grüße,

Kyle

Hallo Claus,

vielen Dank für die Verbesserung des Codes, aber leider löst dies noch nicht das Problem des Laufzeitfehlers 32809. Das Auskommentieren der Select-Zeile war mein erster erfolgloser Versuch. Der Laufzeitfehler tritt scheinbar auf, sobald auf irgendeinen Inhalt
zugegriffen werden soll.

Viele Grüße

Christoph

Hallo Christoph,

du läufst in einen Fehler, wenn in Lehrerliste kein "gesetzt" steht.

Probiere es mal so:

Set c = Worksheets("Lehrerliste").Range("1:1").Find("gesetzt", LookIn:=xlValues)

If Not c Is Nothing Then ges = c.Column

Mit der Find-Methode kannst du kontrollieren, ob ein Eintrag vorhanden ist.

Die Find- bzw. FindNext-Methode würde ich auch für die anderen Suchen verwenden. Das ist schneller als die Schleifen und der Code wird übersichtlicher.

Claus

Hallo Claus,

ich poste gern den kompletten Code. Es ist nicht wirklich schön programmiert, aber es funktionierte über Jahre hinweg und auch jetzt scheint darin nicht die Ursache zu liegen, da die Makros auf anderen Rechnern ja korrekt laufen. Das Problem scheint irgendwo
tiefer zu liegen.

Danke für deine Hilfe!

Private Sub CommandButton1_Click()

Dim r, ze, sp, p, gesetzt, ges, lehreranzahl, start As Integer

Rem Lehreranzahl bestimmen (lehreranzahl = tats‰chliche Lehrerzahl + 1)

start = 5

While Worksheets("Deputate").Cells(start, 1) <> Empty

start = start + 1

Wend

lehreranzahl = start - 4

Rem Bereich lˆschen

Worksheets("Lehrerliste").Range("D2:IV200").ClearContents

Rem Suche "gesetzt" in Zeile 1

ges = 0

Do

ges = ges + 1

Loop Until Worksheets("Lehrerliste").Cells(1, ges) = "gesetzt"

Rem Alle Lehrer durchgehen

For r = 2 To lehreranzahl

p = ges + 1

gesetzt = 0

Worksheets("Lehrerliste").Range("D" & r).Select

Rem Unterichtsmatrix durchsuchen

For ze = 6 To 80

For sp = 6 To 58 Step 2

If Worksheets("Unterricht").Cells(ze, sp) = Worksheets("Lehrerliste").Cells(r, 1) Then

Worksheets("Lehrerliste").Cells(r, p) = Worksheets("Unterricht").Cells(ze, 3)

Worksheets("Lehrerliste").Cells(r, p + 1) = Worksheets("Unterricht").Cells(2, sp - 1)

Worksheets("Lehrerliste").Cells(r, p + 2) = Worksheets("Unterricht").Cells(ze, sp - 1)

p = p + 3

gesetzt = gesetzt + CInt(Worksheets("Unterricht").Cells(ze, sp - 1))

End If

Next sp

Next ze

Rem GTS-Lernzeit

For ze = 7 To 250

If Worksheets("GTS").Cells(ze, 3) = Worksheets("Lehrerliste").Cells(r, 1) Then

Worksheets("Lehrerliste").Cells(r, p) = "GTS"

Worksheets("Lehrerliste").Cells(r, p + 1) = "LZ"

Worksheets("Lehrerliste").Cells(r, p + 2) = Worksheets("GTS").Cells(ze, 2)

p = p + 3

gesetzt = gesetzt + Worksheets("GTS").Cells(ze, 2)

End If

Next ze

Rem GTS-KESS

For ze = 7 To 110

If Worksheets("GTS").Cells(ze, 5) = Worksheets("Lehrerliste").Cells(r, 1) Then

Worksheets("Lehrerliste").Cells(r, p) = "GTS"

Worksheets("Lehrerliste").Cells(r, p + 1) = "KE"

Worksheets("Lehrerliste").Cells(r, p + 2) = Worksheets("GTS").Cells(ze, 4)

p = p + 3

gesetzt = gesetzt + Worksheets("GTS").Cells(ze, 4)

End If

Next ze

Rem GTS-AG

For ze = 7 To 110

If Worksheets("GTS").Cells(ze, 7) = Worksheets("Lehrerliste").Cells(r, 1) Then

Worksheets("Lehrerliste").Cells(r, p) = "GTS"

Worksheets("Lehrerliste").Cells(r, p + 1) = "AG"

Worksheets("Lehrerliste").Cells(r, p + 2) = Worksheets("GTS").Cells(ze, 6)

p = p + 3

gesetzt = gesetzt + Worksheets("GTS").Cells(ze, 6)

End If

Next ze

Rem GyGo-AG

For ze = 7 To 110

If Worksheets("GTS").Cells(ze, 10) = Worksheets("Lehrerliste").Cells(r, 1) Then

Worksheets("Lehrerliste").Cells(r, p) = "GyGo"

Worksheets("Lehrerliste").Cells(r, p + 1) = Worksheets("GTS").Cells(ze, 11)

Worksheets("Lehrerliste").Cells(r, p + 2) = Worksheets("GTS").Cells(ze, 9)

p = p + 3

gesetzt = gesetzt + Worksheets("GTS").Cells(ze, 9)

End If

Next ze

Rem hbf/is

For ze = 7 To 110

If Worksheets("GTS").Cells(ze, 14) = Worksheets("Lehrerliste").Cells(r, 1) Then

Worksheets("Lehrerliste").Cells(r, p) = "hb"

Worksheets("Lehrerliste").Cells(r, p + 1) = Worksheets("GTS").Cells(ze, 15)

Worksheets("Lehrerliste").Cells(r, p + 2) = Worksheets("GTS").Cells(ze, 13)

p = p + 3

gesetzt = gesetzt + Worksheets("GTS").Cells(ze, 13)

End If

Next ze

Worksheets("Lehrerliste").Cells(r, ges) = gesetzt

Rem N‰chster Lehrer

Next r

End Sub

Hallo Christoph,

dann musst du mal den kompletten Code posten. Aus diesem Schnipsel heraus ist das nicht zu ersehen. Eine nachgestellte Mappe mit meinem Code funktioniert hier ohne Fehler.

Claus