Reiter ausblenden aber mit UF verwendbar
16.03.2022 14:07:16
Pohl
ich habe schon sehr viel herum probiert und auch etliche Foren danach abgesucht(auch eures :D) , jedoch nichts passendes gefunden, vielleicht könnt ihr mir hier weiterhelfen.
Ich habe eine Mappe in welcher ich ein UF eingerichtet habe. In dem UF sind mehrere Commandbutton für jedes Blatt angelegt. Nach klick des Buttons, springt er automatisch auf "Tabelle2" und öffnet ein Suchfenster zum Daten suchen, wo der Cursor dann zu dem Datensatz springt.
Meine Frage ist es: Kann man die Blätter (Ausgenommen Tabelle1, fungiert als Home) ausblenden, aber mittels klick auf ein Button im UF z.B. auf Tabelle 2 springen, das Blatt bearbeiten und erst nach klick auf einen Button im UF, z.B. Tabelle3, die Tabelle 2 wieder ausblenden?
Also: Blätter außer "Home" ausgeblendet, UF starten, auf Tabelle2 klicken, Tabelle2 wird eingeblendet und kann bearbeitet werden, UF wieder starten, Tabelle 3 wählen, Tabelle 2 wird ausgeblendet, Tabelle 3 wird eingeblendet, kann bearbeitet werden.
Ich habe es mit
Sub ausblenden()
Dim z As Worksheet
For Each z In ThisWorkbook.Worksheets
If Not z.Name = "Home" Then
z.Visible = False
End If
Next z
End Sub
Auch so funktioniert es nicht:
Private Sub Tabelle2_springen_Click()
' Klick_Tabelle2 springen&suchen
Me.Hide
Dim ws As Worksheet
Dim x As Range
Set ws = Sheets("Tabelle2")
ws.Visible = True Danke
Beste Grüße