Hallo,
Ich habe ein Problem mit VBA. Ich habe nur sehr wenig Ahnung von VBA, daher hoffe ich, dass ihr mir weiterhelfen könnt.
Meine Excel-Datei besteht aus 2 Mappen. Mappe 1 ist die Eingabemappe und Mappe 2 die Ausgabemappe (Druckvorschau). Wenn in der Eingabemappe in einer bestimmten Zelle der Wert 1 steht, wird dieser auf Ausgabemappe übertragen (Zelle D57) und es soll Zeile 43 ausgeblendet werden.
Die Übertragung des Wertes ist kein Problem und funktioniert, jedoch blendet er die Zeile nicht aus. Klicke ich in die Zelle und bestätige mit Enter, blendet er die Zeile aus. Nur wie macht er es automatisch, wenn ich die Mappe wechsel?
Code in Ausgabemappe:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varAusblend As Range
Dim varSchalter As Range
Set varAusblend = ActiveSheet.Rows("43")
Set varSchalter = ActiveSheet.Cells(57, 4)
If varSchalter.Value <> 1# And varAusblend.Hidden = True Then
varAusblend.Hidden = False
Else
If varSchalter.Value = 1# And varAusblend.Hidden = False Then
varAusblend.Hidden = True
End If
End If
End Sub
Vielen Dank vorweg!
Mit freundlich Grüßen
Lasse
|