Tabellenblattwechsel durch Makro
14.08.2013 10:55:55
David
heute habe ich einen Makro-Tag.
Hier wieder ein Makro den ich grad gebaut habe:
Sub KonsumEinAus()
Dim aRange As Range
Set aRange = Worksheets("Wahlmöglichkeit").Range("C17")
If aRange.Value = "Konsum" Then
Worksheets("Konsum").Visible = 0
Worksheets("Konsum1").Visible = -1
Else
Worksheets("Konsum1").Visible = 0
Worksheets("Konsum").Visible = -1
End If
End Sub
Wenn also Konsum in c17 angezeigt wird soll das Tabellenblatt Konsum eingeblendet werden und das TB Konsum 1 ausgeblendet werden. Wenn Konsum1 in c 17 angezeigt wird, dann anders herum.
Dazu will ich aber noch eine weitere funktionionen haben:
Wenn ich auf einen Kopf neben c17 klicke (submasterroutine) soll das TB was eingeblendet wird direkt auftauchen sodass ich es bearbeiten kann.
muss dann vor das Visible = 0 das Wort "Show" stehen?
Vielen Dank.
Gruß, david