AW: Modul und Klassenmodul
09.02.2019 22:14:50
Frank
Hallo Nepumuk,
leider erhalte ich einen Fehler an deinem zweiten Modul beim öffnen einer bestimmten UserForm.
Daher ist der Fehler auch nicht im Modul zu suchen, sondern im Code der bestimmten Userform.
Ich konnte inzwischen bereits ausfindig machen, welcher Teil des UserCodes eine Störung an Modul2 verursacht...
Code:
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim AnzahlZeilen As Long
Dim m As Integer
m = Month(Now)
With Sheets("Tabelle1").Cells(1, 1).CurrentRegion
With .Columns(.Columns.Count + 1)
If m = 1 Then
.FormulaR1C1 = "=IF(AND(OR(RC4=0,RC4=Year(Today())),RC5>0),1,""x"")"
ElseIf m = 2 Then
.FormulaR1C1 = "=IF(AND(OR(RC4=0,RC4=Year(Today())),RC6>0),1,""x"")"
ElseIf m = 3 Then
.FormulaR1C1 = "=IF(AND(OR(RC4=0,RC4=Year(Today())),RC7>0),1,""x"")"
ElseIf m = 4 Then
.FormulaR1C1 = "=IF(AND(OR(RC4=0,RC4=Year(Today())),RC8>0),1,""x"")"
ElseIf m = 5 Then
.FormulaR1C1 = "=IF(AND(OR(RC4=0,RC4=Year(Today())),RC9>0),1,""x"")"
ElseIf m = 6 Then
.FormulaR1C1 = "=IF(AND(OR(RC4=0,RC4=Year(Today())),RC10>0),1,""x"")"
ElseIf m = 7 Then
.FormulaR1C1 = "=IF(AND(OR(RC4=0,RC4=Year(Today())),RC11>0),1,""x"")"
ElseIf m = 8 Then
.FormulaR1C1 = "=IF(AND(OR(RC4=0,RC4=Year(Today())),RC12>0),1,""x"")"
ElseIf m = 9 Then
.FormulaR1C1 = "=IF(AND(OR(RC4=0,RC4=Year(Today())),RC13>0),1,""x"")"
ElseIf m = 10 Then
.FormulaR1C1 = "=IF(AND(OR(RC4=0,RC4=Year(Today())),RC14>0),1,""x"")"
ElseIf m = 11 Then
.FormulaR1C1 = "=IF(AND(OR(RC4=0,RC4=Year(Today())),RC15>0),1,""x"")"
ElseIf m = 12 Then
.FormulaR1C1 = "=IF(AND(OR(RC4=0,RC4=Year(Today())),RC16>0),1,""x"")"
End If
.EntireRow.Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlYes
AnzahlZeilen = WorksheetFunction.Sum(.Cells) + 1
.ClearContents
End With
End With
With ListBox1
.ColumnCount = 4
.ColumnWidths = "1,5cm;5cm;5cm;1,5cm"
.ColumnHeads = True
.RowSource = "Tabelle1!A2:P" & AnzahlZeilen
End With
End Sub
Wird dieser Teil in der UserForm ausgeblendet, läuft auch dein Modul mit dem Aufruf
Private Sub UserForm_Layout()
Call MoveForm(Me) 'Modul2
End Sub
Aber was stört?
Gruß Frank.