Dies ist das erste Mal, dass ich mit Makros arbeite. Ich habe ein Drop-down in "A52" und "A122" mit den Optionen "BLACK" und "WHITE" erstellt.EXCEL VB nehmen Sie mich ganz nach unten von meinem Excel
Wenn A52 ausgewählt ist "WEISS", Zeile 59-61 Blendet aus Wenn A52 "SCHWARZ" ausgewählt ist, blendet Zeile 56-58 Vice Versa aus, wenn auf A122 ausgewählt.
Das einzige Problem ist der Cursor und eine Excel-Ansicht führen mich zu Zeile 126-127 jedes Mal Drop-Down ausgewählt ist. Es hat entsprechende Reihen ausgeblendet, bring mich einfach immer nach unten.
Alle Tipps und Tricks werden sehr geschätzt. Vielen Dank!
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A52") = "WHITE" Then
Rows("59:61").EntireRow.Hidden = True
Else
Rows("59:61").EntireRow.Hidden = False
End If
If Range("A52") = "BLACK" Then
Rows("56:58").EntireRow.Hidden = True
Else
Rows("56:58").EntireRow.Hidden = False
End If
If Range("A122") = "WHITE" Then
Rows("124:125").EntireRow.Hidden = True
Else
Rows("124:125").EntireRow.Hidden = False
End If
If Range("A122") = "BLACK" Then
Rows("126:127").EntireRow.Hidden = True
Else
Rows("126:127").EntireRow.Hidden = False
End If
End Sub
Ich kann dies nicht persönlich replizieren - aber Sie können immer etwas wie "Range (" A1 "). Aktivieren" oder "ActiveWindow.ScrollRow = 1", wenn Ihre Tests auslösen. – Comintern
Ich konnte Ihr Problem nicht replizieren, aber ich habe ein etwas anderes Ereignis verwendet, "Private Sub Workbook_SheetChange (ByVal Sh As Objekt, ByVal Target As Range)". Ihr Code schien für mich gut zu funktionieren, der Cursor blieb mit dem Dropdown auf der Zelle. Tut mir leid, ich kann nicht mehr helfen. –