ich habe ein paar Module geschrieben, die alleine auch funktionieren, wenn sie aber in einem Modul über "call" hintereinander abgerufen werden, dann funktioniert es nicht. Explizit betrifft es die Module 2 und 3, die abgerufen werden sollen. Die Bedingungen von 2 sollen bei 3 behalten werden.
Insgesamt sieht das übergeordnete Modul so aus:
Sub Button2_Click()
Call ZeilenhoeheAnpassen
Call nichtbenötigteTKausblendenaufBriefNiveauG
Call TeilkompetenzenAusblenden
Call leereBriefeAusblenden
Call BriefenachNiveauG
End Sub
Nr2: Es sollen Zeilen ausgeblendet werden, wenn eine Bedingung in Spalte C nicht erfüllt ist:
Sub nichtbenötigteTKausblendenaufBriefNiveauG()
Dim xRg As Range
ActiveSheet.Unprotect "Schiller"
Application.ScreenUpdating = False
For Each xRg In Range("C14:C23")
If xRg.Value = "---" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
ActiveSheet.Protect "Schiller"
End Sub
und zweitens sollen dann noch Spalten ausgeblendet werden, wenn eine Bedingung in einer anderen Spalte nicht erfüllt werden.
Sub TeilkompetenzenAusblenden()
Dim xRg As Range
ActiveSheet.Unprotect "Schiller"
Application.ScreenUpdating = False
For Each xRg In Range("A14:A23")
If xRg.Value Like "*Teilkompetenz*" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
ActiveSheet.Protect "Schiller"
End Sub
Über eine Hilfe freue ich mich :)Herzlichen Dank