Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Anpassung
24.11.2022 16:30:03 Jens
Solved
24.11.2022 16:37:26 Gast83800
*****
Solved
24.11.2022 17:48:02 Der Steuerfuzzi
*****
Solved
25.11.2022 07:14:11 Jens
Solved

Ansicht des Beitrags:
Von:
Jens
Datum:
24.11.2022 16:30:03
Views:
305
Rating: Antwort:
 Nein
Thema:
VBA Anpassung

Hallo!
Ich habe ein VBA welches genau das macht was ich möchte, allerdings muss ich nun eine Anpassung vornehmen.
Ich habe Register, auf dem ersten "Übersicht" werden die Werte vom zweiten "Test" übertragen. 
Drücke ich auf ein durchgestrichenes Auge, wird die Zeile ausgeblendet und auch auf dem Register "Test" sind keine Zellen mehr hervorgehoben in die Werte eingetragen werden können. Klickt man dann auf den Button "Test", der mit dem Ausblenden der Zeile eingeblendet wird, erscheint die Zeile wieder und auf dem Register "Test" sind die Zellen die gefüllt werden müssen, grau.
Dies funktioniert auf auch alles richtig gut. In der Praxis geht dies über 40 Zeilen!

Jetzt möchte ich aber das VBA welches für das Ausblenden der Zeile zuständig ist dahingehend abändern, dass man nur dann ausblenden kann wenn keine Werte eingetragen sind. Sprich, habe ich eine Bestimmung gemacht und der Wert erscheint in Zelle K4, dann soll man nicht mehr die Zeile ausblenden können.

Die VBA die ich bisher dafür habe sieht so aus:

Sub EinblendenTest()
    Rows("4:4").Select
    Selection.EntireRow.Hidden = flase
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "x"
    ActiveSheet.Shapes.Range(Array("Test")).Visible = True
    ActiveSheet.Shapes.Range(Array("TF Test")).Visible = False
End Sub
Sub AusblendenTest()
    Rows("4:4").Select
    Selection.EntireRow.Hidden = True
    Range("A4").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveSheet.Shapes.Range(Array("Test")).Visible = False
    ActiveSheet.Shapes.Range(Array("TF Test")).Visible = True
End Sub

Hier muss jetzt irgendwie verwurstet werden, dass man nur Ausblenden kann wenn K4 leer ist!

Ich hoffe hier kann mir jemand weiterhelfen.

Viele Grüße
Jens
 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Anpassung
24.11.2022 16:30:03 Jens
Solved
24.11.2022 16:37:26 Gast83800
*****
Solved
24.11.2022 17:48:02 Der Steuerfuzzi
*****
Solved
25.11.2022 07:14:11 Jens
Solved