Zeilen ausblenden Typenunverträglich
Kai
ich bekomme immer einen Fehler und frage mich warum, es wäre toll wenn mir jemand sagen könnte, was ich ändern muss.
Mein Ziel ist es, das wenn Zelle G4 in Datenblatt2 = 0 ist die Zeilen 4:40 ausgeblendet werden.
Für G4=1 soll Zeile 4 eingeblendet werden. Für G4=2 sollen Zeile 4:5 eingeblendet werden usw.
Mein Versuch ist gescheitert, da Typenunverträglich.
Dim intA As Integer
intA = Sheets("2").Cells(7, 4)
With Sheets("2")
If Sheets("2").Cells(7, 4) = 0 Then
.Rows("4:40").Hidden = True
Else
.Rows("4:" & intT + 4).Hidden = False
If intA Kai