PopUp Fenster bei bestimmtem Wert

Thomas · 2018-03-24T12:19:59+00:00

Hallo Zusammen, würde gerne in VBA ein Macro bzw Worksheet haben, das ausgeführt wird, wenn ein bestimmter Wert in einer DropDown-Liste ausgewählt wird. Sobald der Wert ausgewählt wird , sollte ein PopUp Fenster mit einer Information aufgehen. Habe hier schon was gefunden aber habe Probleme es für mich anzupassen. habe zwei Werte die Ausgewählt werden können ( X51 & X52 ) bei beiden müssen Fenster mit unterschiedlichem Inhalt aufgehen. Info Inhalt anpassen ist kein Prob. aber sobald ich die anpassen will in X51 bekomme ich eine Fehlermeldung. Kann mir da jemand weiterhelfen :-) Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("S14:S109")) Is Nothing Then If Target.Count = 1 And Target = 1 Then MsgBox "Du hast Derivat X gewählt!", vbInformation, "Hinweis für " & _ Application.UserName End If End If End Sub

Hallo Thomas,
gestalte das Makro etwas übersichtlicher.
Gruß
Franz

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MsgText As String
If Not Intersect(Target, Range("S14:S109")) Is Nothing Then
If Target.Count = 1 Then
Select Case Target.Value
Case "X51"
MsgText = "Du hast Derivat """ & Target.Value & """  gewählt!"
Case "X52"
MsgText = "Du hast Derivat """ & Target.Value & """  gewählt!"
Case Else
'do nothing
End Select
If MsgText  "" Then
MsgBox MsgText, vbInformation, "Hinweis für " & Application.UserName
End If
End If
End If
End Sub

oder wenn tatsächlich nur der Name des gewählten Derivats im sonst identischen Text angezeigt werden soll.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MsgText As String
If Not Intersect(Target, Range("S14:S109")) Is Nothing Then
If Target.Count = 1 Then
Select Case Target.Value
Case "X51", "X52"
MsgBox "Du hast Derivat """ & Target.Value & """  gewählt!", _
vbInformation, "Hinweis für " & Application.UserName
Case Else
'do nothing
End Select
End If
End If
End Sub

Hallo Thomas,
wenn du für jedes Derivat ein separates Userform erstellst, dann musst du nur noch den Usernamen in eine Textbox übergeben.
Falls die User in einem Netzwerk arbeiten, dann ist es ggf sinnvoll statt des Office Usernamens, der für die Anwendung lokal eingegeben wird, den Anmeldenamen für Windows anzuzeigen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MsgText As String
If Not Intersect(Target, Range("S14:S109")) Is Nothing Then
If Target.Count = 1 Then
Select Case Target.Value
Case "X51"
With UF_Info_X51
.txbUser = Application.UserName
'                        .txbUser = VBA.Environ("Username") 'Windows-Anmeldename
.Show
End With
Case "X52"
With UF_Info_X52
.txbUser = Application.UserName
'                        .txbUser = VBA.Environ("Username") 'Windows-Anmeldename
.Show
End With
Case Else
'do nothing
End Select
End If
End If
End Sub

bezüglich Problemen auf dem Mac:
Prüfe mal im VBA-Editor ob für die Datei im VBA-Editor alle notwendigen Verweise gesetzt sind.
Unter Windows sieht es bei mir wie folgt aus:
Userbild

Die Versionen der Verweise können bezüglich der jeweiligen Versionen unterschiedlich sein.
Wenn du die Datei mal unter Windows, mal auf dem Mac öffnest/bearbeitest kann es sein, das du jeweils Anpssungen machen musst.
Gruß
Franz

PopUp Fenster bei bestimmtem Wert

Forumthread: PopUp Fenster bei bestimmtem Wert

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

PopUp Fenster in Excel bei bestimmten Werten erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

PopUp Fenster bei bestimmtem Wert

Forumthread: PopUp Fenster bei bestimmtem Wert

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

PopUp Fenster in Excel bei bestimmten Werten erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread