Makros "Überwachen"+"Einblenden" harmonieren nicht
12.04.2017 11:58:14
Michael
Folgendes Problem:
Ich will in einer Exceldatei mit mehreren Sheets folgendes erreichen:
Wenn in Sheet4 in den Zellen C8 bis C17 eine Änderung erfolgt (Eintragung oder Löschung), blende in Sheet8 entsprechend Spalten ein oder aus.
Die Überwachung in Sheet4 funktioniert einwandfrei (Sub liegt direkt im Sheet):
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c8:c17")) Is Nothing Then
End If
End Sub
Public Sub hide()
Dim wert As Integer
Dim longRow As Long
Set perso = ActiveWorkbook.Sheets(8)
For longRow = 9 To 28
If longRow Mod 2 = 0 Then GoTo sprung Else
If perso.Cells(17, longRow).Value = 0 Then
perso.Range(Columns(longRow), Columns(longRow + 1)).EntireColumn.Hidden = True
Else
perso.Range(Columns(longRow), Columns(longRow + 1)).EntireColumn.Hidden = False
End If
sprung:
Next longRow
Set rng = Nothing
Set grund = Nothing
Set perso = Nothing
End Sub
1.
Ich kann das Sub hide() weder mit Call(findet er nicht), noch mit Application.Run aufrufen (kann er nicht starten, weil versteckt oder deaktiviert). Es existiert aber kein Blattschutz o.ä. Auch an die Apostrophe um den Dateinamen bei "Run" habe ich gedacht.
2.
Sobald ich das Sub hide() in ein Sheet oder ein Modul verschiebe, bekomme ich einen Fehler ("Objekt unterstützt diese Eigenschaft oder Methode nicht") in der fett markierten Zeile.
Leider hatte ich mit diversen Varianten über Public/Private Sub, Option Explicit, definierte Ranges etc. als Klarnamen eintragen, If-Schleifen verändern etc. bisher keinen Erfolg.
Also, ich könnte Unterstützung gebrauchen um entweder:
- den Code in hide() sauber zu bekommen, um ihn direkt in Sheet4 beim ChangeSub laufen zu lassen
oder
-eine Lösung zu finden, wie ich aus dem ChangeSub in Sheet4 das Sub "hide()" aufrufen kann.
Vielen Dank im Voraus für die bis jetzt immer schnelle und kompetente Hilfe!
Liebe Grüße
Michael
Anzeige