AW: Zeilen einfügen, wenn
24.03.2018 18:45:19
Silvia
Hi Ihr Lieben,
ich hoffe Ihr könnt mir nochmals helfen:
folgende Codes sind in der oben beschriebenen Tabelle nun aufgeführt. Das hatte ich leider vergessen zu erwähnen. - Sorry.
Jetzt erhalte ich beim ergänzen des Codes von Richard den Hinweis:
Fehler beim Kompilieren:
Mehrdeutiger Namen: Worksheet_Change
Ich weiß nun nicht, wie ich das ergänzend aufnehmen muss, damit es funktioniert.
Ich hab VBA keine Ahnung.
Für Eure Hilfe - vorab vielen Dank
LG Silvia
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$71" Then Rows("72:73").Hidden = (Target.Value = "ja")
If Target.Address = "$I$80" Then Rows("81:82").Hidden = (Target.Value = "ja")
If Target.Address = "$I$230" Then Rows("233:236").Hidden = (Target.Value = "ja")
If Target.Address = "$I$133" Then Rows("134:136").Hidden = (Target.Value = "ja")
If Target.Address = "$I$203" Then Rows("204:207").Hidden = (Target.Value = "ja")
If Target.Address = "$I$350" Then Rows("351:356").Hidden = (Target.Value = "nein")
If Target.Address = "$I$309" Then Rows("311:312").Hidden = (Target.Value = "ja")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim j As Integer
Set KeyCells = Range("I110")
If Not Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
For i = 1 To ActiveSheet.Range("I110").Value
ActiveCell.EntireRow.Insert
Next
End If
For j = 1 To ActiveSheet.Range("I110").Value
Worksheets("Tabelle1").Range(Cells(110 + j, 9), Cells(110 + j, 10)).Merge
Next
End Sub