Thema Datum  Von Nutzer Rating
Antwort
19.04.2024 13:25:19 Andreas Schubotz
NotSolved
Blau mehrere Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 19.04.2024 14:16:57 Gast87443
NotSolved
19.04.2024 14:25:01 Andreas
NotSolved
19.04.2024 15:09:14 Gast39883
Solved
19.04.2024 15:17:24 Andreas
NotSolved
19.04.2024 16:14:01 Gast2486
NotSolved
22.04.2024 07:41:42 Andreas
NotSolved

Ansicht des Beitrags:
Von:
Gast87443		 Datum:
19.04.2024 14:16:57		 Views:
46		 Rating:
     
Antwort:
  Ja
Thema:
mehrere Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Vermutlich einfach beide zusammen legen?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Range("E23").Value = "Nein" Or Range("E23").Value = "" Then
        Rows("24:28").EntireRow.Hidden = True
        Rows("33").EntireRow.Hidden = True
        Rows("29:32").EntireRow.Hidden = False
'        Sheets("Tabelle2").Select
'        Sheets("Tabelle1").Select
    Else:
        Rows("24:28").EntireRow.Hidden = False
        Rows("33").EntireRow.Hidden = False
        Rows("29:32").EntireRow.Hidden = True
'        Sheets("Tabelle2").Select
'        Sheets("Tabelle1").Select
    End If

    If Range(I21).Value = "" Or Range(I21).Value = "1" Then

        Rows("19").EntireRow.Hidden = True
'        Sheets("Tabelle2").Select
'        Sheets("Tabelle1").Select
    Else:
        Rows("19").EntireRow.Hidden = False
'        Sheets("Tabelle2").Select
'        Sheets("Tabelle1").Select
    End If

End Sub

 

PS: Select ist böse und frisst unartige Kinder!

 

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
19.04.2024 13:25:19 Andreas Schubotz
NotSolved
Blau mehrere Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 19.04.2024 14:16:57 Gast87443
NotSolved
19.04.2024 14:25:01 Andreas
NotSolved
19.04.2024 15:09:14 Gast39883
Solved
19.04.2024 15:17:24 Andreas
NotSolved
19.04.2024 16:14:01 Gast2486
NotSolved
22.04.2024 07:41:42 Andreas
NotSolved