Thema Datum  Von Nutzer Rating
Antwort
19.04.2024 13:25:19 Andreas Schubotz
NotSolved
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
Blau mehrere Private Sub Worksheet_SelectionChange(ByVal Target As Range)
19.04.2024 16:14:01 Gast2486
NotSolved
22.04.2024 07:41:42 Andreas
NotSolved

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

Ich habe die Tabellenselect´s eingefügt, damit sich das Tabellenblatt 1 nach einer Dropdownauswahl selbst aktualisiert.

Dann ist SelectionChange aber das falsche Ereignis dafür. Du willst nicht auf die Änderung einer markierten Zelle oder Bereich reagieren, sondern darauf das sich in einer Zelle der Inhalt ändert. Das wäre dann das Change Ereignis.


Hier mal fix ein Beispiel; führe einmalig TestSetup() in einer leeren Mappe aus und wähle dann in Zelle B2 etwas aus dem Zellen-Dropdown aus (bzw. lösche die Auswahl mit Entf/Del-Taste wieder).

'in: Tabelle1
Option Explicit

Public Sub TestSetup()
  
  With Range("B2")
    .Interior.Color = rgbYellow
    Call .Validation.Add(xlValidateList, Formula1:="Apfel,Banane,Birne,Kirsche")
  End With
  
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Cells(1).Address = "$B$2" Then
    Select Case Target.Cells(1).Value
      
      Case "Apfel"
        Call MsgBox("Es gibt rote, grüne und auch gelbe Äpfel.", vbInformation)
      
      Case "Banane"
        Call MsgBox("Eine reife Banane ist gelb-braun.", vbInformation)
        
      Case "Birne"
        Call MsgBox("Es gibt grüne und auch gelbe-grüne Birnen.", vbInformation)
      
      Case "Kirsche"
        Call MsgBox("Klein, rund, rot und lecker.", vbInformation)
      
      Case Else
        Call MsgBox("Auswahl ist nicht gültig.", vbExclamation)
        
    End Select
  End If
  
End Sub

 


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
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
Blau mehrere Private Sub Worksheet_SelectionChange(ByVal Target As Range)
19.04.2024 16:14:01 Gast2486
NotSolved
22.04.2024 07:41:42 Andreas
NotSolved