Hallo!
Habe ein Problem, nämlich:
ich habe eine Tabelle mit 2 Spalten definiert.
- in 1.Spalte stehen alle Tabellennamen
- in 2.Spalte Enisen(1) und Nullen (0)
Mein Programm soll: erstens die 2. Spalte nach 1 oder 0 prüfen! Wenn 0 -> dann zu dieser Zelle gehörige linke Zelle (1.Spalte mit Tabellennammen) soll aktiviert sein, das Programm soll erkennen(!), dass da eine Tabellenname steht und die Tabelle mit dieser Name ausblenden!
Wenn 1 -> dann die links stehende Tabellename = diese Tabelle einblenden.
Ich hab schon so etwas geschrieben:
Dim erg As Variant
Dim blatt As Worksheet
Dim zelle As Range
Worksheets("DB-Tabellenrechte").Activate
For Each zelle In ActiveSheet.Range("B:B")
If zelle.Value = "1" Then
zelle.Activate
Set erg = ActiveCell.Offset(0, -1).Value
With erg
.Value = blatt.Name
End With
blatt.visible = True
End If
Next zelle
---Hier kommt die Fehlermeldung "Typ unverträglich" oder "Objektvariable nicht definiert"
WIE KANN ICH MEIN PROBLEM LÖSEN????? |