Worsheet_Change Target anderes Blatt
01.09.2020 13:42:20
MB12
der erste Teil des Makros liegt im Tabellenblatt ""Parameter" und läuft bereits.
Ab "NEU" habe ich eine Ergänzung eingefügt. Das Problem: Die Targetzelle I21 bzw. I27 liegt im _
Tabellenblatt "Start".
Hier benötige ich Unterstützung, wie ich das Makro anpassen muss
Vielen Dank im Voraus, Margarete
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
Dim Zelle As Range
'Bei Eintragung eines X in Spalte K soll die entsprechende Zeile kopiert
'und am Ende der Tabelle in "Ausgabe_Parameter" eingetragen werden.
'Nach Löschen des x werden die Zellinhalte in Spalte C abgeglichen und die Zeile wieder gelö _
scht.
If Cells(1, Target.Column) "Inter-" Then Exit Sub
If IsEmpty(Target) Then
Set Zelle = Sheets("Interface-Liste").Columns(5).Find(what:=Cells(Target.Row, 5).Text, _
lookat:=xlWhole, LookIn:=xlValues)
If Not Zelle Is Nothing Then Zelle.EntireRow.Delete
ElseIf UCase(Target) = "X" Then
With Worksheets("Interface-Liste")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).Copy .Rows(iRow)
End With
End If
Application.CutCopyMode = False
'***************** NEU ******************
'deutsch:
'(ebenfalls als Private Sub Worksheet_Change(ByVal Target As Range))
With Target
If .Address(0, 0) = "I21" Then
Range("O:W").EntireColumn.Hidden = False
Select Case .Value
Case "WinCC flexible": Range("P:P,R:W").EntireColumn.Hidden = True
Case "Zenon": Range("O:Q,S:S,U:W").EntireColumn.Hidden = True
Case "Rockwell": Range("O:T,V:V").EntireColumn.Hidden = True
Case Else
End Select
End If
'englisch:
If .Address(0, 0) = "I27" Then
Range("O:W").EntireColumn.Hidden = False
Select Case .Value
Case "WinCC flexible": Range("O:O,R:W").EntireColumn.Hidden = True
Case "Zenon": Range("O:R,S:S,U:W").EntireColumn.Hidden = True
Case "Rockwell": Range("O:U").EntireColumn.Hidden = True
Case Else
End Select
End If
End With
End Sub
Anzeige