Statt Formeln VBA ?

Josef · 2008-11-06T07:00:08+00:00

Guten Morgen! Mit folgender Formel, wird der dementsprechende Wert in Abhängigkeit des Eintrages in der Spalte BF in die Zelle eingetragen. =WENN(BF35766="N";"NEIN";WENN(BF35766="J-xPV";"JA";WENN(BF35766="CHA/xPV";"eventuell"; WENN(BF35766="EV-N / FV-XPV";"eventuell";WENN(BF35766="I-J/N";"eventuell";""))))) Nachdem jedoch durch viele Formeln die Arbeitsmappe von der Größe her aufgebläht wird, stellt sich die Frage ob die Lösung nicht über VBA oder Worksheet_Change Ereignis abgehandelt werden kann. Wie würde bitte so eine Lösung aussehen bzw. lauten? Danke Josef

Hallo Beverly!
Danke für Deine Antwort!
So würde es passen:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim arrDaten
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Columns("BF")) Is Nothing Then Exit Sub
Application.EnableEvents = False
arrDaten = Array(Array("N", "J-xPV", "XHS/xPV", "EV-N/xPV", "I-J/N"), Array("Nein", "Ja", "  _
_
eventuell", "eventuell", "eventuell"))
If Not IsError(Application.Match(Target, arrDaten(0), 0)) Then
Target.Offset(0, 17) = arrDaten(1)(Application.Match(Target, arrDaten(0), 0) - 1)
Else
MsgBox "Suchbegriff nicht vorhanden"
End If
Application.EnableEvents = True
End Sub

Dies funktoniert, wenn man den Wert einzeln eingibt oder den Wert einmal kopiert und der Reihe nach einfügt. Wenn ich mehrere "N" kopiere und einfüge dann klappt es logischerweise nicht. Wäre aber interessant, ob ein mehrfachkopieren auch gehen würde?
Danke
Josef

Hi Josef,
in deinem Eröffnungsbeitrag stand, dass der Wert in Spalte AW eingetragen werden soll. In diesem Fall ist Target.Offset(0, -9) richtig gewesen.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim arrDaten
Dim raZelle As Range
If Intersect(Target, Columns("BF")) Is Nothing Then Exit Sub
Application.EnableEvents = False
arrDaten = Array(Array("N", "J-xPV", "XHS/xPV", "EV-N/xPV", "I-J/N"), Array("Nein", "Ja", " _
eventuell", "eventuell", "eventuell"))
If Target.Count > 1 Then
If Not IsError(Application.Match(Selection.Cells(1), arrDaten(0), 0)) And Selection.Cells( _
1)  "" Then Selection.Offset(0, 17) = arrDaten(1)(Application.Match(Selection.Cells(1), arrDaten(0), 0) - 1)
Else
If Not IsError(Application.Match(Target, arrDaten(0), 0)) And Target  "" Then Target. _
Offset(0, 17) = arrDaten(1)(Application.Match(Target, arrDaten(0), 0) - 1)
End If
Application.EnableEvents = True
End Sub

Forumthread: Statt Formeln VBA ?

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Statt Formeln VBA ?

Forumthread: Statt Formeln VBA ?

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread