ich hatte mit folgendem Makro Hilfe in diesem Forum bekommen:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intA As Long, intS As Long, wksS As Worksheet, wksT As Worksheet
Dim zz As Long, rngH As Range
If Not Intersect(Target, Range("A2:A21")) Is Nothing Then
intA = Cells(22, 7)
intA = Application.CountA(Range("A2:A21"))
intS = Application.Min(intA, 14)
Set wksS = Sheets("Torschützen Spielt.")
Set wksT = Sheets("Spieltagausw.")
With Sheets("Torschützen gesamt")
If intA = 0 Then
.Rows("1:23").Hidden = True
wksS.Columns(1).Resize(, 22).Hidden = True
Else
.Rows("1:" & 2 * intA + 1).Hidden = False
wksS.Columns(1).Resize(, 2 * intA + 1).Hidden = False
If intA If intS > 0 Then
Set rngH = wksT.Rows(3).Resize(intS)
For zz = 21 To 669 Step 18
Set rngH = Union(rngH, wksT.Rows(zz).Resize(intS))
Next zz
rngH.EntireRow.Hidden = False
End If
If intS
If Not Intersect(Target, Range("A23:A26")) Is Nothing Then
intA = Cells(23, 3)
intA = Application.CountA(Range("A23:A26"))
With Sheets("Torspieltagausw.")
If intA > 0 Then
Set rngH = .Rows(4).Resize(intA)
For zz = 12 To 300 Step 8
Set rngH = Union(rngH, .Rows(zz).Resize(intA))
Next zz
rngH.EntireRow.Hidden = False
End If
If intA
Mein Problem bezieht sich auf den fetten Teil, denn das ausblenden der Zeilen unter der Bedingung soll nur ausgeführt werden, wenn sie durch unten stehendes Makro eingeblendet wurden.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intG As Integer
intG = Cells(28, 1)
With Sheets("Spieltagausw.")
If intG = 0 Then
.Rows("1:684").Hidden = True
Else
.Rows("1:" & intG * 18).Hidden = False
If intG
Das heißt, das erst die Zeilen unter der Bedingung Makro 2 ein und ausgeblendet werden sollen, und dann nach Bedingung aus Makro 1 für den nun eingeblendeten Teil ausgeblendet werden sollen. Wird also intG in Makro 2 um 1 größer, so handelt es sich um ein ZZ aus Makro 1.
als Beispiel:
Wenn Cells(28, 1)= 1 dann Zeilen 1-18 einblenden; Cells(22, 7)= 7 dann Zeilen 10-16 ausblenden
Wenn Cells(28, 1)= 2 dann Zeilen 1-36 einblenden; Cells(22, 7)= 5 dann Zeilen 8-16 ausblenden und Zeilen 26-34 ausblenden
Wenn Cells(28, 1)= 3 dann Zeilen 1-54 einblenden; Cells(22, 7)= 3 dann Zeilen 6-16 ausblenden und Zeilen 24-34 ausblenden und Zeilen 42-52 ausblenden
Ich hoffe ich konnte halbwegs verständlich klar machen was ich meine.
Vielen Dank für eure Hilfe und viele Grüße
Kai