Hallo,
bin neu hier und hoffe das mir jemand einen Tipp geben kann, habe das Problem,
das der Code beim zweiten Durchlauf den Fehler:
Fehler: Objektvariable oder With-Blockvariable nicht festgelegt Fehlernummer: 91
Hier der Code-Block, in dem Excel austeigt:
color = 2
pos_kg_gruppen = 9
rs_kg_gruppen.MoveFirst
anzahl_kg_gruppe = rs_kg_gruppen![anzahl]
While rs_kg_gruppen.EOF = False
name_gruppe = rs_kg_gruppen![ve_1]
xls.Worksheets(1).Cells(block_hoehe - 1, pos_kg_gruppen).Value = name_gruppe
xls.Worksheets(1).Cells(block_hoehe - 1, pos_kg_gruppen).HorizontalAlignment = xlCenter
With xls.Worksheets(1)
Set x = xls.Worksheets(1).Range(xls.Worksheets(1).Cells(block_hoehe - 1, pos_kg_gruppen), xls.Worksheets(1).Cells(block_hoehe - 1, pos_kg_gruppen + anzahl_kg_gruppe - 1))
End With
x.Select
Selection.Merge
If color = 1 Then
Selection.Interior.ColorIndex = 48
color = 48
Else
Selection.Interior.ColorIndex = 1
color = 1
End If
pos_kg_gruppen = pos_kg_gruppen + rs_kg_gruppen![anzahl]
rs_kg_gruppen.MoveNext
If rs_kg_gruppen.EOF = True Then
'Schleife zu Ende, geht raus
Else
anzahl_kg_gruppe = rs_kg_gruppen![anzahl]
End If
Wend
Würde mich sehr freuen, wenn mir jemand helfen könnte.
Viele Grüße
Jörg