Befehl "Nichts tun" in VBA- Form

Fynn · 2016-11-25T13:29:04+00:00

Guten Tag liebe Mitglieder, ich hoffe ihr könnt mir bei folgendem Problem behilflich sein. Ich habe in einer Spalte mit Dropdown- Menü die Möglichkeit zwischen den Worten "Won", "Lost", "Open" oder "Inhouse" zu wählen. Ich möchte nun, in einer zweiten Spalte Prozentzahlen stehen haben. Wenn ich "Won" auswähle, dann sollen 100% angezeigt werden, wenn "Lost" ausgewählt wird, dann 0% und bei der Auswahl von "Open" und "Inhouse", soll eine freie Eingabe einer beliebigen Prozentzahl möglich sein. Ich habe bereits herausgefunden, dass das über eine einfache Excel-Formel nicht möglich ist, sondern wenn dann nur per VBA. Ich hoffe meine Erläuterung des Problems ist verständlich! Ich danke euch vielmals! Mit freundlichen Grüßen Fynn Borchert

Ich habe jetzt folgendes eingetippt:
Public Letzter As Variant
Public Vorletzter As Variant
Public VorVorletzter As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
VorVorletzter = Vorletzter
Vorletzter = Letzter
Letzter = Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Range("O2:Z3128"), Target) Is Nothing Then
If Target = VorVorletzter Then
Target.Interior.ColorIndex = 6
Else
Target.Interior.ColorIndex = 3
End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 10 Then 'Eingabe in A
On Error GoTo ERREXIT
Application.EnableEvents = False
Select Case LCase(Target)
Case "Won": Target.Offset(, 1) = 1
Case "Lost": Target.Offset(, 1) = 0
End Select
Target.Offset(, 1).NumberFormat = "0%"
End If
ERREXIT:
Application.EnableEvents = True
End Sub

Das Programm zeigt mir an, dass es einen Fehler beim Komplimieren gibt in Bezug auf die erste _ Zeile des Moduls von Rudi "


Private Sub Worksheet_Change(ByVal Target As Range)" und es passiert nichts in der Spalte J bei  _
den Prozentzahlen.
Wie muss ich jetzt weiter verfahren?

Hallo Fynn,
irgendjemand hat dir
Select Case LCase(Target)
in den Code geschrieben. Dann müssen die Werte in den Case Zeilen auch mit Kleinbuchstaben im Code geschrieben werden, damit der Wertvergleich funktioniert.
Dann hattest du geschrieben, dass du die Werteingaben per DropDown in Spalte J machst, also in Spalte 10.
Im Code jetzt aber Target plötzlich auf Spalte 11 geprüft.
Du musst dich schon einmal entscheiden was du willst und nicht immer neue Varianten bei deinen Fragen ins Spiel bringen.
Die Eingabe der Werte wenn nicht "Lost" oder "Won" kannst du auch gleich in einer Inputbox abfragen.
Gruß
Franz

Option Explicit
Public Letzter As Variant
Public Vorletzter As Variant
Public VorVorletzter As Variant
Sub ereignisse_ein()
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
VorVorletzter = Vorletzter
Vorletzter = Letzter
Letzter = Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varWert
On Error Resume Next
If Not Intersect(Range("O2:Z3128"), Target) Is Nothing Then
If Target = VorVorletzter Then
Target.Interior.ColorIndex = 6
Else
Target.Interior.ColorIndex = 3
End If
End If
If Target.Column = 10 Then 'Eingabe in J
On Error GoTo ERREXIT
Application.EnableEvents = False
Select Case LCase(Target)
Case "won": Target.Offset(, 1) = 1
Case "lost": Target.Offset(, 1) = 0
Case Else
varWert = Application.InputBox("Bitte Prozentzahl eingeben:", _
"Eingabe bei Open oder Inhouse", Type:=1)
If varWert = False Then
Else
Target.Offset(, 1) = varWert / 100
End If
End Select
Target.Offset(, 1).NumberFormat = "0%"
End If
ERREXIT:
Application.EnableEvents = True
End Sub

Forumthread: Befehl "Nichts tun" in VBA- Form

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

VBA-Form mit Dropdown und Prozentanzeige 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)